求助：如何让窗口右上角的“关闭”功能改变？ - VB6论坛

编程论坛 → 开发语言 → VB6论坛 → 求助：如何让窗口右上角的“关闭”功能改变？

全能ASP/PHP/ASP.NET主机，支持月付	专业 MSSQL 数据库空间，支持月付	专业 MySQL 数据库空间，支持月付	赛孚耐:软件保护加密专家
身份认证令牌USB KEY

共有 329 人关注过本帖

标题：求助：如何让窗口右上角的“关闭”功能改变？

收藏订阅推荐打印

linkerson

等级：新手上路
帖子：32
积分：472
注册：2007-2-28

楼主

求助：如何让窗口右上角的“关闭”功能改变？

　　用过“网际快车flashget”的朋友都会知道：点击窗口右上角的“关闭”，程序不会退出，而是最小化到托盘。我想让我的程序点击“关闭”后，最小化（不必到托盘）。怎么解决？
　　说明一下：我把“最小化”、“最大化”都false了。
　　希望各位朋友一起帮我解决一下！小可先行谢过了！

搜索更多相关主题的帖子: 网际快车 右上角 窗口

2007-7-12 12:20

西山居士

等级：贵宾
威望：11
帖子：583
积分：6162
注册：2007-4-21

第 2 楼

自己做个按钮,
Me.WindowState = 1

学海无涯

2007-7-12 16:04

multiple1902

等级：贵宾
威望：41
帖子：4479
积分：45682
注册：2007-2-9

第 3 楼

event form_unload

cancel=1
' 处理其他事务

“高考”这个词在耳边不断萦绕，心中的激动不言而喻。写下一句话，一起努力。Let's struggle together.

2007-7-12 16:31

121038

等级：中级会员
威望：2
帖子：414
积分：4312
注册：2005-8-3

第 4 楼

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
WindowState = 1
End Sub

2007-7-13 10:30

心中有剑

等级：高级会员
威望：5
帖子：611
积分：6284
注册：2007-5-18

第 5 楼

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("程序以最小窗口运行", vbInformation + vbOKOnly) = vbOK Then
Cancel = 1
WindowState = 1
End If
End Sub

2007-7-13 10:31

linkerson

等级：新手上路
帖子：32
积分：472
注册：2007-2-28

第 6 楼

我的问题已经解决了，多谢楼上几位！

2007-7-14 09:43

星梦缘