vb.net设置焦点 vb文本框设置焦点

vb.net中怎么设置初始情况下的焦点位置

方法如下：

创新互联专业为企业提供曾都网站建设、曾都做网站、曾都网站设计、曾都网站制作等企业网站建设、网页设计与制作、曾都企业网站模板建站服务，10年曾都做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

1、打开例1.1创建的工程。

2、选择窗体Form1并双击该窗体，出现窗体的调事件的过程代码体。

3、在窗体调用的过程代码体中编制如下过程代码：

Private Sub Form_Load()

Form1.Width = 4860

Form1.Height = 2520

End Sub

4、设置窗体Form1的SartUpPosition属性为2-屏幕中心，这样运行窗体可以发现，屏幕的大小与例1.6中通过属性设置的大小是一致的。

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

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

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

先加个控件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

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.net设置焦点 vb文本框设置焦点
本文来源：http://abwzjs.com/article/hidhcg.html