7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
用户 昵称 2003-04-18
- 打赏
- 举报
API GetFocus()
Rozre 2003-04-17
- 打赏
- 举报
你想怎么个简单法？
sunrise10 2003-04-17
- 打赏
- 举报
啊，这么麻烦呀，没有简单点的方法吗？
danielinbiti 2003-04-17
- 打赏
- 举报
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Form1.Cls
On Error Resume Next
Print ActiveControl.Name
If ActiveControl Is Command Then
Print Command
End If
If ActiveControl Is Picture Then
Print Picture
End If
End Sub
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Form1.Cls
On Error Resume Next
Print ActiveControl.Name
If ActiveControl Is Command Then
Print Command
End If
If ActiveControl Is Picture Then
Print Picture
End If
End Sub
