Как передать фокус командной кнопке клавишей клавиатуры не исполняя кода - VB

Узнай цену своей работы

Формулировка задачи:

При написании программы управления прессом работа мышью- никаких проблем. Требуется продублировать на клавиатуре, то есть при нажатии на клавишу по ее коду передать фокус на соответствующую Command button. Отдельная клавиша запускает код исполнения, здесь без проблем. Поиск в инете и литературе не дал вразумительного результата. Последний раз программировал на Бейсике в конце 80-х на самодельном Радио-86РК. Если поможете, то справлюсь. Заранее благодарен.

Решение задачи: «Как передать фокус командной кнопке клавишей клавиатуры не исполняя кода»

textual
Листинг программы
Option Explicit
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
 
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyA ' Нажата А
    Putfocus Command3.hwnd ' Поставить фокус на Command3
    Case vbKeyB ' B
    Putfocus Command4.hwnd ' Поставить фокус на Command3
End Select
End Sub

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


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

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

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