欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 7622 人关注过本帖
标题：VB怎样关闭正在运动的窗体form2，显示form1？
等　级：新手上路
帖　子：32
结帖率：88.89%
&&已结贴√
&&问题点数：20&&回复次数：3&&&
VB怎样关闭正在运动的窗体form2，显示form1？
VB怎样关闭正在运动的窗体form2，显示form1？我用unload form2:form1.show后，为什么form2还继续后台运行？请教高手！
(以下为相关代码）
Private Sub Timer1_Timer()
&&Dim i As Integer, js1
&&For i = 0 To Label1.Count - 1
&&& Label1.Item(i).Top = Label1.Item(i).Top + 40
&&If Label1.Item(i).Top & 8000 Then
&&& js1 = MsgBox(&游戏结束！再玩一次？&, vbYesNo, &游戏结束&)&&&'如果某个随机字符下降到一定高度，则弹出“是否重玩”消息框
&&& If js1 = vbYes Then&&&&&&&&&&&&'如果用户按了“是”按钮，重玩游戏
&&&&&&Dim frm As Form
&&&&&&Unload Me
&&&&&&mand = &close&
&&&&&&shezhi.Show
&&& ElseIf js1 = vbNo Then
&&& End If
&&Label2.Caption = H&&&&&&&&&&&&&&& '显示实时的打字成绩
搜索更多相关主题的帖子:
等　级：版主
威　望：167
帖　子：3837
专家分：23459
&&得分:20&
unload form2:form1.show
你语句顺序问题。
当关闭自己
语句后还有需要执行的命令时，会导致窗体隐性加载。
所以 你上面的命令应该写成
form1.show
unload form2&&&&&&'在这之后，不得再出现任何需要执行的命令
'end if&&&&&&&&&&&'非执行语句，可以
end sub&&&&&&&&&&&'过程结束，必需
授人于鱼，不如授人于渔
早已停用QQ了
等　级：新手上路
帖　子：32
回复 2楼 风吹过b
关键我要使用FOR循环语句，用for循环来判断标签数组控件每个元素的Top是否&8000,如果找到某个TOP&8000,则则弹出Msgbox,提示是否重来，如果按了“是”,则关闭当前窗体，加载游戏设置窗体，我把代码给你，麻烦帮我看一下。（解决?：按了“是”后，还再次弹出msgbox，我不想让他出现。）
第一个窗体：shezhi.frm代码
Option Explicit
Public speed As Integer, nd As Integer
Private Sub CmdExit_Click()
Private Sub Cmdok_Click()
&&If (speed && 1 And speed && 2 And speed && 3) Or (nd && 1 And nd && 2 And nd && 3) Then&&&'如果没有选择速度或难度，则弹出消息提示框
&&& MsgBox &请选择速度与难度！&, vbOK, &&
&&& Unload Me&&&'卸载游戏设置窗体
&&& Form1.Show&&'显示游戏窗体
Private Sub Form_Load()
Private Sub nOption1_Click()
Private Sub nOption2_Click()
Private Sub nOption3_Click()
Private Sub sOption1_Click()
&&speed = 1
Private Sub sOption2_Click()
&&speed = 2
Private Sub sOption3_Click()
&&speed = 3
第二个窗体form1.frm代码
Option Explicit
Dim H As Integer '声明模块级变量-成绩
Public c As Integer '声明模块级变量-随机字符的ASCII码值
Private Sub Form_KeyPress(KeyAscii As Integer)
&&Dim i As Integer
&&For i = 0 To Label1.Count - 1
&&& If Chr(KeyAscii) = Label1.Item(i).Caption And Label1.Item(i).Top & 0 And Label1.Item(i).Top & 10000 Then&&'如果用户的按键与窗口出现的字符相同
&&&&&&Randomize&&& '初始化随机数生成器
&&&&&&H = H + 2&&& '用户每击中一个字符，成绩加2分
&&&&&&Image1.Top = Label1.Item(i).Top&&&&&&&&&&&&'击中效果图片的TOP与当前击中的字符TOP相同
&&&&&&Image1.Left = Label1.Item(i).Left - 100&&& '击中效果图片的LEFT与当前击中的字符TEFT相同
&&&&&&Image1.Visible = True&&&&&&&&&&&&&&&&&& '击中某个字符，则显示击中效果图片
&&& If shezhi.nd = 1 Then
&&&&&&c = Int((122 - 97 + 1) * Rnd + 97)
&&& ElseIf shezhi.nd = 2 Then
&&&&&&c = Int((90 - 65 + 1) * Rnd + 65)
&&& ElseIf shezhi.nd = 3 Then
&&&&&&c = Int((126 - 48 + 1) * Rnd + 48)
&&& End If
&&&&&&Label1.Item(i).Caption = Chr(c)&&&&&&&&& '将产生的随机字符赋值给标签数组中个标签元素的Caption
&&&&&&Label1.Item(i).Top = 0 - 538 * i
&&&&&&Label1.Item(i).Left = Int(20000 * Rnd + 1)&&&&&'随机字符在窗体的定位
&&&&&&mand = &close&
&&&&&&MMControl1.FileName = App.Path & &\HAMMER.WAV&
&&&&&&mand = &open&
&&&&&&mand = &play&&&&&&&&&&&&&&&&&&&&&&&&'用户击中某个显示的字符的瞬间，播放该击中效果音
&&& End If
&&If KeyAscii = 27 Then&&&&&&&&&&&&&&&&&& '如果用户按了ESC键
&&& Y = MsgBox(&确定要退出吗？&, vbYesNo, &退出操作&)&&& '弹出消息框
&&& If Y = vbYes Then&&&&&&&&&&&&'如果用户选择“是”按钮
&&&&&&MsgBox &您现在的得分：& & H & &分&, , &成绩&&&&&&&&&&&&&&&&&&& '结束程序
&&& End If
&&'If H = 20 Then
&&'&&g = MsgBox(&第1关顺利过关！是否继续下一关？&, vbYesNo, &过关提示&)
&&&' If g = vbYes Then
&&'&&& Dim j As Integer
&&'&&& Timer1.Interval = 25
&&'&&End If
&' Select Case H
&'&&&Case 0 To 20
&&'&&& Timer1.Interval = 100 '如果成绩在0-20之间，则时钟控件每100毫秒刷新一次
&&'&&Case 21 To 50
&'&&&&&Timer1.Interval = 80 '如果成绩在21-50之间，则时钟控件每80毫秒刷新一次
&'&&&Case 51 To 100
'&&&&&&Timer1.Interval = 60 '如果成绩在51-100之间，则时钟控件每60毫秒刷新一次
&'&&&Case Is & 100
&'&&&&&Timer1.Interval = 40 '如果成绩在&100，则时钟控件每40毫秒刷新一次
&' End Select
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
&&Image1.Visible = False&&&&&&&&&&&&&&& '用户释放按键，击中效果图片不可见
Private Sub Form_Load()
If shezhi.speed = 1 Then
&&Timer1.Interval = 100
ElseIf shezhi.speed = 2 Then
&&Timer1.Interval = 50
ElseIf shezhi.speed = 3 Then
&&Timer1.Interval = 20
MMControl2.Visible = False&&&&&&&&&&&& '游戏时播放背景音乐
mand = &close&
MMControl2.FileName = App.Path & &\baby.mp3&
mand = &open&
mand = &play&
Label2.Top = Form1.ScaleHeight - 500
Label2.Left = Form1.ScaleWidth / 2 - Label2.Width / 2
Dim i As Integer
&&For i = 0 To Label1.Count - 1&&&&&&&&&&&&&&&&&&&&&&&&&&&' 加载窗体前，初始化标签数组的各元素的随机字符
&&& Randomize
&&& If shezhi.nd = 1 Then
&&&&&&c = Int((122 - 97 + 1) * Rnd + 97)
&&& ElseIf shezhi.nd = 2 Then
&&&&&&c = Int((90 - 65 + 1) * Rnd + 65)
&&& ElseIf shezhi.nd = 3 Then
&&&&&&c = Int((126 - 48 + 1) * Rnd + 48)
&&& End If
&&& Label1.Item(i).Caption = Chr(c)&&&&&&&&&&&&&&'产生随机字符
&&& Label1.Item(i).FontSize = 38&&&&&&&&&&&&&&'字体大小
&&& Label1.Item(i).FontName = &Times New Roman&
&&& Label1.Item(i).FontBold = True&&&&&&&&&&&&'字体加粗
&&& Label1.Item(i).ForeColor = &HFF&&&&&&&&&& '字体颜色
&&& Label1.Item(i).Top = 0 - 538 * i&&&&&&&&& '字体位置
&&& Label1.Item(i).Left = Int(20000 * Rnd + 1)
Private Sub Timer1_Timer()
&&Label2.Caption = H
&&Dim i As Integer
&&For i = 0 To Label1.Count - 1
&&& Label1.Item(i).Top = Label1.Item(i).Top + 40
&&& If Label1.Item(i).Top & 8000 Then
&&&&&&js1 = MsgBox(&游戏结束！再玩一次？&, vbYesNo, &游戏结束&)&&&'如果某个随机字符下降到一定高度，则弹出“是否重玩”消息框
&&&&&&If js1 = vbYes Then&&&&&&&&&&&&'如果用户按了“是”按钮，重玩游戏
&&&&&&&&shezhi.Show
&&&&&&&&Unload Form1
&&&&&&'ElseIf js1 = vbNo Then
&&&&&&'&&End
&&&&&&End If
&&& End If
&&&&&&&&&&&&&&&'显示实时的打字成绩
等　级：新手上路
帖　子：32
回复 2楼 风吹过b
问题解决了，谢谢你的指点！我把IF判断按钮值的语句放在最后了！
版权所有，并保留所有权利。
Powered by , Processed in 0.050323 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved}