Anasayfa > Kodlar > Visual Basic 6 ile Textbox,keydown,alt,ctrl örneği

Visual Basic 6 ile Textbox,keydown,alt,ctrl örneği


Formun üzerindeki textboxun konumunu ve boyutları klavyeden basılan tuşlara göre değiştiren program.



Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift And vbCtrlMask Then 'ctrl tuşu basılı ise
Select Case KeyCode
Case vbKeyLeft: Text1.Left = Text1.Left - 5
Case vbKeyRight: Text1.Left = Text1.Left + 5
Case vbKeyUp: Text1.Top = Text1.Top - 5
Case vbKeyDown: Text1.Top = Text1.Top + 5
End Select
End If

If Shift And vbAltMask Then 'alt tuşu basılı ise
Select Case KeyCode
Case vbKeyLeft: Text1.Width = Text1.Width - 5
Case vbKeyRight: Text1.Width = Text1.Width + 5
Case vbKeyUp: Text1.Height = Text1.Height - 5
Case vbKeyDown: Text1.Height = Text1.Height + 5
End Select
End If
End Sub


TD Software


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

Bir Yanıt Bırakı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. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: