Как при попадании курсора на Textbox нажать на клавишу Insert? - VB
Формулировка задачи:
Подскажите пожалуста, как при попобании курсора на Textbox програмным путем нажать на клавишу Insert (замена)
Зарание спасибо.
Решение задачи: «Как при попадании курсора на Textbox нажать на клавишу Insert?»
textual
Листинг программы
Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_KEYUP = &H101 Private Const VK_INSERT = &H2D Private Sub Command1_Click() ' Установка фокуса и программное нажатие Insert Text1.SetFocus SendKeys '{INSERT}' End Sub Private Sub Command2_Click() ' Посылается программное нажатие Insert, НО ФОКУС НЕ УСТАНАВЛИВАЕТСЯ SendMessage Text1.hwnd, WM_KEYUP, VK_INSERT, 0 End Sub Private Sub Text1_GotFocus() Label1.Caption = 'Включен Insert' End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) ' Если KeyCode = 45 значит Insert MsgBox KeyCode End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д