vb.net坦克大战2

版权声明： https://blog.csdn.net/eds124/article/details/82314672

Public Class Form1
    Private y As Integer = 900, x As Integer = 900

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim k As Keys = e.KeyCode
        If Keys.E = k And y > 0 Then
            y -= 100
        ElseIf Keys.D = k And y < 900 Then
            y += 100
        ElseIf Keys.S = k And x > 0 Then
            x -= 100
        ElseIf Keys.F = k And x < 1800 Then
            x += 100
        End If
        Me.Refresh()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.BackColor = Color.Black
        Me.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        g.DrawRectangle(Pens.Red, x, y, 100, 100)
        g.DrawRectangle(Pens.Red, x + 25, y + 25, 50, 50)
        g.DrawRectangle(Pens.Red, x + 45, y, 10, 25)
        g.DrawRectangle(Pens.Red, x + 45, 0, 10, y)
    End Sub
End Class