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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Temmuz 2008, 18:15   #1
Çevrimdışı
Yardımcı Admin
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Caps Lock ve Num Lock tuşlarının durumları




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 '// 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ı

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Cevapla

Etiketler
caps, durumları, lock, num, tuşlarının


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Caps lock Koruması Sorun TİGeR mIRC Scripting Sorunları 4 08 Ağustos 2011 17:26