Страница: 1 | 
		
		 
			   
			 
			 Можно так: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Const VK_ESCAPE = &H1B 'Константа может быть другой, смотри ApiViewer Private Sub Timer1_Timer() 'Interval = 20 End Sub 
			 
			 Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: Новое сообщение без темы                          
     
    
Добавлено: 01.09.02 00:09
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
     Ян | Web-сайт: www.yan.net.ru | ICQ: 816105
 Ян | Web-сайт: www.yan.net.ru | ICQ: 816105 
      
       
  
 
     !
!
   If GetAsyncKeyState(VK_ESCAPE) Then
     MsgBox "Ты нажал Escape!"
   End If
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 1
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа: Ян
 Ян


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