最正統(tǒng)的方法是把textbox1的tabindex屬性設(shè)為0(其他控件的tabindex不能是0)
七星網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)公司!從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、自適應(yīng)網(wǎng)站建設(shè)等網(wǎng)站項目制作,到程序開發(fā),運營維護。創(chuàng)新互聯(lián)公司自2013年起到現(xiàn)在10年的時間,我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗,來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。
要在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
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.NET,點擊其中一個“tab order”的圖標(biāo),此時您可以單擊每個控件的數(shù)字(越小越表示越容易被聚焦),NET默認就可以用Tab進行焦點切換(順序就是按照數(shù)字從小到大的順序)。 至于按Enter自動切換,您需要自行在支持按鍵的控件事件中(比如TextBox)的KeyPress事件中編寫代碼: private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
{
if (e.KeyChar == 13)
{
XXX(控件).Focus();
}
}
最正統(tǒng)的方法是把TextBox1的TabIndex屬性設(shè)為0(其他控件的TabIndex不能是0)
要在Load事件里用TextBox1.Focus()也可以,但要先Me.Show(),否則不會起作用。因為控件得到焦點需要控件”可見可用“,在FormLoad階段整個窗體是“不可見"的,需要強制使用Me.Show()。
這樣不好,應(yīng)該使用 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
Public RunProcess As Process
RunProcess.start("djiwqjidjwqi")
AppActivate(RunProcess.Id())
網(wǎng)站標(biāo)題:vb.net切換控件焦點,vb窗體失去焦點
網(wǎng)站鏈接:http://vcdvsql.cn/article14/heopde.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供ChatGPT、App設(shè)計、靜態(tài)網(wǎng)站、Google、響應(yīng)式網(wǎng)站、網(wǎng)站維護
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)