Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Окна и операции с ними  
     
  Переключение в определенное окно  
  Вы набираете в текстовом поле название окна, и если оно присутствует в системе, то вы переключитесь в него. Преимущество/недостаток: вам необходимо знать полное название хэндла окна.

Разместите на форме 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
 
     
  VBNet online (всего: 51586)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам