Отлов нажатой клавиши свернутым приложением - Visual Basic .NET
Формулировка задачи:
Привет всем!
У кого есть такой код? - Форма свернута, но при нажатии клавиши на клавиатуре она записывается в ТекстБокс.
Спасибо =)
Решение задачи: «Отлов нажатой клавиши свернутым приложением»
textual
Листинг программы
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Do
- Application.DoEvents()
- If My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H41) < 0 Then 'нажата CTRL+A
- Me.Text = "CTRL+A"
- ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H58) < 0 Then 'нажата CTRL+X
- Me.Text = "CTRL+X"
- ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H43) < 0 Then 'нажата CTRL+C
- Me.Text = "CTRL+C"
- ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H56) < 0 Then 'нажата CTRL+V
- Me.Text = "CTRL+V"
- Else
- Me.Text = Nothing
- End If
- Loop
- End Sub
- 'Или вот так еще:
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Do
- Application.DoEvents()
- Select Case Control.ModifierKeys
- Case Keys.Control
- If GetAsyncKeyState(Keys.A) Then Me.Text = "CTRL+A"
- If GetAsyncKeyState(Keys.X) Then Me.Text = "CTRL+X"
- If GetAsyncKeyState(Keys.C) Then Me.Text = "CTRL+C"
- If GetAsyncKeyState(Keys.V) Then Me.Text = "CTRL+V"
- Case Else
- Me.Text = Nothing
- End If
- End Select
- Loop
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д