Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Мышь и клавиатура  
     
  Как определить, какая клавиша нажата?  
  'Вариант 1

'Добавьте 1 Label

Option Explicit
Dim iKeyCode As Integer
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
iKeyCode = KeyCode
Label1.Caption = "Код нажатой клавиши: " & iKeyCode
If iKeyCode = 112 Then 'нажата клавиша F1
'Здесь вы можете вставить любую процедуру
End If
End Sub

'Вариант 2

'Достаточно простой проект, который покажет вам, какие клавиши вы нажимаете

Dim temp As String
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim kascci
kascci = Chr(KeyAscii)
temp = "Key Ascii = " + Str(KeyAscii) + " = " + " Char = " + kascci
If KeyAscii = 13 Then 'нажимая <Enter>, вы очистите форму
Form1.Cls
Else
Print temp 'печать KeyAscii и саму букву на форме
End If
End Sub
Private Sub Form_Load()
Form1.FontSize = 12
End Sub
 
     
  VBNet online (всего: 51586)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам