此处为VisualFreeBasic编程教程(从零开始学或VB进阶)的子章节部分,全部目录点链接。 类,自定义类型- type aaa[/font][/p] bb as long
- end type
复制代码上面只是简单的应用类型,还可以更多,写过程,写函数,写属性,就是完整的类 Constructor 和 Destructor (构造函数和析构函数)- type aaa[/font][/p] Declare Constructor ( )
- Declare Destructor ( )
- end type
- Destructor aaa ( )
- statements 创建类时运行的代码
- End Destructor
- Constructor aaa()
- statements 销毁类时运行的代码
- End Constructor
复制代码Private: 和 Public:- type aaa[/font][/p] Public: '表示调用者可以用
- bb as long
- Private: '表示只是类里的函数使用的全局变量,调用者不可以使用
- cc as long
- end type
复制代码Property 属性- type CForm[/font][/p] Declare Property hWindow() As HWnd
- Declare Property hWindow(ByVal hForm As HWnd)
- end type
- Property CForm.hWindow() As HWnd
- Return m_hWindow
- End Property
- Property CForm.hWindow(ByVal hForm As HWnd)
- If IsWindow(hForm) Then
- End If
- End Property
复制代码
|