Çalışma Anında Buttonu Hareket Ettirmek

Bu örnekte button un keydown yordamına yazılan küçük bir kod parçasıyla butonu sağa,sola, yukarı, aşağı hareket ettirebiliriz.


Public Class Form1
Dim a As Integer = 10
Dim b As Integer = 10
Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
If e.KeyValue = Keys.W Then
a = a - 4
Button1.Top = a
ElseIf e.KeyValue = Keys.A Then
b = b - 4
Button1.Left = b
ElseIf e.KeyValue = Keys.S Then
a = a + 4
Button1.Top = a
ElseIf e.KeyValue = Keys.D Then
b = b + 4
Button1.Left = b
End If
End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.