IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Visual Basic (https://www.ircforumlari.net/visual-basic/)
-   -   Caps Lock ve Num Lock tuşlarının durumları (https://www.ircforumlari.net/visual-basic/124713-caps-lock-ve-num-lock-tuslarinin-durumlari.html)

Cemalizim 21 Temmuz 2008 18:15

Caps Lock ve Num Lock tuşlarının durumları
 
PHP- Kodu:

 '// Kaynak: vbaccelerator.com
'
// Forma bir adet label ve bir adet timer ekleyin
'// timer'ın interval değerini 250 yapın
 
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long 
 
Private Sub Timer1_Timer() 
Dim b(0 To 254) As Byte 
Dim sMsg 
As String 
    GetKeyboardState b
(0
    If 
b(vbKeyNumlockThen 
        sMsg 
"NUM" 
    
End If 
    If 
b(vbKeyCapitalThen 
        sMsg 
sMsg " CAPS" 
    
End If 
    If (
Label1.Caption <> sMsgThen 
        Label1
.Caption sMsg 
    End 
If 
End Sub 

Alıntı


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:16.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk