foxpro8.0新增加功能(1)

vfp8.0新增加了类member,其功能是：可定义和派生特定的容器的成员。这些容器有：PageFrame, CommandGroup, OptionGroup 和 Grid ,它们有两个新的属性,MemberClassLibrary 和 MemberClass, 可以用来为成员对象设置默认的自定义类。

 MemberClassLibrary指明自定义类库， MemberClass指明类库中自定义的类。

下面以一个实例代码说明：

 

主程序：

PUBLIC x
x = CREATEOBJECT("form")  //创建一个表单对象
x.ADDOBJECT("pf1","myPageFrame")//增加一自定义页框对象
x.pf1.Visible = .T.  //页框可见
x.Show()  //表单可见

 

DEFINE CLASS myPageFrame AS PageFrame//由基类pageframe派生一自定义页框类
   MemberClassLibrary = 'myPages.PRG'  //指明页框的自定义类库
   MemberClass = 'myPage'//指明自定义类
   PageCount = 2//页个数
   TabOrientation = 1//页的外观方式
ENDDEFINE

下面是自定义类库

mypages.prg

 

DEFINE CLASS myPage AS Page  //自定义页类
   ADD OBJECT cmd1 AS commandbutton WITH ;//每页都有一个按钮
      Caption = "Hello", FontBold = .T.
   PROCEDURE Init    //每页的初始化事件
      THIS.Caption = "Funpage"+TRANSFORM(THIS.Parent.PageCount)
   ENDPROC
   PROCEDURE cmd1.Click  //按钮的click事件处理
      MESSAGEBOX(this.Caption)
      THIS.Parent.Parent.PageCount = THIS.Parent.Parent.PageCount+1
   ENDPROC
ENDDEFINE

 

通过上面的自定义类库中的类，为每个页指定了统一的行为。

 

注意：

不能传递参数到新创建成员的 Init 事件, 因为成员是在父容器的 Count 属性改变时动态创建的，如果需要传递参数, 可以用容器的 AddObject 方法。