Разделы
Главная

Windows API
Реестр
MS Access
Visual Basic
Download
Форум
Гостевая книга
Ссылки

E-mail

Партнерская программа WWW.PORTA.RU (on-line магазин портативной аудио, видео, фототехники). Самая щедрая, самая честная, самая популярная. Приглашаем всех веб-мастеров к участию!



Submitter.ru - Free promoting
Visual Basic

вернуться назад Как узнать состояние CapsLock?

' Как узнать состояние CapsLock?
' для работы необходимо добавить:
' TextBox и CommandButton

Private Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer


Private Sub Command1_Click()
Text1.Text = GetCapsLock
End Sub


Function GetCapsLock() As Boolean
' состояние CapsLock
' True - CapsLock включен, False - выключен
GetCapsLock = GetKeyState(vbKeyCapital)
End Function


Private Sub Form_Load()
Command1.Caption = "Обновить"
Text1.Text = ""
End Sub


Состояние CapsLock (1 448 байт)