Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » CapsLock açık mı değil mi? Çok basit...
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

YUVARLA() Fonksiyonu

Yazar: Webmaster

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 6875
Yayın Tar:13.04.2006
Yazar : BarBaROssa
Hit :3517

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Tek yapacağınız aşağıdakini bir Modüle eklemek.
Daha sonra If CapslockAcik=True veya =False olarak projenizde istediğiniz gibi kullanın...



Option Explicit

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

Public Function CapsLockAcik() As Boolean
Dim iKeyState As Integer
iKeyState = GetKeyState(vbKeyCapital)
CapsLockAcik = (iKeyState = 1 Or iKeyState = -127)
End Function




Yorumlar, eklemeler ve düşünceler
        aRkaDaşIm bir ÇalIşSa eyyyyyyyy :)

   Fatih_dp, 14.04.2006 23:45
   Vallaha ben aynen böyle kullanıyorum...Çatır çatır çalışıyor :)
Ne hatası veriyor ki sende???
Onu söyle yardımcı olalım dostum ;)


Option Explicit

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

Public Function CapsLockOn() As Boolean
Dim iKeyState As Integer
iKeyState = GetKeyState(vbKeyCapital)
CapsLockOn = (iKeyState = 1 Or iKeyState = -127)
End Function

Private Sub Text1_Change()
Timer2.Enabled = True
Form1.Visible = True
End Sub

Private Sub Timer1_Timer()
If CapsLockOn = True Then
Label1.Caption = "CapsLock Açık"
Text1 = Label1.Caption

Else
Label1.Caption = "CapsLock Kapalı"
Text1 = Label1.Caption

End If
End Sub

Private Sub Timer2_Timer()
Form1.Visible = False
Timer2.Enabled = False
End Sub


   BarBaROssa, 15.04.2006 15:41
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin