重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
SetFocus 方法
创新互联建站专注于双台子企业网站建设,响应式网站开发,商城网站制作。双台子网站建设公司,为双台子等地区提供建站服务。全流程按需设计网站,专业设计,全程项目跟踪,创新互联建站专业和态度为您提供的服务
将焦点移至指定的控件或窗体。
1.对象必须是 Form 对象、MDIForm 对象或者能够接收焦点的控件。调用 SetFocus 方法以后,任何的用户输入将指向指定的窗体或控件。
2.焦点只能移到可视的窗体或控件。因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的,所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话,是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的。
3.也不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。如果已在设计时将 Enabled 属性设置为 False,必须在使用 SetFocus 方法使其接收焦点前将 Enabled 属性设置为 True。
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、第一步,打开VB软件,然后在表单上添加两个文本框,见下图,转到下面的步骤。
2、第二步,完成上述步骤后,分别设置两个文本框的属性,然后清除文本框的内容,见下图,转到下面的步骤。
3、第三步,完成上述步骤后,添加两个命令按钮,见下图,转到下面的步骤。
4、第四步,完成上述步骤后,分别设置两个文本框的属性,并分别命名为“左”和“右”,见下图,转到下面的步骤。
5、第五步,完成上述步骤后,双击名为“左”的命令按钮以编辑其代码,见下图,转到下面的步骤。
6、第六步,完成上述步骤后,双击名为“右”的命令按钮以编辑其代码,见下图,转到下面的步骤。
7、第七步,完成上述步骤后,运行程序,单击命令按钮,然后在文本框中观察焦点变化,见下图。这样,就解决了这个问题了。
1、打开VB软件,在窗体上面添加两个文本框,如下图所示。
2、分别设置两个文本框的属性,清空文本框的内容,如下图所示。
3、在窗体上,添加两个命令按钮,如下图所示。
4、分别设置两个文本框的属性,分别命名为“左”、“右”,如下图所示。
5、双击名称为“左”的命令按钮,编辑其代码,如下图所示。
6、双击名称为“右”的命令按钮,编辑其代码,如下图所示。
7、运行程序,点击命令按钮,观察文本框中的焦点变化,如下图所示。(为了方便观看,先点击“右”命令按钮,再点击“左”命令按钮)。