| Вопрос: как сделать WindowState=1 для всех окон | Добавлено: 11.07.07 15:28 |
Автор вопроса:  KreAtoR
|
|
На панели есть кнопка которая сворачивает все окна и показывает Рабочий стол. Как сделать и VB6 что бы при нажатии кнопки сворачивались все окна на рабочем столе. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 11.07.07 15:40 |
|
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_LWIN = &H5B Const KEYEVENTF_KEYUP = &H2 Private Sub Command1_Click() 'менимизировать все окна Call keybd_event(VK_LWIN, 0, 0, 0) Call keybd_event(&H4D, 0, 0, 0) Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0) End Sub Private Sub Command2_Click() 'менимизировать Окно Me.WindowState = vbMinimized End Sub |
||
|
Номер ответа: 2 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #2 | Добавлено: 11.07.07 15:56 |
| Пасибо любезнейший | ||
Страница: 1 |