关闭表单 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关闭表单

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 641 人关注过本帖

标题：关闭表单

只看楼主加入收藏

nmhfs

等　级：新手上路
帖　子：26
专家分：0
注　册：2012-11-8
结帖率：71.43%

楼主

已结贴√ 问题点数：10 回复次数：10

关闭表单

点击表单关闭按钮如何实现像关闭金山新毒霸的关闭效果？ *在表单内点击按钮我已成功实现了*

搜索更多相关主题的帖子: 表单　成功　如何　

2012-11-16 18:00

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 2 楼

得分:1

没看出来，关闭金山新毒霸有什么特殊效果。楼主再说清楚一点。

相互学习，互相交流，共同提高。

2012-11-16 18:44

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 3 楼

得分:1

就是动态收缩然后消失的，即动画。

授人以渔，不授人以鱼。

2012-11-16 19:25

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11857
专家分：43421
注　册：2006-5-13

第 4 楼

得分:1

试试在主程序中添加一句：
ON SHUTDOWN DO 你的处理程序

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2012-11-16 19:26

月沐庭轩

来　自：京城
等　级：贵宾
威　望：17
帖　子：393
专家分：1106
注　册：2011-7-24

第 5 楼

得分:1

设置uload事件的代码为，你的按钮.click看看效果如何。

坚持学习vfp，QQ：306805680

2012-11-16 19:57

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 6 楼

得分:1

还不如直接关了

2012-11-16 20:34

taohua300

来　自：光
等　级：贵宾
威　望：14
帖　子：1636
专家分：3906
注　册：2009-3-11

第 7 楼

得分:1

以下是引用tlliqi在2012-11-16 20:34:28的发言：

还不如直接关了

I think so

个性太多,无法显示

2012-11-16 20:51

nmhfs

等　级：新手上路
帖　子：26
专家分：0
注　册：2012-11-8

第 8 楼

得分:0

呵呵只是效果显示软件的更专业制作更好~

2012-11-17 16:05

nmhfs

等　级：新手上路
帖　子：26
专家分：0
注　册：2012-11-8

第 9 楼

得分:0

经测试---成功
在表单的QueryUnload 下编写：
If Messagebox("确定要退出系统吗？",1+32,"系统")=1
    Nodefault
    Thisform.MinHeight=1
    Thisform.timer1.Interval=1
Else
    Nodefault
Endif
在Timer1的Timer 下编写：
Thisform.AutoCenter=.T.
If Thisform.Height=0
    Thisform.timer1.Interval=0
    Thisform.Release
Else
    If Thisform.Height>10
        Thisform.Top=Thisform.Top+5
        Thisform.Height=Thisform.Height-10
    Else
        If Thisform.Height>4
            Thisform.Top=Thisform.Top+2
            Thisform.Height=Thisform.Height-4
        Else
            If Thisform.Height>2
                Thisform.Top=Thisform.Top+1
                Thisform.Height=Thisform.Height-2
            ELSE
                Thisform.Release
            Endif
        Endif
    Endif
Endif

2012-11-28 20:07

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 10 楼

得分:0

以下是引用nmhfs在2012-11-28 20:07:56的发言：

经测试---成功
在表单的QueryUnload 下编写：
If Messagebox("确定要退出系统吗？",1+32,"系统")=1
    Nodefault
    Thisform.MinHeight=1
    Thisform.timer1.Interval=1
Else
    Nodefault
Endif
在Timer1的Timer 下编写：
Thisform.AutoCenter=.T.
If Thisform.Height=0
    Thisform.timer1.Interval=0
    Thisform.Release
Else
    If Thisform.Height>10
        Thisform.Top=Thisform.Top+5
        Thisform.Height=Thisform.Height-10
    Else
        If Thisform.Height>4
            Thisform.Top=Thisform.Top+2
            Thisform.Height=Thisform.Height-4
        Else
            If Thisform.Height>2
                Thisform.Top=Thisform.Top+1
                Thisform.Height=Thisform.Height-2
            ELSE
                Thisform.Release
            Endif
        Endif
    Endif
Endif

经测试没通过

2012-11-28 20:14

快速回复：关闭表单