Ç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