Private Sub Form_Load()
Me.Show
Text1.SetFocus
End Sub
注:要使得窗体先显示出来,再设置Text1的焦点,不然会出错的。
VB中关于setfocus用法注意事项
1、SetFocus函数发送WM_KILLFOCUS消息到失去键盘焦点的窗口,并且发送WM_SETFOCUS消息到接受键盘焦点的窗口,它也激活接受键盘焦点的窗口或接受键盘焦点的窗口的父窗口。
2、若一个窗口是活动的,但没有键盘焦点,则任何按键将会产生WM_SYSCHAR,WM_SYSKEYDOWN或WM_SYSKEYUP消息。若VK_MENU键也被按下,则消息的IParam参数将设置第30位,否则,所产生的消息将不设置此位。
3、使用AttachThreadInput函数,一个线程可将输入处理连接到其他线程。这使得线程可以调用SetFocus函数为一个与其他线程的消息队列相关的窗口设置键盘焦点。
要使得窗体先显示出来,再设置Text1的焦点,不然会出错的,正确的代码: Private Sub Form_Load()
Me.Show
Text1.SetFocus
End Sub
用text1.setfocus就可以了啊,不知道你想要做什么。