Обработка нажатий кнопок мыши и клавишь клавиатуры — Basic(Бейсик)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
'///////Ловим кнопочки при свернутой проге/////////
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'Public Const VK_ADD = &H6B '[NUMPAD(+)]
'Public Const VK_ATTN = &HF6
'Public Const VK_BACK = &H8
'Public Const VK_CANCEL = &H3
'Public Const VK_CAPITAL = &H14
'Public Const VK_CLEAR = &HC
'Public Const VK_CONTROL = &H11
'Public Const VK_CRSEL = &HF7
'Public Const VK_DECIMAL = &H6E
'Public Const VK_DELETE = &H2E
'Public Const VK_DIVIDE = &H6F '[NUMPAD(/)]
'Public Const VK_DOWN = &H28
'Public Const VK_END = &H23
'Public Const VK_EREOF = &HF9
'Public Const VK_ESCAPE = &H1B
'Public Const VK_EXECUTE = &H2B
'Public Const VK_EXSEL = &HF8
'Public Const VK_F1 = &H70
'Public Const VK_F10 = &H79
'Public Const VK_F11 = &H7A
'Public Const VK_F12 = &H7B
'Public Const VK_F13 = &H7C
'Public Const VK_F14 = &H7D
'Public Const VK_F15 = &H7E
'Public Const VK_F16 = &H7F
'Public Const VK_F17 = &H80
'Public Const VK_F18 = &H81
'Public Const VK_F19 = &H82
'Public Const VK_F2 = &H71
'Public Const VK_F20 = &H83
'Public Const VK_F21 = &H84
'Public Const VK_F22 = &H85
'Public Const VK_F23 = &H86
'Public Const VK_F24 = &H87
'Public Const VK_F3 = &H72
'Public Const VK_F4 = &H73
'Public Const VK_F5 = &H74
'Public Const VK_F6 = &H75
'Public Const VK_F7 = &H76
'Public Const VK_F8 = &H77
'Public Const VK_F9 = &H78
'Public Const VK_HELP = &H2F
'Public Const VK_HOME = &H24
'Public Const VK_INSERT = &H2D
'Public Const VK_LBUTTON = &H1
'Public Const VK_LCONTROL = &HA2
'Public Const VK_LEFT = &H25
'Public Const VK_LMENU = &HA4
'Public Const VK_LSHIFT = &HA0
'Public Const VK_MBUTTON = &H4
'Public Const VK_MENU = &H12
'Public Const VK_MULTIPLY = &H6A '[NUMPAD(*)]
'Public Const VK_NEXT = &H22
'Public Const VK_NONAME = &HFC
'Public Const VK_NUMLOCK = &H90
'Public Const VK_NUMPAD0 = &H60
'Public Const VK_NUMPAD1 = &H61
'Public Const VK_NUMPAD2 = &H62
'Public Const VK_NUMPAD3 = &H63
'Public Const VK_NUMPAD4 = &H64
'Public Const VK_NUMPAD5 = &H65
'Public Const VK_NUMPAD6 = &H66
'Public Const VK_NUMPAD7 = &H67
'Public Const VK_NUMPAD8 = &H68
'Public Const VK_NUMPAD9 = &H69
'Public Const VK_OEM_CLEAR = &HFE
'Public Const VK_PA1 = &HFD
'Public Const VK_PLAY = &HFA
'Public Const VK_PAUSE = &H13
'Public Const VK_PRINT = &H2A
'Public Const VK_PRIOR = &H21
'Public Const VK_PROCESSKEY = &HE5
'Public Const VK_RBUTTON = &H2
'Public Const VK_RETURN = &HD
'Public Const VK_RCONTROL = &HA3
'Public Const VK_RIGHT = &H27
'Public Const VK_RMENU = &HA5
'Public Const VK_RSHIFT = &HA1
'Public Const VK_SCROLL = &H91
'Public Const VK_SELECT = &H29
'Public Const VK_SEPARATOR = &H6C
'Public Const VK_SHIFT = &H10
'Public Const VK_SNAPSHOT = &H2C
'Public Const VK_SPACE = &H20
'Public Const VK_STARTKEY = &H5B 'Start Menu(Наверное кнопка "ПУСК")
'Public Const VK_SUBTRACT = &H6D
'Public Const VK_TAB = &H9
'Public Const VK_UP = &H26
'Public Const VK_ZOOM = &HFB
'Public Const VK_0 = &H30
'Public Const VK_1 = &H31
'Public Const VK_2 = &H32
'Public Const VK_3 = &H33
'Public Const VK_4 = &H34
'Public Const VK_5 = &H35
'Public Const VK_6 = &H36
'Public Const VK_7 = &H37
'Public Const VK_8 = &H38
'Public Const VK_9 = &H39
'Public Const VK_A = &H41
'Public Const VK_B = &H42
'Public Const VK_C = &H43
'Public Const VK_D = &H44
'Public Const VK_E = &H45
'Public Const VK_F = &H46
'Public Const VK_G = &H47
'Public Const VK_H = &H48
'Public Const VK_I = &H49
'Public Const VK_J = &H4A
'Public Const VK_K = &H4B
'Public Const VK_L = &H4C
'Public Const VK_M = &H4D
'Public Const VK_N = &H4E
'Public Const VK_O = &H4E
'Public Const VK_P = &H50
'Public Const VK_Q = &H51
'Public Const VK_R = &H52
'Public Const VK_S = &H53
'Public Const VK_T = &H54
'Public Const VK_U = &H55
'Public Const VK_V = &H56
'Public Const VK_W = &H57
'Public Const VK_X = &H58
'Public Const VK_Y = &H59
'Public Const VK_Z = &H5A
  
  
If GetAsyncKeyState(vbKeyControl) And _
GetAsyncKeyState(vbKeyF12) Then
'...
'если нажали [Ctrl]+[F12], тогда ....

Leave a Comment