| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 811 人关注过本帖
标题:如何改变vb6 Form右上角的“X”的功能?
只看楼主 加入收藏
AlexShyu
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-2-28
结帖率:100%
收藏
 问题点数:0 回复次数:4 
如何改变vb6 Form右上角的“X”的功能?
请问各位大大:
如何改变vb6 Form右上角的“X”的功能?
有些软件按下右上角的“X”后,可以将程式缩小到右下角的系统列。
想请问各位大大,vb6要如何实现?
搜索更多相关主题的帖子: Form 右上角 
2009-09-22 00:59
zhuyongxing
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:234
专家分:482
注 册:2009-8-5
收藏
得分:0 
给你一个我自己编的XP关机系统
里面有你想要的功能。有不懂的可以Q我308749442
关机.rar (110.8 KB)
2009-09-22 02:46
charles2008
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2009-6-13
收藏
得分:0 
当然可以啦,你在QueryUnload 事件里可以做你想做的事情,将 cancel 设置为任何非零的值可防止窗体被删除,做完你想做的事情,记得把Cancel设置成非0即可,否则还是会关闭窗体的
2009-09-22 11:06
czqnazz00
Rank: 2
等 级:论坛游民
帖 子:38
专家分:34
注 册:2009-7-16
收藏
得分:0 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Print "AAAA"
Dim n As Integer
n = MsgBox("真的要关闭窗口吗?", vbInformation + vbOKCancel)
If n = 1 Then
    Cancel = False
Else
    Cancel = True
End If
End Sub
2009-09-22 15:24
yuning017
Rank: 1
等 级:新手上路
帖 子:12
专家分:6
注 册:2009-9-11
收藏
得分:0 
同意三楼~
2009-09-23 13:16
快速回复:如何改变vb6 Form右上角的“X”的功能?
数据加载中...
 
   



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

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