| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 916 人关注过本帖
标题:~~怎么调用子过程QueryUnload [高手进~~]
只看楼主 加入收藏
amingo
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2004-8-27
收藏
 问题点数:0 回复次数:8 
~~怎么调用子过程QueryUnload [高手进~~]
call QueryUnload 和call Form_QueryUnload都不行

我在做记事本 退出时判断是否保存。点右上角的关闭用的是 Form_QueryUnload
菜单里的退出按纽用的是quit_Click
但在quit_Click事件发生时 也伴随着Form_QueryUnload事件,请问怎么解决。
在quit_Click事件中调用QueryUnload成功不了

[此贴子已经被作者于2005-6-1 21:14:46编辑过]


搜索更多相关主题的帖子: QueryUnload 
2005-06-01 18:50
amingo
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2004-8-27
收藏
得分:0 

Private strfilename As String Private a As Boolean Private b As Integer Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If a = True Then b = MsgBox("文件已经改变是否保存?", vbYesNoCancel + vbQuestion, "question") Select Case b Case 6 Call saveas_Click Cancel = 0 Case 2 Cancel = 1 Case 7 Cancel = 0 End Select End If End Sub

Private Sub Form_Resize() rtxt.Top = 0 rtxt.Width = Me.Width - 100 rtxt.Height = Me.Height - 1000 End Sub

Private Sub new_Click() '新建 rtxt = "" End Sub

Private Sub open_Click() '打开 With cmdlog .DialogTitle = "打开 open " .Filter = "文本文件 *.txt|*.txt|word文档 *.doc|*.doc|所有文件|*.*" .ShowOpen strfilename = .FileName rtxt.LoadFile strfilename End With End Sub

Private Sub quit_Click() '退出 If a = True Then b = MsgBox("文件已经改变是否保存?", vbYesNoCancel + vbQuestion, "question") Select Case b Case 6 Call saveas_Click Unload frm Case 7 Unload frm End Select Else Unload frm End If End Sub

Private Sub rtxt_Change() 'richtestbox a = True End Sub

Private Sub saveas_Click() '另存 With cmdlog .DialogTitle = "另存为" .Filter = "文本文件 txt|*.txt|word文档 doc|*.doc|所有文件|*.*" .ShowSave strfilename = .FileName rtxt.SaveFile strfilename, 1 End With End Sub

2005-06-01 18:53
amingo
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2004-8-27
收藏
得分:0 
有人吗?
2005-06-01 20:50
amingo
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2004-8-27
收藏
得分:0 
救命啊~~~~~~~~~~~~
2005-06-01 21:21
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

Option Explicit

Dim bChanged As Boolean

Private Sub Command1_Click() '退出按钮 Unload Me End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim rtn As Long If bChanged = True Then rtn = MsgBox("文件已经改变,是否保存?", vbQuestion + vbYesNoCancel, "提示") If rtn = vbCancel Then Cancel = True ElseIf rtn = vbYes Then '保存代码 '退出 Else '不保存退出 End If End If End Sub

Private Sub Text1_Change() bChanged = True End Sub


天津网站建设 http://www./
2005-06-01 21:34
amingo
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2004-8-27
收藏
得分:0 
写这干什么啊 我的问题是quit_Click() ,是记事本文件文件菜单下的退出。你加个退出按纽干什么啊。还有退出时是要判断的,如果有改变就要保存!!!!!!!
2005-06-01 22:14
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
不是一牛事么,晕。
你运行一下就知道了,Command1_Click里调用了Unload Me ,这个Unload Me也会触发Form_QueryUnload事件的。

天津网站建设 http://www./
2005-06-01 22:18
amingo
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2004-8-27
收藏
得分:0 
xiexie `
2005-06-01 22:24
access
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2005-3-18
收藏
得分:0 
斑主写的对的!
2005-06-03 23:46
快速回复:~~怎么调用子过程QueryUnload [高手进~~]
数据加载中...
 
   



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

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