title image


Smiley Re: Festellen ob CapsLook eingeschaltet?
Hi,



   Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long    Private Function CapsLock() As Integer          CapsLock = GetKeyState(&H14) And 1 = 1  End Function    Private Sub Form_Load()  if CapsLock()=1 then          msgbox "CapsLock aktiviert"  else          msgbox "CapsLock deaktiviert"  end if  End Sub   

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: