caps lock kapatılırsa

[ildizim]

USER formu açarkan AUTO OPEN DA;
CreateObject("Wscript.Shell").SendKeys "{CAPSLOCK}"

Kullanalar büyük harfe getiriyorum kullanıcı caps locku kapatırsa bunu anlayan ve msj boxla bir uyarı veren makro arıyorum. yardımlarınızı bekliyorum.
teşekkürler

Bu forum olmasa napardım bilmmem

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Sub capslockdurum()
If GetKeyState(vbKeyCapital) = 0 Then MsgBox "Caps Lock tuşu kapalıdır."
End Sub

 

[emrexcel123]

alternatif

sn levetm hocam ufak bir şey ekledim affınıza sığınarak beni maruz görün şu kodu ekledim sadece
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Sub capslockdurum()
If GetKeyState(vbKeyCapital) = 0 Then MsgBox "Caps Lock tuşu kapalıdır."
If GetKeyState(vbKeyCapital) = 1 Then MsgBox "Caps Lock tuşu açıkdır."
End Sub
şeklinde

 

[ildizim]

merhaba,

bu kodları userformun en tepesine kopyaladım ama microsof visual basic compile hatası alıyorum. yanlış bir yere kopyalıyorum galiba nereye kopyalamam lazım. teşekkürler

 

[veyselemre]

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


Yukarıdaki api kısmını modüle koymalısınız.


If GetKeyState(vbKeyCapital) = 0 Then MsgBox "Caps Lock tuşu kapalıdır."
If GetKeyState(vbKeyCapital) = 1 Then MsgBox "Caps Lock tuşu açıkdır."


kısmını formda buton click olayına yazabilirsiniz.

 

[ildizim]

teşekkürlerrr,,,, levent, emre, veysel emre

 

[Orion1]

Arkadaşlar. aşğıdaki kodu userformun declare kısmına yazıyorum.ama üstünü koyu renkle bıyayıp hata veriyor.

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

 

[Orion1]

Alttaki kod boş bir standart modüle kopyalanınca oldu.

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