Процедура обработки события нажатия клавиши для формы - VB
Формулировка задачи:
Как правильно написать процедуру обработки события нажатия клавиши для формы (нажатие комбинаций клавиш с ALT, SHIFT или CTRL)?
Есть наработки
Решение задачи: «Процедура обработки события нажатия клавиши для формы»
textual
Листинг программы
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton And Shift = vbShiftMask Then Command1.BackColor = QBColor(10) If Button = vbLeftButton And Shift = vbCtrlMask Then Command1.BackColor = QBColor(7) If Button = vbLeftButton And Shift = vbAltMask Then Command1.Top = 1000 End Sub Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Boolean Dim b As Boolean Dim c As Boolean a = vbLeftButton And (Shift = vbShiftMask + vbAltMask) b = vbLeftButton And (Shift = vbShiftMask) c = vbLeftButton And (Shift = vbCtrlMask + vbAltMask) If a Then Command2.BackColor = QBColor(5) If b Then Command2.BackColor = QBColor(7) If c Then Command2.Top = 1000 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д