编程论坛 → VB6论坛

退出程序时，如何同时关闭已打开的画面

jrs123 发布于 2015-12-05 14:09， 1012 次点击

打开程序后，阅览中打开了“08”画面，但关闭程序后，画面总留在屏幕上。不知如何在关闭程序后，也将先前打开的画面同时关闭，部分代码如下：请高手指点一下，先谢了！
Private Sub form_resize()
    If Frame1.Height > Me.Height Then
        VScroll1.Visible = True
    Else
        VScroll1.Visible = False
    End If
    If Frame1.Width > Me.Width Then
        HScroll1.Visible = True
    Else
        HScroll1.Visible = False
    End If
    HScroll1.Left = 0
    HScroll1.Top = Me.ScaleHeight - HScroll1.Height
    VScroll1.Left = Me.ScaleWidth - VScroll1.Width
    VScroll1.Top = 0
    HScroll1.Width = Me.ScaleWidth
    VScroll1.Height = Me.ScaleHeight
    If VScroll1.Visible = True Then
        If HScroll1.Visible = True Then
           HScroll1.Width = Abs(Me.ScaleWidth - VScroll1.Width)
           VScroll1.Height = Abs(Me.ScaleHeight - HScroll1.Height)

        End If
    End If
    HScroll1.Max = (Frame1.Width - Me.Width) + 3 * VScroll1.Width
    VScroll1.Max = (Frame1.Height - Me.Height) + 3 * HScroll1.Height
    HScroll1.ZOrder
    VScroll1.ZOrder
    Frame1.Left = (Me.ScaleWidth - Frame1.Width) / 2
End Sub

Private Sub Image10_Click()
Load 08a
08a.Show
End Sub

[此贴子已经被作者于2015-12-5 15:28编辑过]

8 回复

#2

jrs1232015-12-05 15:31

纠正一下：是点右上角关闭钮和下图这个关闭钮不能全

只有本站会员才能查看附件，请登录

退出；

#3

wmf20142015-12-05 19:44

通常在关闭的事件里用end都会关闭所有窗口的

#4

jrs1232015-12-06 21:34

就是关闭主窗体后，不但在桌面有弹出的小窗，而且

只有本站会员才能查看附件，请登录

在“进程”里还有，不知如何才能不在“进程”中停留

#5

wmf20142015-12-07 09:28

那就重复一次：在主窗体的unload事件里加end语句，改程序打开的1000个窗体都可以关闭。

#6

jrs1232015-12-07 13:51

下面的是关闭钮，改了几个方案都没通过，应该怎样改才行？
Private Sub Command17_Click()
Dim Ltem As Long
Dim LpID As Long
Dim hLong     As Long
Dim strWinName     As String
If MsgBox("你要退出《第一讲波段与数浪》吗?", vbYesNo + vbExclamation, "系统询问") = vbYes Then
   Unload Me
   End
   Else
   Cancel = True
    End If
'bQuestion = True '用这二句也不行
    'Unload Me
End Sub

#7

风吹过b2015-12-07 16:26

看你的任务管理器，有二个进程，说明你是启动了多个程序。
那你使用命令结束进程来关吧。

shell "taskkill /f /im " & app.EXEName & ".exe"

#8

jrs1232015-12-11 20:48

谢谢二位版主的回复

#9

jrs1232015-12-18 09:24

用下面的代码问题全解决了；
Private Sub Form_Unload(Cancel As Integer) '点右上角关闭钮退出全部程序；
If MsgBox("你要退出《第一讲波段与数浪》吗?", vbQuestion + vbYesNo) = vbYes Then Cancel = 0
Dim intctr As Integer
For intctr = (Forms.Count - 1) To 0 Step -1
Unload Forms(intctr)
Next intctr
End Sub

1