Процедура обработки события нажатия клавиши для формы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы