寻找一个能得到当前当然窗口的焦点所在位置的哪个操作对象(比如TEXT1)句柄的API

Question

谢谢，100分求教请尽量写的详细点，谢谢。

Answer 1

那里还用劳驾API
Private Sub Timer1_Timer()
MsgBox Me.ActiveControl.hWnd
End Sub

Answer 2

新建一个VB工程，在工程的窗口上加一个文本框，再加一个Timer控件，把interval属性设为
5000,引入两个APIPrivate Declare Function GetFocus Lib "user32" () As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Timer1_Timer()
    Dim i As Long
    i = GetFocus   '得到具有焦点的控件的句柄
    
    Call SetWindowText(i, "I Have Focus")  '测试，改变有焦点的控件标题
    
    
End Subvb6,window2000编译通过