大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
最正统的方法是把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、第七步,完成上述步骤后,运行程序,单击命令按钮,然后在文本框中观察焦点变化,见下图。这样,就解决了这个问题了。