Soru Capslock Uyarısı Alma

[Gkhnozn]

Merhabalar, rica ediyorum yardım. Defalarca uğraştım, Türkçe veya yabancı kaynaklardan arama yaptım fakat sonuç alamadım.

İsteğim şu: Bir adet userformum var ve bir yerine Label1 adında bir label ekledim. Userform açıldığında eğer capslock tuşu açıksa label'da "CAPSLOCK AÇIK" uyarısı versin kapatilinca uyari görünmesin ve diyelim ki userform acikkende capslock açılırsa yine "CAPSLOCK AÇIK" uyarısı versin.
Yardımlarınızı bekliyor, şimdiden teşekkür ediyorum.

 

[Haluk]

UserForm ekranda aktifken devamlı olarak CapsLock tuşunu kontrol etmek Excel'i çok yorar.

Onun için, belli bir olay olduğunda kontrol etmek daha mantıklı. Örneğin, aşağıdaki kod UserForm ilk çalıştırıldığında, UserForm'un boş bir yere sol tık yapıldığında, UserForm hareket ettirildiğinde ve UserForm üzerindeki TextBox'a mouse ile tıklanarak girildiğinde Label1 nesnesinde durumu belirtir.

Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const kCapital = 20
'
Public Function CapsLock() As Boolean
CapsLock = KeyState(kCapital)
End Function
'
Private Function KeyState(lKey As Long) As Boolean
KeyState = CBool(GetKeyState(lKey))
End Function
'
Private Sub TextBox1_Enter()
    Label1 = IIf(CapsLock, "Caps Lock - KAPALI", "Caps Lock - AÇIK")
End Sub
'
Private Sub UserForm_Click()
    Label1 = IIf(CapsLock, "Caps Lock - KAPALI", "Caps Lock - AÇIK")
End Sub
'
Private Sub UserForm_Initialize()
    Label1 = IIf(CapsLock, "Caps Lock - KAPALI", "Caps Lock - AÇIK")
End Sub
'
Private Sub UserForm_Layout()
    Label1 = IIf(CapsLock, "Caps Lock - KAPALI", "Caps Lock - AÇIK")
End Sub

.

 

[Gkhnozn]

Çok güzel çalıştı, çok çok teşekkür ederim.