| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1012 人关注过本帖
标题:退出程序时,如何同时关闭已打开的画面
只看楼主 加入收藏
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
结帖率:94.12%
收藏
已结贴  问题点数:20 回复次数:8 
退出程序时,如何同时关闭已打开的画面
打开程序后,阅览中打开了“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编辑过]

搜索更多相关主题的帖子: False 如何 
2015-12-05 14:09
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
收藏
得分:0 
纠正一下:是点右上角关闭钮和下图这个关闭钮不能全
图片附件: 游客没有浏览图片的权限,请 登录注册
退出;
2015-12-05 15:31
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:0 
通常在关闭的事件里用end都会关闭所有窗口的

能编个毛线衣吗?
2015-12-05 19:44
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
收藏
得分:0 
就是关闭主窗体后,不但在桌面有弹出的小窗,而且
图片附件: 游客没有浏览图片的权限,请 登录注册
在“进程”里还有,不知如何才能不在“进程”中停留
2015-12-06 21:34
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:10 
那就重复一次:在主窗体的unload事件里加end语句,改程序打开的1000个窗体都可以关闭。

能编个毛线衣吗?
2015-12-07 09:28
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
收藏
得分:0 
下面的是关闭钮,改了几个方案都没通过,应该怎样改才行?
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
2015-12-07 13:51
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
看你的任务管理器,有二个进程,说明你是启动了多个程序。
那你使用 命令结束进程来关吧。

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



授人于鱼,不如授人于渔
早已停用QQ了
2015-12-07 16:26
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
收藏
得分:0 
谢谢二位版主的回复
2015-12-11 20:48
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
收藏
得分:0 
用下面的代码问题全解决了;
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
2015-12-18 09:24
快速回复:退出程序时,如何同时关闭已打开的画面
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.045661 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved