[代码]类的演示 Class

kjgmj

Class.bas：


#引用 "windows.bi"
常量 为 整数型 TEST1 = 1 , TEST2 = 2
变量 为 整数型 xx , yy
定义 v = "abc"
'//////////////////////////////////////////////////////////////////////
命名空间 MyClass
  类型 a
     声明 构造 (传值 z 为 整数型)
    声明 析构 ()
    声明 子程序 s (传值 z 为 整数型)
    声明 属性 p ()为 整数型
    声明 属性 p (传值 z 为 整数型)
    声明 操作符 * = (传值 z 为 整数型)
  私有 :
    x 为 整数型
  结束 类型
  构造 a (传值 z 为 整数型)
    MessageBox (0 , 到文本 (z), "构造a(传值z为整数型)" , MB_OK)
    this.x = z
  结束 构造
  析构 a ()
    MessageBox (0 , 到文本 (x), "析构a()" , MB_OK)
  结束 析构
  子程序 a.s (传值 z 为 整数型)
     x = z * 2
     this.x = z * 2
     MessageBox (0 , 到文本 (x), "子程序a.s(传值z为整数型)" , MB_OK)
  结束 子程序
  属性 a.p ()为 整数型
    MessageBox (0 , 到文本 (x), "读入数据:属性a.p()为整数型" , MB_OK)
    返回 x
  结束 属性
  属性 a.p (传值 z 为 整数型)
    x = z
    MessageBox (0 , 到文本 (x), "Set:属性a.p(传值z为整数型)" , MB_OK)
  结束 属性
  操作符 a.* = (传值 z 为 整数型)
    x = x * z
    this.x = this.x * z
    MessageBox (0 , 到文本 (x), "操作符a.*=(传值z为整数型)" , MB_OK)
  结束 操作符
结束 命名空间
'//////////////////////////////////////////////////////////////////////
命名空间 MyNamespace
  
  子程序 s (传值 z 为 整数型)
    MessageBox (0 , 到文本 (z), "子程序s(传值z为整数型)" , MB_OK)
  结束 子程序
结束 命名空间
'//////////////////////////////////////////////////////////////////////
子程序 mysub
  ' 构造called
  变量 c 为 MyClass.a = 123
  变量 rect (3)为 RECT
  '子程序called
  c.s (1)
  ' 属性读入数据/Setcalled
  c.p = c.p + 1
  ' 操作符 called
  c * = 2
  成员赋值 c
    '子程序called
   .s (1)
    ' 属性读入数据/Setcalled
   .p = c.p + 1
    ' 操作符 called
    c * = 2
  结束 成员赋值
  成员赋值 rect (0)
   .right =.right + 1
   .left =.left + 1
  结束 成员赋值
  rect (0).left = 2
  
  MyNamespace.s (3)
使用 MyNamespace
  s (2)
结束 子程序
'//////////////////////////////////////////////////////////////////////
mysub
MyNamespace.s(5)

数码幽灵

支持下  辛苦了