如何时VB窗体中的控件永远不能获得focus? 譬如webbrowser

Question

Private Declare Function SetFocusS Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    SetFocusS Form1.hwnd
End Sub

Answer 1

Private Declare Function SetFocusS Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As LongPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    SetFocusS Command2.hwnd'你想移到的控件
End Sub

Answer 2

在控件获得焦点的事件GotFocus（好像是这个吧：））里写：
SendKeys "{tab}"     '传入Tab键，使焦点移到下一个控件
或者
Text1.SetFocus       'Text1获得焦点
其中，Text1是窗体上的一个控件。