项目六《分等级的弹球小游戏》
一、设计界面如下
二、设置属性如下
1．按钮属性设置如下
2．Picture及小球、球拍的属性设置如下
3．Timer属性设置如下
4．label属性设置如下
三、编写代码如下
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case 37 '如果按下左箭头,使板子向左移动
        If Line1.X1 <= Picture1.Left Then
          Line1.X1 = Picture1.Left
        Else
            Line1.X1 = Line1.X1 - (100 + move_x)
学编程的游戏app
            Line1.X2 = Line1.X2 - (100 + move_x)
        End If
        Case 39 '如果按下右箭头,使板子向右移动
        If Line1.X2 >= Picture1.Left + Picture1.Width Then
            Line1.X2 = Picture1.Left + Picture1.Width
        Else
            Line1.X1 = Line1.X1 + (100 + move_x)
            Line1.X2 = Line1.X2 + (100 + move_x)
        End If
    End Select
End Sub
四、作业：添加代码，使小球撞击到弹板时能随机变化颜。