'Вы набираете в текстовом поле название окна, и если оно присутствует в 'системе, то вы переключитесь в него. Преимущество/недостаток: вам 'необходимо знать полное название хэндла окна.
'Разместите на форме CommandButton и TextBox. Набирая в текстовом поле 'полный заголовок окна и нажимая на кнопку, вы переключитесь в него.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowsName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal cCmdShow As Long) As Long
Private Sub Command1_Click() Dim lFoundWindow As Long Dim lOK As Long Dim lOK1 As Long Dim X As Variant lFoundWindow = FindWindow(vbNullString, Text1.Text) If lFoundWindow = 0 Then MsgBox ("Указанное вами окно не запущено") Else lOK = SetForegroundWindow(lFoundWindow) lOK1 = ShowWindow(lFoundWindow, 9) lOK1 = ShowWindow(lFoundWindow, 10) lFoundWindow = 0 lOK = 0 lOK1 = 0 End If End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Поиск hwnd процесса на панели задач", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!