Отлов нажатой клавиши свернутым приложением - Visual Basic .NET

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

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

Привет всем! У кого есть такой код? - Форма свернута, но при нажатии клавиши на клавиатуре она записывается в ТекстБокс. Спасибо =)

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

textual
Листинг программы
  1.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.         Do
  3.             Application.DoEvents()
  4.             If My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H41) < 0 Then    'нажата CTRL+A
  5.                 Me.Text = "CTRL+A"
  6.             ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H58) < 0 Then    'нажата CTRL+X
  7.                 Me.Text = "CTRL+X"
  8.             ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H43) < 0 Then    'нажата CTRL+C
  9.                 Me.Text = "CTRL+C"
  10.             ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H56) < 0 Then    'нажата CTRL+V
  11.                 Me.Text = "CTRL+V"
  12.             Else
  13.                 Me.Text = Nothing
  14.             End If
  15.         Loop
  16.     End Sub
  17.  
  18.     'Или вот так еще:
  19.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  20.         Do
  21.             Application.DoEvents()
  22.             Select Case Control.ModifierKeys
  23.                 Case Keys.Control
  24.                     If GetAsyncKeyState(Keys.A) Then Me.Text = "CTRL+A"
  25.                     If GetAsyncKeyState(Keys.X) Then Me.Text = "CTRL+X"
  26.                     If GetAsyncKeyState(Keys.C) Then Me.Text = "CTRL+C"
  27.                     If GetAsyncKeyState(Keys.V) Then Me.Text = "CTRL+V"
  28.                 Case Else
  29.                     Me.Text = Nothing
  30.                 End If
  31.             End Select
  32.         Loop
  33.     End Sub

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


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

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

13   голосов , оценка 4.308 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут