用途不明显，但作为练习，可以了。有些做法走了弯路，不过那是你不熟悉的关系。

表单运行后实施的控件变化，吾称之动态变化。

原来如此 还没用过那个。。。

那些做法 是弯的？ 求解 求解！

是啊拖控件 很快的

改变控件的属性，不必全靠Init事件做，随时都可以的，而且即时生效，动态变化。比如改变宽度，在需要的时候给控件对象的.Width赋值就可以了。你现在是用参数初始化控件，不必借助自定义属性，也不必总在Init时做。数据驱动程序，是适应于外部数据源的，不在设计时指定，也无法指定。数据放在程序之外，是为了不必反复编译程序和再发布，适应性强。界面在设计时定死了，当然很好实现，只是看你的程序需求是否这种环境。

举个例子：你要设计10个按钮，其中4个是红色的，4个是绿色的，2个是蓝色的。如果用拖拉控件，就分别设置10个赋值；如果用代码驱动，就用一个DO CASE分批设置；如果用数据驱动，就只用一个循环。当要变化其中某些按钮的颜色时，你看哪种最方便？

动态画面，在诸如动态报表之类的场合很有用。像工资单那种，事先是不知道用户想输出哪些项目数据的，而且很可能某些项目如何计算也不知道，那样无法在设计时做死，连最终效果自己都不知道，那就谈不上如何拖拉控件去做。做商业化的东西，做灵活了是王道，因为用户的需求千变万化，你不可能每个都大同小异地去改一遍程序，给无数个版本让自己维护。自己用的，当然怎么改都觉得很方便了。

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

我怎么感觉还是循环方便 只要设定按钮的ID 然后用if语句 和 inlist()函数来个相应ID的按钮设置颜色就行吧 。

老大 现在出现一个重大问题 哇 简直是天大的问题
这个问题 可以击溃我前面所有努力建立的架构

如下程序

Clear All
Main()

Procedure Main()
    Local lo_MainForm
    lo_MainForm = NewObject("C_Form")
    lo_MainForm.Show
    Read Events
    Return
EndProc

Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"
  
    Procedure Init
        With This
            .AddObject("xx", "CommandButton")
            With this.xx
                .Top = 100
                .Left = 100
                .Height = 50
                .Width = 100
                .Caption = "XXbtn"
                .Visible = .T.
            EndWith
        EndWith
    EndProc   

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

        Clear Events
    EndProc

EndDefine

编译器会提示他认不到XX..........


也就是说在Form的Init事件里 通过.addObject()函数 添加的对象 在 Form中无法实现它的click 事件。。。。
那我写的那个N多命令按钮不是作废了？

看19楼：
https://bbs.bccn.net/viewthread.php?tid=381931&extra=&page=2

老大 你是提醒我在自定义类里就把他所拥有的控件的事件都写了？ 是不是啊？