小时候经典游戏用VB编的编写实例教程大全全!.docVIP

这些游戏以前玩过吧，快下载看它们 是怎么编写的！ 目录： ·编写趣味撞球小游戏 ·用设计简易赛车游戏 Visual Basic 小游戏：猜英雄 VB 游戏写作技巧（ 1）秀图篇 VB 游戏写作技巧（ 2）网络篇 VB 贪吃蛇 单人版游戏 (一 ) ·VB 贪吃蛇 单人版游戏 (二 ) ·VB 贪吃蛇 单人版游戏 (三 ) ·VB 贪吃蛇 单人版游戏 (四 ) ·用 VB 开发即时战略游戏 正文： 编写趣味撞球小游戏 文章来源： 沐风经典 文章作者： 佚名 Visual Basic 是一个功能强大的工具， 它有一大特点就是易学易用， 下面我们就通过写一 个“趣味撞球” 的程序来初步体会一下。 首先启动 VB5，新建一个标准的 EXE工程。此时可以看到，工程包括一个 Form1 框体。 在 Form1 边框的右下角按住鼠标左键不放，拖动鼠标把 Form1 的面积改为适当大小，比如 6930 ×4320。再在属性框中把 Form1 的 ScaleMode 属性改为 3－Pixel，表明我们将以像素 为我们的坐标计算单位，把 Form1 的 StartUpPosition 属性设为 2－ CenterScreen，使运行时 窗体出现在屏幕正中。 和  现在，在控件面板上选取 CommandButton （命令按钮） 控件，为 Form1 Command2 两个按钮控件，把它们的大小设为 121× 25，再在属性框中把  添加 Command1 Command1 的 Caption 填为“＆ GO”，把 Command2 的 Caption 填为“＆ QUIT”，并把 Command1 放到框体 的右上角，把 Command2 放到框体的右下角。 然后，在控件面板上选取 Timer （时钟）控件，为 Form1 添加一个 Timer1 时钟控件。再在属性框中把它的 Enabled 属性改为 False，Interval 属性改为 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 Private Sub Command1_Click() BallX=Int(Rnd(1)＊10)＊ 5＋ 25 BallY=Int(/10) ＊ 5 AddX=－ 5 AddY=－5 Form_Paint =True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) X=X－50 If X15 Then X=15 If XW－ 105 Then X=W－ 105 HitX=X If =True Then Line(16,H－ 5)－ (W－6,H),＆ HC0C0C0,BF Line(HitX,H)－ (HitX＋ 100,H－ 5),0,BF End If End Sub Private Sub 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 Sub Private Sub Timer1_Timer() (BallX,BallY),4,＆HC0C0C0 BallX=BallX＋ AddX BallY=BallY＋ AddY (BallX,BallY),4,0 If BallX=20 Then AddX=－AddX If BallY=20 Then AddY=－AddY If BallX=W－ 10 Then AddX=－AddX If BallY=H－ 10 Then If BallXHitX＋ 100 Then =False Form_Paint End If AddY=－AddY End If End Sub 一旦程序代码输入完毕，你就可以按 F5 开始执行它，或是在 File 菜单