这个算动态吗？ - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 这个算动态吗？

我的收件箱(0)

共有 2458 人关注过本帖

标题：这个算动态吗？

只看楼主加入收藏

TonyDeng

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

第 31 楼

得分:0

是的，这是兼容性的写法。不用自定义类的时候，就必须用BindEvent()把特定对象的事件代码委托到别的对象中去。

程序代码：

Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"

 
    Procedure Init
        With This
            .AddObject("xx", "CommandButton")
            With .xx
                .Top = 100
                .Left = 100
                .Height = 50
                .Width = 100
                .Caption = "XXbtn"
                .Visible = .T.
            EndWith
            BindEvent(.xx, "Click", This, "Click")
        EndWith
    EndProc   

    Procedure Click
        MessageBox("阿弥陀佛")
    EndProc

 
    Procedure destroy

        Clear Events
    EndProc

EndDefine

授人以渔，不授人以鱼。

2012-09-23 21:54

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 32 楼

得分:0

以下是引用TonyDeng在2012-9-23 21:54:24的发言：

是的，这是兼容性的写法。不用自定义类的时候，就必须用BindEvent()把特定对象的事件代码委托到别的对象中去。

Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"

    Procedure Init
        With This
            .AddObject("xx", "CommandButton")
            With .xx
                .Top = 100
                .Left = 100
                .Height = 50
                .Width = 100
                .Caption = "XXbtn"
                .Visible = .T.
            EndWith
            BindEvent(.xx, "Click", This, "Click")
        EndWith
    EndProc

    Procedure Click
        MessageBox("阿弥陀佛")
    EndProc

    Procedure destroy

        Clear Events
    EndProc

EndDefine

哇还有这一招

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 21:58

TonyDeng

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

第 33 楼

得分:0

你这个代码，与下面的等价：

程序代码：

Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"
  
   Add Object xx AS CommandButton With Top = 100, Left = 100, Height = 50, Width = 100, Caption = "XXbtn"   

    Procedure xx.Click
        MessageBox("阿弥陀佛")
    EndProc 

    Procedure destroy
        Clear Events
    EndProc 

EndDefine

这是最原始的写法，它即是用表单设计器拖出一个CommandButton控件，分别赋值、并填写Click事件代码的过程。在我看来，挥舞鼠标点那么多下并按键盘，还不如写这几行代码来得行云流水。

[ 本帖最后由 TonyDeng 于 2012-9-23 22:07 编辑 ]

授人以渔，不授人以鱼。

2012-09-23 22:01

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 34 楼

得分:0

不过试了下貌似自定义类用这个行不通?

程序代码：

Define Class C_Container as Container
            BorderWidth = 2
            SpecialEffect = 1
            Width = 2 * (gn_HalfWndWidth - gn_Space)
            Key = ""                   
            Procedure Init(t_Ctnr)
                Local ln_Space as Integer
                ln_Space = 20
            With This
                .Key = t_Ctnr
                .AddObject("Ctnr_Label","Label")
                With This.Ctnr_Label
                           .Caption = This.Key.lbl_Caption
                          .Height = 30
                          .Width = 200
                          .Left = 10
                          .Top = This.Key.chg_Height / 2 - .Height / 2                                            
                           EndWith                             
                           .AddObject("Ctnr_Text","TextBox")
                With This.Ctnr_Text
                          .Left = This.Ctnr_Label.Left + This.Ctnr_Label.Width + ln_Space
                                .Height = This.Key.chg_Height
                                .Width = This.Key.chg_Width
                           EndWith                        
                           If  .Key.ask_Button == .T.
                           .AddObject("Ctnr_Button","CommandButton")
                    With This.Ctnr_Button
                          .Height = 30
                          .Caption = This.Key.btn_Caption
                          .Left = This.Ctnr_Text.Left + This.Ctnr_Text.Width + ln_Space
                          .Top = This.Key.chg_Height / 2 - .Height / 2                            
                          .Width = 100                                
                    EndWith  
                           EndIf                        
                           .SetAll("Visible", .T.)
                           .SetAll("FontSize", 16)
                           .SetAll("Alignment", 2)
                           .SetAll("FontBold", 1)
                           .Height = .Key.chg_Height
                     BindEvent(.Ctnr_Button, "Click", This, "Click")                                                  
            EndWith
        EndProc   
      
        Procedure Click
            MessageBox("Hhahaha")
        EndProc                                                                                                            
EndDefine

改成

  Procedure Ctnr_Button.Click
            MessageBox("Hhahaha")
  EndProc

去掉和不去掉BindEvent(.Ctnr_Button, "Click", This, "Click") 都不行？

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 22:07

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 35 楼

得分:0

以下是引用TonyDeng在2012-9-23 22:01:59的发言：

你这个代码，与下面的等价：

Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"

   Add Object xx AS CommandButton With Top = 100, Left = 100, Height = 50, Width = 100, Caption = "XXbtn"

    Procedure xx.Click
        MessageBox("阿弥陀佛")
    EndProc

    Procedure destroy
        Clear Events
    EndProc

EndDefine

这是最原始的写法，它即是用表单设计器拖出一个CommandButton控件，分别赋值、并填写Click事件代码的过程。在我看来，挥舞鼠标点那么多下并按键盘，还不如写这几行代码来得行云流水。