vb.net焦点切换 vb焦点设置

VB里面焦点怎么设置..

方法和详细的操作步骤如下：

1、第一步，打开VB软件，然后在表单上添加两个文本框，见下图，转到下面的步骤。

2、第二步，完成上述步骤后，分别设置两个文本框的属性，然后清除文本框的内容，见下图，转到下面的步骤。

3、第三步，完成上述步骤后，添加两个命令按钮，见下图，转到下面的步骤。

4、第四步，完成上述步骤后，分别设置两个文本框的属性，并分别命名为“左”和“右”，见下图，转到下面的步骤。

5、第五步，完成上述步骤后，双击名为“左”的命令按钮以编辑其代码，见下图，转到下面的步骤。

6、第六步，完成上述步骤后，双击名为“右”的命令按钮以编辑其代码，见下图，转到下面的步骤。

7、第七步，完成上述步骤后，运行程序，单击命令按钮，然后在文本框中观察焦点变化，见下图。这样，就解决了这个问题了。

相关问答

Q1: vb.net设置windows焦点程序

给你个参考的例子，窗体打开时可能大小有变化，软件名可能有变化

先加个控件ListBox1，运行后双击ListBox1上程序名

Public Class Form1

Public myProcess() As Process

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim myProcesses() As Process = Process.GetProcesses()

Dim jh As New ArrayList

For Each bs As Process In myProcesses

If CInt(bs.MainWindowHandle) 0 Then

ListBox1.Items.Add(bs.ProcessName)

jh.Add(bs)

End If

Next

ReDim myProcess(jh.Count - 1)

jh.CopyTo(myProcess)

End Sub

Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Integer, ByVal nCmdShow As Long) As Integer

Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick

Dim a As Process = myProcess(ListBox1.SelectedIndex)

Try

Dim dd = ShowWindow(a.MainWindowHandle, H1)

AppActivate(a.Id)

Catch ex As Exception

End Try

End Sub

End Class

Q2: VB.NET中页面初期显示时按下enter键让焦点在五个textbox控件上顺序移动该怎么办？求大神指点，谢谢！

这样不好，应该使用 Table 键，按照 Table 键顺序来切换。因为回车往往用来确定你要按下页面的确定按钮。如果非要使用回车：

Private Sub 文本框按下回车键(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown

If e.KeyCode = Keys.Enter Then

Select Case sender.name

Case "TextBox1"

TextBox2.Focus()

Case "TextBox2"

TextBox3.Focus()

Case "TextBox3"

TextBox1.Focus()

End Select

End If

End Sub

vb.net焦点切换的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb焦点设置、vb.net焦点切换的信息别忘了在本站进行查找喔。