用VB编写趣味撞球程序 云飞 2001年 3期 一只红色的小球在箱子中不停地弹跳，你要适当地移动下面的板子挡住，别让它掉下来。相信许多人都玩过这样的游戏，有没有想过自己编个来玩呢？ 　　 界面设计：新建一个工程，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”控件编写有趣的拼图程序，请大家留意。