最正统的方法是把textbox1的tabindex属性设为0（其他控件的tabindex不能是0）
创新互联主营石屏网站建设的网络公司,主营网站建设方案,手机APP定制开发,石屏h5小程序制作搭建,石屏网站营销推广欢迎石屏等地区企业咨询
要在load事件里用textbox1.focus()也可以，但要先me.show()，否则不会起作用。因为控件得到焦点需要控件”可见可用“，在formload阶段整个窗体是“不可见"的，需要强制使用me.show()。
你如果使用VB.NET，点击其中一个“tab order”的图标，此时您可以单击每个控件的数字（越小越表示越容易被聚焦），NET默认就可以用Tab进行焦点切换（顺序就是按照数字从小到大的顺序）。 至于按Enter自动切换，您需要自行在支持按键的控件事件中（比如TextBox）的KeyPress事件中编写代码： private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
{
if (e.KeyChar == 13)
{
XXX（控件).Focus();
}
}
最正统的方法是把TextBox1的TabIndex属性设为0（其他控件的TabIndex不能是0）
要在Load事件里用TextBox1.Focus()也可以，但要先Me.Show()，否则不会起作用。因为控件得到焦点需要控件”可见可用“，在FormLoad阶段整个窗体是“不可见"的，需要强制使用Me.Show()。
Public
Class
Form3
按下,显示控件,并获得焦点.
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
TextBox1.Visible
=
True
TextBox1.Focus()
End
Sub
判断是否获得焦点.
Private
Sub
Button2_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button2.Click
If
TextBox1.Focused
=
True
Then
MessageBox.Show("已经获得焦点了.")
Else
MessageBox.Show("已经失去焦点了.")
End
If
End
Sub
失去焦点后自动陷藏.
Private
Sub
TextBox1_LostFocus(ByVal
sender
As
Object,
ByVal
e
As
System.EventArgs)
Handles
TextBox1.LostFocus
TextBox1.Visible
=
False
End
Sub
End
Class
方法如下：
1、打开例1.1创建的工程。
2、选择窗体Form1并双击该窗体，出现窗体的调事件的过程代码体。
3、在窗体调用的过程代码体中编制如下过程代码：
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、设置窗体Form1的SartUpPosition属性为2-屏幕中心，这样运行窗体可以发现，屏幕的大小与例1.6中通过属性设置的大小是一致的。
方法和详细的操作步骤如下：
1、第一步，打开VB软件，然后在表单上添加两个文本框，见下图，转到下面的步骤。
2、第二步，完成上述步骤后，分别设置两个文本框的属性，然后清除文本框的内容，见下图，转到下面的步骤。
3、第三步，完成上述步骤后，添加两个命令按钮，见下图，转到下面的步骤。
4、第四步，完成上述步骤后，分别设置两个文本框的属性，并分别命名为“左”和“右”，见下图，转到下面的步骤。
5、第五步，完成上述步骤后，双击名为“左”的命令按钮以编辑其代码，见下图，转到下面的步骤。
6、第六步，完成上述步骤后，双击名为“右”的命令按钮以编辑其代码，见下图，转到下面的步骤。
7、第七步，完成上述步骤后，运行程序，单击命令按钮，然后在文本框中观察焦点变化，见下图。这样，就解决了这个问题了。
重庆分公司
重庆分公司
