Private Sub Command1_ClickCommand1Enabled = FalseCommand2Enabled = TrueLabel1Visible = TrueForm1Caption = quot单击“隐藏”按钮隐藏文字quotEnd SubPrivate Sub Command2_ClickCommand1Enabled = TrueCommand2。
给几个写的模块给你看看 Public Function LoadDatastrSQL As StringDim rst As DAORecordset Dim ctl As Control Dim fld As Object Set rst = CurrentDbOpenRecordsetstrSQL， ， dbReadOnlyIf Not rstEOF Then。
Dim ThePlayFlag As Boolean #39定义游戏有效标志Private Sub Command1_Click If Not ThePlayFlag Then Call InitPlayEnvironment Exit Sub If MsgBoxquot本局还没有下完，是否重新开始？YNquot， vbYesNo = vbNo Then Exit Sub。
最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了双击命令按钮，在代码窗口中输入如下Text3Text = ValText1Text + ValText2Text后，再单击。
1向上前进的时候，对代码进行一个详解2向上前进时，x坐标不动，y坐标1，如果下一个有食物 下一个位置的坐标和食物的坐标相同把食物转化成蛇的身体3如果蛇吃到了食物，就开始加速，并且食物的得分+24。
#39 #39下面是窗体代码，在 VB60 调试通过#39在窗体上放置下面 6 个控件#39 Option1 用于进行字符类型选择#39 Label1 用于显示下落的字符#39 Label2 用于显示游戏信息#39 Timer1 用于移动字符#39 Picture1下落字符的背景#39 Text1 用于显。
利用vb控件做个坦克大战类的游戏即可，炮弹和坦克都用控件实现就行唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断给你一个简单实现代码 这是一种碰撞检测方法，下述属于简化的矩形碰撞检测，若是需要复杂碰撞可以用。
