Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Новое сообщение без темы Добавлено: 01.09.02 00:09  

Автор вопроса:  Ян | Web-сайт: www.yan.net.ru | ICQ: 816105 

Можно так:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Const VK_ESCAPE = &H1B 'Константа может быть другой, смотри ApiViewer!

Private Sub Timer1_Timer() 'Interval = 20

   If GetAsyncKeyState(VK_ESCAPE) Then
     MsgBox "Ты нажал Escape!"
   End If

End Sub

Ответить

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

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



ICQ: 816105 

Вопросов: 38
Ответов: 198
 Web-сайт: www.yan.net.ru
 Профиль | | #1
Добавлено: 01.09.02 00:10
Упс! Не туда послал:-)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам