窗体得到焦点后，怎样使窗体内指定控件得到焦点

Question

如题
谢谢

Answer 1

设置窗体的那个控件的
Tabindex=0

Answer 2

用 控件.SetFocus属性,如
Command1.SetFocus 或
Text1.SetFocus

Answer 3

我也是用的SetFocus 但不行
在我写的程序打开的同时，客户又打开了其他的windows应用程序，当客户再回到本程序时就发生了焦点回到Tabindex（0）的控件。由于为了响应tab键，Tabindex不能设为0,并且为了适应客户习惯控件的顺序位置不能改变
痛苦中...
谢谢各位大侠
帮忙解决下

Answer 4

在‘窗体_GetFocus’中调用‘窗体内指定控件.SetFocus’？

Answer 5

不是窗体_GetFocus’
是窗体得到焦点后，再指定窗体内某个控件得到焦点

Answer 6

Private Sub Form_Activate()
   TeQymc.SetFocus （不管用）
End Sub

Answer 7

发送tab按键消息，他会依次移动焦点

Answer 8

Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Dim blnS As BooleanPrivate Sub Form_Load()
    blnS = True
    'some code
    blnS = False
End SubPrivate Sub Timer1_Timer()
    If GetActiveWindow = Me.hWnd And blnS = False Then
        Text2.SetFocus
    End If
End Sub