New Document

CapsLock, NumLock Açık Kapalı Kontrol

Arkadaşlar bu örneğimizde CapsLock, NumLock, ScrollLock açık mı kapalı mı olduğunu kontrol edeceğiz. Formunuzu 1 adet Timer, 3 adet Label ve TextBox ekleyin. Aşağıdaki şekilleri inceleyin.

Resim1

Şekil 1

Şekil 2 de de çalışma anında yapılan değişikliği görebilirsiniz. Bir sonraki makalede CapsLock, Numlock tuşuna basıldığı zaman uyarı mesajı verecek olan küçük örneğimizi göreceğiz.

Resim2

Şekil 2

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer1.Interval = 1000
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If (My.Computer.Keyboard.NumLock) Then
            TextBox1.Text = "AÇIK"
        Else
            TextBox1.Text = "KAPALI"
        End If

        If (My.Computer.Keyboard.CapsLock) Then
            TextBox2.Text = "AÇIK"
        Else
            TextBox2.Text = "KAPALI"
        End If

        If (My.Computer.Keyboard.ScrollLock) Then
            TextBox3.Text = "AÇIK"
        Else
            TextBox3.Text = "KAPALI"
        End If
    End Sub

Bir sonraki makalede görüşmek üzere. Bahadır