По непонятным мне причинам событие нажатия на эту клавишу в Text1_KeyPress, Text1_KeyDown не ловится. На этом форуме нашёл решение проблемы - отключить TabStop во всех контролах на форме. После этого событие нажатия на эту нужную клавишу начинает ловиться. Код таков:
- Код: Выделить всё
Private Sub Text1_GotFocus()
For Each Control In Me.Controls
Control.TabStop = False
Next Control
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyShift Then
For Each Control In Me.Controls
Control.TabStop = True
Next Control
End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyShift Then
For Each Control In Me.Controls
Control.TabStop = False
Next Control
End If
End Sub
Private Sub Text1_LostFocus()
For Each Control In Me.Controls
Control.TabStop = True
Next Control
End Sub
В принципе всё меня устраивает в этом решении вопроса, кроме одного: При каждом нажатии клавиши компьютер пикает (подаёт звуковой сигнал аналогичный BEEP). Что делать? Помогите.
