vb.net切换控件焦点,vb窗体失去焦点

vb.net 中设置焦点是什么意思？

最正统的方法是把textbox1的tabindex属性设为0（其他控件的tabindex不能是0）

七星网站制作公司哪家好，找创新互联公司！从网页设计、网站建设、微信开发、APP开发、自适应网站建设等网站项目制作，到程序开发，运营维护。创新互联公司自2013年起到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司。

要在load事件里用textbox1.focus()也可以，但要先me.show()，否则不会起作用。因为控件得到焦点需要控件”可见可用“，在formload阶段整个窗体是“不可见"的，需要强制使用me.show()。

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

vb中如何按一下enter键使下一个text控件获得焦点

你如果使用VB.NET，点击其中一个“tab order”的图标，此时您可以单击每个控件的数字（越小越表示越容易被聚焦），NET默认就可以用Tab进行焦点切换（顺序就是按照数字从小到大的顺序）。 至于按Enter自动切换，您需要自行在支持按键的控件事件中（比如TextBox）的KeyPress事件中编写代码： private void textBox1_KeyPress(object sender, KeyPressEventArgs e)

{

if (e.KeyChar == 13)

{

XXX（控件).Focus();

}

}

vb.net 得到焦点

最正统的方法是把TextBox1的TabIndex属性设为0（其他控件的TabIndex不能是0）

要在Load事件里用TextBox1.Focus()也可以，但要先Me.Show()，否则不会起作用。因为控件得到焦点需要控件”可见可用“，在FormLoad阶段整个窗体是“不可见"的，需要强制使用Me.Show()。

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 给其他程序焦点

Public RunProcess As Process

RunProcess.start("djiwqjidjwqi")

AppActivate(RunProcess.Id())