給你個參考的例子,窗體打開時可能大小有變化,軟件名可能有變化
創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供藁城網站建設、藁城做網站、藁城網站設計、藁城網站制作等企業(yè)網站建設、網頁設計與制作、藁城企業(yè)網站模板建站服務,十載藁城做網站經驗,不只是建網站,更提供有價值的思路和整體網絡服務。
先加個控件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
這樣不好,應該使用 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())
網站名稱:vb.net焦點切換 vb設置焦點
本文路徑:http://vcdvsql.cn/article2/dosdeic.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供網站設計公司、外貿建站、網站排名、品牌網站制作、網站建設、建站公司
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)