Как при попадании курсора на 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

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


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

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

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