VBNet - Форум - Меню Пуск????

Вопрос: Меню Пуск???? Добавлено: 01.10.03 10:29

Автор вопроса: Dok | Web-сайт: www.dulevo.ru | ICQ: 261977520

Как по нажатию клавиши или кнопки в моей проге открыть меню пуск...?

как будто бы я нажал на кнопку пуск????

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

ZeroX

ICQ: 220401330

Вопросов: 47
Ответов: 406

Профиль | | #1

Добавлено: 01.10.03 11:07

Эмулируй нажатие клавиши Windows или Ctrl+Esc

Ответить

Номер ответа: 2
Автор ответа:
Silent_Sky

ICQ: 134433

Вопросов: 25
Ответов: 44 Профиль | | #2 Добавлено: 01.10.03 11:30

Дык мона послать системе сочетания клавиш Ctrl + Esc, те и откроется меню Пуск.

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Платформа

Windows 95: Поддерживает.
Windows 98: Поддерживает,но устарела;пользуйтесь SendInput.
Windows NT: Требуется Windows NT 3.1 или выше,но устарела для Windows NT 4.0 с Service Pack 3 (SP3) или выше;пользуйтесь SendInput.
Windows 2000: Поддерживает,но устарела;пользуйтесь SendInput.
Windows CE: Требуется Windows CE 1.0 или выше,но устарела для Windows CE 2.0 или выше; пользуйтесь SendInput.

Пример:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VK_CONTROL = &H11
Const VK_ESCAPE = &H1B

Private Sub Command1_Click()
   keybd_event VK_CONTROL, 0, 0, 0 ' нажимаем CTRL
   keybd_event VK_ESCAPE, 0, 0, 0 ' нажимаем ESC
   keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0 ' отпускаем CTRL
   keybd_event VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0 ' отпускаем ESC
End Sub

Ответить

Номер ответа: 3
Автор ответа:

Silent_Sky

ICQ: 134433

Вопросов: 25
Ответов: 44

Профиль | | #3

Добавлено: 01.10.03 11:35

Угу, или на Windows имитировать, но не знаю как поведет себя прога со старыми клавами на которых нет такой клавиши...

Пример:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VK_STARTKEY = &H5B

Private Sub Command2_Click()
keybd_event VK_STARTKEY, 0, 0, 0
keybd_event VK_STARTKEY, 0, KEYEVENTF_KEYUP, 0
End Sub

Ответить

Страница: 1 |