Как переключиться в любое окно? - Интерфейс - Интересные решения для программистов - Примеры кода

Интерфейс → Как переключиться в любое окно? → Visual Basic

Создайте стандартный EXE-проект. На форме (Form) разместите элемент TextBox и CommandButton. Вставьте ниже следующий код и запустите проект (клавиша F5). В текстовое поле (Text1) введите заголовок, либо часть заголовка, любого окна и нажмите на кнопку (Command1).

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 Declare Function GetWindowText _ 
     Lib "user32" Alias "GetWindowTextA" _ 
     (ByVal hwnd As Long, ByVal lpString As String, _ 
     ByVal cch As Long) As Long 
Private Declare Function GetWindowTextLength _ 
     Lib "user32" Alias "GetWindowTextLengthA" _ 
     (ByVal hwnd As Long) As Long 
Private Declare Function GetNextWindow _ 
     Lib "user32" Alias "GetWindow" _ 
    (ByVal hwnd As Long, _ 
    ByVal wFlag As Long) As Long

Private Function GetCaption(lhWnd As Long) As String 
 Dim sA As String, lLen As Long 
 lLen = GetWindowTextLength(lhWnd) 
 sA = String(lLen, 0) 
 GetWindowText lhWnd, sA, lLen + 1 
 GetCaption = sA 
End Function

Private Function DLHFindWin(frm As Form, WinTitle As String, _ 
    CaseSensitive As Boolean) As Long 
 Dim lhWnd As Long, sA As String 
 lhWnd = frm.hwnd 
 Do 
  DoEvents 
  If lhWnd = 0 Then Exit Do 
  If CaseSensitive = False Then 
   sA = LCase(GetCaption(lhWnd)) 
   WinTitle = LCase(WinTitle) 
  Else 
   sA = GetCaption(lhWnd) 
  End If 
  If InStr(sA, WinTitle) Then 
   DLHFindWin = lhWnd 
   Exit Do 
  Else 
   DLHFindWin = 0 
  End If 
  lhWnd = GetNextWindow(lhWnd, 2) 
 Loop 
End Function

Private Sub Command1_Click() 
 Dim lFoundWindow As Long 
 Dim lOK As Long 
 Dim lOK1 As Long 
 Dim X As Variant 
 lFoundWindow = FindWindow(vbNullString, GetCaption(DLHFindWin(Me, Text1, False))) 
 If lFoundWindow = 0 Then 
  MsgBox "Окно не найдено!", vbExclamation 
 Else 
  lOK = SetForegroundWindow(lFoundWindow) 
  lOK1 = ShowWindow(lFoundWindow, 9) 
  lOK1 = ShowWindow(lFoundWindow, 10) 
  lFoundWindow = 0 
  lOK = 0 
  lOK1 = 0 
 End If 
End Sub

Private Sub Text1_Click() 
 Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text) 
End Sub

switch, vb, visual basic, window

KOS_MOS

unknown

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Интерфейс → Как переключиться в любое окно? → Visual Basic Создайте стандартный EXE-проект. На форме (Form) разместите элемент TextBox и CommandButton. Вставьте ниже следующий код и запустите проект (клавиша F5). В текстовое поле (Text1) введите заголовок, либо часть заголовка, любого окна и нажмите на кнопку (Command1). 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 Declare Function GetWindowText _ Lib "user32" Alias "GetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString As String, _ ByVal cch As Long) As Long Private Declare Function GetWindowTextLength _ Lib "user32" Alias "GetWindowTextLengthA" _ (ByVal hwnd As Long) As Long Private Declare Function GetNextWindow _ Lib "user32" Alias "GetWindow" _ (ByVal hwnd As Long, _ ByVal wFlag As Long) As Long Private Function GetCaption(lhWnd As Long) As String Dim sA As String, lLen As Long lLen = GetWindowTextLength(lhWnd) sA = String(lLen, 0) GetWindowText lhWnd, sA, lLen + 1 GetCaption = sA End Function Private Function DLHFindWin(frm As Form, WinTitle As String, _ CaseSensitive As Boolean) As Long Dim lhWnd As Long, sA As String lhWnd = frm.hwnd Do DoEvents If lhWnd = 0 Then Exit Do If CaseSensitive = False Then sA = LCase(GetCaption(lhWnd)) WinTitle = LCase(WinTitle) Else sA = GetCaption(lhWnd) End If If InStr(sA, WinTitle) Then DLHFindWin = lhWnd Exit Do Else DLHFindWin = 0 End If lhWnd = GetNextWindow(lhWnd, 2) Loop End Function Private Sub Command1_Click() Dim lFoundWindow As Long Dim lOK As Long Dim lOK1 As Long Dim X As Variant lFoundWindow = FindWindow(vbNullString, GetCaption(DLHFindWin(Me, Text1, False))) If lFoundWindow = 0 Then MsgBox "Окно не найдено!", vbExclamation Else lOK = SetForegroundWindow(lFoundWindow) lOK1 = ShowWindow(lFoundWindow, 9) lOK1 = ShowWindow(lFoundWindow, 10) lFoundWindow = 0 lOK = 0 lOK1 = 0 End If End Sub Private Sub Text1_Click() Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text) End Sub switch, vb, visual basic, window KOS_MOS unknown 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt