| |
Переключение в определенное окно |
|
| |
Вы набираете в текстовом поле название окна, и
если оно присутствует в системе, то вы
переключитесь в него. Преимущество/недостаток:
вам необходимо знать полное название хэндла
окна.
Разместите на форме 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
|
|
| |
|
|
|
|