| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2281 人关注过本帖
标题:我又迷糊了!
只看楼主 加入收藏
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
回复 20楼 不懂才问
不要在Destroy中做启动别的窗体的动作,把启动代码放到最前面READ EVENTS之后,另外再开一个窗体(即前面的窗体是另外一个程序执行完毕继续执行另外一个),就是15楼所说另一种解决办法。代码要放在逻辑上正确的位置,不要随手,固然可以达到目的,但将来你自己或别人维护时,就很难根据逻辑去定位你的代码,也难维护。

[此贴子已经被作者于2015-12-8 13:50编辑过]


授人以渔,不授人以鱼。
2015-12-08 13:39
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
*MyForm.PRG
*红字哪里有什么作用。。。
DEFINE CLASS MyForm AS Form

    PROCEDURE Arrange
        FOR EACH obj IN This.Controls FOXOBJECT
            IF (VARTYPE(obj.CanArrange) == "L") .AND. obj.CanArrange
                obj.Arrange
            ENDIF
        NEXT
    ENDPROC

    PROCEDURE Activate
        This.Arrange
    ENDPROC
   
    PROCEDURE Resize
        This.Arrange
    ENDPROC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
   
ENDDEFINE
2015-12-08 13:56
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
回复 22楼 mywisdom88
检索窗体内部的所有控件,看是否包含Arrange方法,有的话就执行它,这用于本窗体的外观被改变时批量调整所有控件的布局,后面不用再费神了,那是自动的。

授人以渔,不授人以鱼。
2015-12-08 13:59
不懂才问
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:大草原
等 级:贵宾
威 望:29
帖 子:1503
专家分:6593
注 册:2010-7-5
收藏
得分:0 
回复 23楼 TonyDeng
我也刚想问同样的问题   看到一个VFP的帮助文档   也没看太懂    看到你的解释    我懂了一点点   以后在程序中多用几次    可能明白更多些

报告老师,我低头不是因为我在装低调,是你问的问题,我真的不会答,,,
2015-12-08 14:03
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
你运行时拖拉一下我现在这个程序显示的窗口尺寸,会看到效果——后面写的类不用主动执行Arrange了,你只要把每个容器的Arrange写好,它会在需要的时候自己触发。这就是面向对象继承的有点。

授人以渔,不授人以鱼。
2015-12-08 14:07
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
PROCEDURE Arrange
        WITH This.cmdLogin
            .Top = (This.Height - .Height) / 2
            .Left = (This.Width - .Width) / 2
        ENDWITH
 ENDPROC
你提到重定义问题,上面这里是不是重定义了Arrange,怎么还能实现自动调整窗口大小

*这里的Destroy,是真的重新定义了,不会发出CLEAR EVENTS
DEFINE CLASS C_Login AS MyForm
    Caption = "登陆"
    ShowWindow = 1
    WindowType = 1
    Width = 300
    Height = 200
    AutoCenter = .T.
    PROCEDURE Destroy
        * 重写Destroy否决父类中默認CLEAR EVENTS的动作
    ENDPROC
ENDDEFINE
2015-12-08 14:16
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用TonyDeng在2015-12-8 14:07:49的发言:

你运行时拖拉一下我现在这个程序显示的窗口尺寸,会看到效果——后面写的类不用主动执行Arrange了,你只要把每个容器的Arrange写好,它会在需要的时候自己触发。这就是面向对象继承的有点。
办法好
2015-12-08 14:16
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
好像,T版的这里列子,精髓就在这个Arrange....
慢慢研究,看看这个Arrange变化,,
2015-12-08 14:21
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
你看我MyForm父类中是在什么事件触发下主动调用本类的Arrange方法?是在这个父类的Arrange方法中,再依次调用本类实例对象中所有容器的Arrange方法。

授人以渔,不授人以鱼。
2015-12-08 14:35
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
我不用挂靠,是因为动态计算重新布局比挂靠有更多的灵活性,它可以依据窗体尺寸的实际大小变换布局,而不是死板的挂靠。vfp9的新功能有挂靠,但未必比最原始的手段管用,何况,这种实现方式不存在兼容性问题,在vfp6中也可以用,挂靠就不可以了。

授人以渔,不授人以鱼。
2015-12-08 14:40
快速回复:我又迷糊了!
数据加载中...
 
   



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

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