Изображение Окна .Hidden

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Taras2
Обычный пользователь
Обычный пользователь
 
Сообщения: 82
Зарегистрирован: 20.06.2003 (Пт) 12:13

Изображение Окна .Hidden

Сообщение Taras2 » 19.09.2003 (Пт) 12:14

Привет All!
1. Нужно получить изображение окна созданного другой прогой и находящегося в состоянии .Hidden .
2. Как перевести это окно в состояние .Show ?
3. А также нужно передавать этому .Hidden окну клики мышкой.
ЗЫ. Нужно для написания нечто вроде системы X Window.
Кто, что знает, помнит, когда-то делал подскажите. Можно на мыло.
Спасибо!

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 19.09.2003 (Пт) 18:58

'Значит, так...

'2 По-моему, можно воспользоваться

Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'Ты ведь знаешь заголовок окна? :)

'А передавать окну клики можно через SendMessage:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDBLCLK = &H203
Private Const SW_SHOW = 5

YourWindowHwnd=FindWindow(vbNullString, YourWindowTitle)
SendMessage YourWindowHwnd, WM_LBUTTONDBLCLK, 0, 0
ShowWindow YourWindowHwnd, SW_SHOW

'По-моему, всё правильно (но я не проверял) :oops:
'Если что, пиши - разберёмся...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 12

    TopList