趣味撞球 首先启动VB5，新建一个标准的EXE 工程。此时可以看到，工程包括一个Form1 框体。在Form1 边框的右下角按住鼠标左键不放，拖动鼠标把Form1 的面积改为适当大小，比如6930×4320。再在属性框中把Form1 的ScaleMode 属性改为3－Pix el，表明我们将以像素为我们的坐标计算单位，把Form1 的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。 现在，在控件面板上选取 CommandBu tton（命令按钮）控件，为Form1 添加 Command1和 Command2 两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1 的Caption 填为“＆GO”，把Command2 的Caption 填为“＆QUIT”，并把Command1 放到框体的右上角，把Command2 放到框体的右下角。 然后，在控件面板上选取 Timer（时钟）控件，为Form1 添加一个Timer1 时钟控件。再在属性框中把它的Enabled 属性改为False，Interv al 属性改为50，前一个值表示该时钟控件是否激活，后一个值决定该时钟控件产生 Timer 事件的间隔时间，我们将用它来控制小球的移动频率。 到此为止，我们已经完成了全部的界面设计工作。接下来要做的全部工作就是填入程序代码了。 Dim BallX As Integer Dim BallY As Integer Dim AddX As Integer Dim AddY As Integer Dim HitX As Integer Dim W As Integer Dim H As Integer Priv ate Su b Command1_Click() BallX=Int(Rnd(1)＊Form1.ScaleWidth/10)＊5＋25 BallY=Int((Form1.ScaleHeight)/10)＊5 AddX=－5 AddY=－5 Form_Paint Timer1.Enabled=Tru e End Su b Priv ate Su b Command2_Click() End End Su b Priv ate Su b Form_Mou seMov e(Bu tton As Integer,Shift As Integer,X As Single,Y As Single) X=X－50 If X<15 Then X=15 If X>W－105 Then X=W－105 HitX=X If Timer1.Enabled=Tru e Then Line(16,H－5)－(W－6,H),＆HC0C0C0,BF Line(HitX,H)－(HitX＋100,H－5),0,BF End If End Su b Priv ate Su b Form_Paint() Cls W=Int((ScaleWidth－140)/5)＊5 H=Int((ScaleHeight－10)/5)＊5 BackColor=＆HC0C0C0 Line(10,10)－(15,H),0,BF Line(W－5,10)－(W,H),0,BF Line(10,10)－(W,15),0,BF End Su b Priv ate Su b Timer1_Timer() Form1.Circle(BallX,BallY),4,＆HC0C0C0 BallX=BallX＋Add...
VIP
