趣味撞球--VB5應用程序一例

VisualBasic5.0(VB5)是一個功能強大的工具，它有一大特點就是易學易用，下面我們就通過寫一個“趣味撞球”的程序來初步體會一下。
　　首先啟動VB5，新建一個標准的EXE工程。此時可以看到，工程包括一個Form1框體。在Form1邊框的右下角按住鼠標左鍵不放，拖動鼠標把Form1的面積改為適當大小，比如6930×4320。再在屬性框中把Form1的ScaleMode屬性改為3－Pixel，表明我們將以像素為我們的坐標計算單位，把Form1的StartUpPosition屬性設為2－CenterScreen，使運行時窗體出現在屏幕正中。
　　現在，在控件面板上選取CommandButton（命令按鈕）控件，為Form1添加Command1和Command2兩個按鈕控件，把它們的大小設為121×25，再在屬性框中把Command1的Caption填為“＆GO”，把Command2的Caption填為“＆QUIT”，並把Command1放到框體的右上角，把Command2放到框體的右下角。
　　然後，在控件面板上選取Timer（時鐘）控件，為Form1添加一個Timer1時鐘控件。再在屬性框中把它的Enabled屬性改為False，Interval屬性改為50，前一個值表示該時鐘控件是否激活，後一個值決定該時鐘控件產生Timer事件的間隔時間，我們將用它來控制小球的移動頻率。
　　到此為止，我們已經完成了全部的界面設計工作。
　　接下來要做的全部工作就是填入程序代碼了。
　　DimBallXAsInteger
　　DimBallYAsInteger
　　DimAddXAsInteger
　　DimAddYAsInteger
　　DimHitXAsInteger
　　DimWAsInteger
　　DimHAsInteger
　　PrivateSubCommand1_Click()
　　BallX=Int(Rnd(1)＊Form1ScaleWidth/10)＊5＋25
　　BallY=Int((Form1ScaleHeight)/10)＊5
　　AddX=－5
　　AddY=－5
　　Form_Paint
　　Timer1Enabled=True
　　EndSub
　　PrivateSubCommand2_Click()
　　End
　　EndSub
　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　X=X－50
　　IfX<15ThenX=15
　　IfX>W－105ThenX=W－105
　　HitX=X
　　IfTimer1Enabled=TrueThen
　　Line(16,H－5)－(W－6,H),＆HC0C0C0,BF
　　Line(HitX,H)－(HitX＋100,H－5),0,BF
　　EndIf
　　EndSub
　　PrivateSubForm_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
　　EndSub
　　PrivateSubTimer1_Timer()
　　Form1Circle(BallX,BallY),4,＆HC0C0C0
　　BallX=BallX＋AddX
　　BallY=BallY＋AddY
　　Form1Circle(BallX,BallY),4,0
　　IfBallX<=20ThenAddX=－AddX
　　IfBallY<=20ThenAddY=－AddY
　　IfBallX>=W－10ThenAddX=－AddX
　　IfBallY>=H－10Then
　　IfBallX<HitXOrBallX>HitX＋100Then
　　Timer1Enabled=False
　　Form_Paint
　　EndIf
　　AddY=－AddY
　　EndIf
　　EndSub
　　一旦程序代碼輸入完畢，你就可以按F5開始執行它，或是在File菜單裡選取Make來生成EXE執行文件了，瞧，小球已經在你的屏幕上蹦來蹦去了。->