Как передать фокус командной кнопке клавишей клавиатуры не исполняя кода - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д