O=NEWOBJECT("ShowOK")
O.SetMsg("你的信息！")
O.SayOK()
*** O.cMsgShr=""  &&调用cMsgShr属性，将会出错！因为Proteced表示这个属性只能被类内部使用！
*** O.cAddStr()      && 同样这个类内部函数也是隐藏的！

DEFINE CLASS ShowOK AS Session
    
    PROTECTED FUNCTION cAddStr()
        this.cMsgShr=this.cMsgShr+" "+DTOC(DATE())+" "+this.msg2    && 加工信息
    ENDFUNC
    
    PROTECTED cMsgShr
        m.cMsgShr=""        && Proteced表示这个属性只能被类内部，以及这个类的子类使用

    HIDDEN msg2
        m.msg2="隐藏"        && 这个属性，性质是隐藏的，不仅外部不能访问，这个类的子类也不能访问！

    PROCEDURE SetMsg
        PARAMETERS cYourMsgText
            IF VARTYPE(m.cYourMsgText)="C"
                this.cMsgShr=m.cYourMsgText
            ENDIF
    ENDPROC


    PROCEDURE SayOK
        =this.cAddStr()
        MESSAGEBOX(this.cMsgShr,0,"This class name is "+this.Name)
    ENDPROC
ENDDEFINE

我是个菜鸟，请老师指点你些的代码是什么意思？在什么方法程序中用，或是其他运用地方。。。谢谢老师赐教！

[quote]
我是个菜鸟，请老师指点你些的代码是什么意思？在什么方法程序中用，或是其他运用地方。。。谢谢老师赐教！[/quote]




以上代码拷贝到一个PRG文件内即可运行。慢慢看