Başlangıç > Kodlar > Visual Basic 6 ile Textbox,keyup,keydown örneği

Visual Basic 6 ile Textbox,keyup,keydown örneği


Klavyeden basılan tuşları  textboxta gösteren program.


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyTab: Text1.Text = "tab tuşuna basıldı"
Case vbKeyShift: Text1.Text = "Shift tuşuna basıldı"
Case vbKeyControl: Text1.Text = "Control tuşuna basıldı"
Case vbKeySpace: Text1.Text = "Space tuşuna basıldı"
End Select
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyTab: Text1.Text = "tab tuşuna basıldı"
Case vbKeyShift: Text1.Text = "Shift tuşuna basıldı"
Case vbKeyControl: Text1.Text = "Control tuşuna basıldı"
Case vbKeySpace: Text1.Text = "Space tuşuna basıldı"
End Select
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: