怎么知道当前窗体哪个控件得到焦点了？

浪上飞郑

用screen,下面为帮助里的原代码，还是帮助好用
Sub ActiveObjects()
    Dim frm As Form, ctl As Control

    ' 返回指向活动窗体的 Form 对象。
    Set frm = Screen.ActiveForm
    MsgBox frm.Name & " is the active form."
    ' 返回指向活动控件的 Control 对象。
    Set ctl = Screen.ActiveControl
    MsgBox ctl.Name & " is the active control " _
        & "on this form."
End Sub

[此贴子已经被作者于2002-10-11 22:19:16编辑过]