public class 类模块名 private 变量1 as long private 变量2 as long private 变量3 as long
'直接读出和设置变量1的过程 public get 读写变量1() as long 读取变量1=变量1 end get public let 读写变量1(byval inVal as Long) 变量1=inval end let
'将变量2*变量3,并返回结果 public function runX() as long dim outVal as long outval=internalrun(byval 参数1 as long ,byval 参数2 as long) end function private function internalrun(byval 形参1 as long ,byval 形参2 as long) as long dim outVal as long outval=形参1*形参2 internalrun=outval end function end class以上是一个vb6下Class的简单应用,有3点需要注意的是: 1、定义为public的过程和函数可以直接被外界调用,通常作为执行的入口; 2、访问class内部变量值用public get 进行传递,设置则用public let进行,不能直接赋值(也影响不好,破坏整体性); 3、在Class内部定义的用户结构(用private type定义的类型)不能直接与外部类型传输,例如内部定义了一个private type temp,即使外部也定义了一个一模一样的temp类型,也不能用let进行传输,会报错,这是因为生存期的不同,编译器会将其认成两个不同类型的数据结构;可以通过指针形式进行处理。
private 变量1 as long
private 变量2 as long
private 变量3 as long
'直接读出和设置变量1的过程
public get 读写变量1() as long
读取变量1=变量1
end get
public let 读写变量1(byval inVal as Long)
变量1=inval
end let
'将变量2*变量3,并返回结果
public function runX() as long
dim outVal as long
outval=internalrun(byval 参数1 as long ,byval 参数2 as long)
end function
private function internalrun(byval 形参1 as long ,byval 形参2 as long) as long
dim outVal as long
outval=形参1*形参2
internalrun=outval
end function
end class以上是一个vb6下Class的简单应用,有3点需要注意的是:
1、定义为public的过程和函数可以直接被外界调用,通常作为执行的入口;
2、访问class内部变量值用public get 进行传递,设置则用public let进行,不能直接赋值(也影响不好,破坏整体性);
3、在Class内部定义的用户结构(用private type定义的类型)不能直接与外部类型传输,例如内部定义了一个private type temp,即使外部也定义了一个一模一样的temp类型,也不能用let进行传输,会报错,这是因为生存期的不同,编译器会将其认成两个不同类型的数据结构;可以通过指针形式进行处理。