用VB编写趣味撞球程序

用VB编写趣味撞球程序
一只红色的小球在箱子中不停地弹跳，你要适当地移动下面的板子挡住，别让它掉下来。

相信许多人都玩过这样的游戏，有没有想过自己编个来玩呢？
界面设计：新建一个工程，Form1的Caption属性设为“趣味撞球”，在Form1上放上一个图片框控件Picture1，一个图形控件Shape1，将Shape属性设为3，FillStyle 属性设为0，FillColor属性设为“&H000000FF&”，即红色，Shape1显示为红色实心圆作小球，一个直线控件Line1，其BorderWidth属性设为3，当做板子；一个定时器Timer1，其Interval属性设为10，Enabled属性设为False，两个标签Label1 和Label2，其Caption 属性分别为“得分”和“0”，再放两个命令按钮Command1和Command2，其Caption属性分别为“开始”和“退出”，设计好的界面如^03020501a^。

程序代码：
Option Explicit
Dim x_step As Integer
Dim y_step As Integer
Private Sub Command1_Click（）
Timer1.Enabled = Not Timer1.Enabled
＇启动或停止定时器
If Command1.Caption = “暂停” Then
Command1.Caption = “继续”
Else
Command1.Caption = “暂停”
End If
End Sub
Private Sub Command2_Click（）
End
End Sub
Private Sub Form_Load（）
x_step = 200
＇设置小球运动的速度
y_step = 200
End Sub
Private Sub Picture1_KeyDown KeyCode As Integer， Shift As Integer Select Case KeyCode
Case 37＇如果按下左箭头，使板子向左移动
If Line1.X1 <= 0 Then
Line1.X1 = 0
Line1.X2 = 2000
Else
Line1.X1 = Line1.X1 - 100
Line1.X2 = Line1.X2 - 100
End If
Case 39＇如果按下右箭头，使板子向右移动
If Line1.X2 >= Picture1.Width Then
Line1.X2 = Picture1.Width
Line1.X1 = Picture1.Width - 2000
Else
Line1.X1 = Line1.X1 + 100
Line1.X2 = Line1.X2 + 100
End If
End Select
End Sub
Private Sub Timer1_Timer（）
If Shape1.Top <= 0 Then Shape1.Top = 0:y_step = -y_step
＇如果小球出了上边界便弹回
If Shape1.Left <= 0 Then Shape1.Left = 0:x_step = -x_step
＇如果小球出了左边界便弹回
If Shape1.Left >= Picture1.Width - Shape1.Width Then Shape1.Left = Picture1.Width - Shape1.Width: x_step = -x_step
＇如果小球出了右边界便弹回
If Shape1.Top >= Line1.Y1 - Shape1.Height And Shape1.Left >= Line1.X1 And Shape1.Left <= Line1.X2 Then
＇如果小球撞在板子上，便弹回
Shape1.Top = Line1.Y1 - Shape1.Height
y_step = -y_step* 1.01＇速度增加
x_step = x_step* 1.01
Label2.Caption = Val（Label2.Caption） + 1
End If
Shape1.Top = Shape1.Top + y_step
＇使小球移动
Shape1.Left = Shape1.Left + x_step
If Shape1.Top >= Picture1.Height - Shape1.Height Then
MsgBox “你输了！”
Timer1.Enabled = False
Command1.Caption = “开始”
Shape1.Top = 1000
Label2.Caption = 0
End If
End Sub
按“F5”键运行，小球来回跳动起来，你招架得住吗？有意思吧，快试试呀！
知识点：这个程序的主要控件是Shape（形状控件）和Line（直线控件），这两个控件都是简单形状的控件。

Shape控件：主要属性有Shape、FillStyle、FillColor、Top和Left。

Shape是用来设置图形样式的，有矩形、正方形、椭圆形、圆形、带圆角的矩形和正方形等等；FillStyle 用来设置填充的样式，如设为“1”，即Transparent，便为一个透明即空心的图形，而“6”即为方格填充，还可以设置为斜线、水平线、垂直线填充；FillColor用来设置填充的颜色；Top和Left属性用来设置Shape控件的位置，在该例中，用来控制小球的移动和判断是否达到了反弹的条件。

Line控件：主要属性有Style、BorderWidth和X1、X2、Y1、Y2。

我们可以通过BorderWidth来设置直线的宽度，默认为“1”，最小为“1”；Style主要是用来设置直线的样式，如虚线、点划线等等，注意：只有当BorderWidth设置为“1”时，才能选择不同的直线样式，BorderWidth大于1时，只能画出普通直线。

X1、X2、Y1、Y2是用来设定直线的位置和长度的，在本段程序中，就是通过这几个属性来控制直线的移动的。

好了，这一期“看实例学编程”就讲到这里，下一次，我们将介绍用“PictureClip”控件编写有趣的拼图程序，请大家留意。