Visual Basic 6 Nesneleri Tuş ve Butonlar ile Hareket Ettirme

Paylaşımlara tekrar tam gaz tekrar ediyorum, bugün sizlerle birlikte formumuzdaki nesneleri hareket ettireceğiz. Bunu iki şekilde yapacağız;

1. Butona basarak hareket ettirme,
2. Ok tuşları ile hareket ettirme.

İlk olarak butona basarak form nesnelerini hareket ettirmeyi göstereceğim. Hemen başlayalım.

Buton ile Nesneleri Hareket Ettirme

Formumuza; Picturebox ve 4 adet CommandButton ekleyelim. Ardından kod alanına geçelim ve kodları yazalım.

vb6 nesneleri oynatma

Private Sub Command1_Click()
‘http://vbasicturkiye.com
Picture1.Left = Picture1.Left + 100 ”’ SAĞ
End Sub

Private Sub Command2_Click()
Picture1.Left = Picture1.Left – 100 ”’ SOL
End Sub

Private Sub Command3_Click()
Picture1.Top = Picture1.Top – 100 ”’ YUKARI
End Sub

Private Sub Command4_Click()
Picture1.Top = Picture1.Top + 100 ”’ AŞAĞI
”http://vbasicturkiye.com
End Sub

butonların görevleri kodların yanında verilmiştir.

Ok Tuşları ile Nesneleri Hareket Ettirme

 Formumuza Picturebox ekliyoruz.

Form1‘ in Properties bölümünden KeyPreview bölümünü True yapıyoruz.

Kod alanına geçiyoruz ve kodları silip vereceklerimi yazıyoruz.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyRight Then Picture1.Left = Picture1.Left + 100 ‘ sağ
If KeyCode = vbKeyLeft Then Picture1.Left = Picture1.Left – 100 ‘ sol
If KeyCode = vbKeyUp Then Picture1.Top = Picture1.Top – 100 ‘yukarı
If KeyCode = vbKeyDown Then Picture1.Top = Picture1.Top + 100 ‘ aşaği
End Sub

Bugünkü konumuzda formdaki nesneleri nasıl hareket ettireceğimizi kavradık, bir başka konuda görüşmek üzere!