Как реализовать Caps Lock и Enter - VB

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

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

Всем привет Помогите реализовать Caps lock и Enter на клавиатуре

Решение задачи: «Как реализовать Caps Lock и Enter»

textual
Листинг программы 
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Function GetCapsLock() As Boolean
Dim keystat(0 To 255) As Byte
  GetKeyboardState keystat(0)
  GetCapsLock = (keystat(vbKeyCapital) And 1)
End Function

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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