1.在程序中注冊和注銷OCX 控件 98-7-20

聲明（在本例子里使用的是 ComCtl32.OCX，如果是其他，使用相應(yīng)的名稱）：

Declare Function RegComCtl32 Lib "ComCtl32.OCX" _

Alias "DllRegisterServer" () As Long

Declare Function UnRegComCtl32 Lib "ComCtl32.OCX" _

Alias "DllUnregisterServer" () As Long

Const ERROR_SUCCESS = &H0

使用：

If RegComCtl32 = ERROR_SUCCESS Then

MsgBox "Registration Successful"

Else

MsgBox "Registration Unsuccessful"

End If

If UnRegComCtl32 = ERROR_SUCCESS Then

MsgBox "UnRegistration Successful"

Else

MsgBox "UnRegistration Unsuccessful"

End If

2.建立可下拉選擇的屬性

例如在 BorderStyle 中有以下的四個(gè)選擇：

0 - None

1 - Dashed

2 - Single Line

3 - Double Line

4 - 3D

首先在控件中定義以下的集合：

Enum BorderType

None

Dashed

[Single Line]

[Double Line]

[3D]

End Enum

然后就可以把屬性的類型設(shè)置好：

Public Property Get BorderStyle() As BorderType

Border = m_BorderStyle

End Property

Public Property Let BorderStyle(ByVal New_BorderStyle As BorderType)

m_BorderStyle = New_BorderStyle

PropertyChanged "BorderStyle"

End Property

3.缺省值和可選參數(shù)

VB5 加強(qiáng)了函數(shù)參數(shù)方面，可用以下的代碼實(shí)現(xiàn)參數(shù)缺?。?/p>

Property Get Value(Optional index As Long = 1)

End Property

也可使用另一個(gè)方法（慢）：

Property Get Value(Optional index As Long)

If IsMissing(index) Then index = 1

End Property

4.多個(gè)參數(shù)的屬性

在自制的控件中，可能需要對某個(gè)屬性傳遞多個(gè)值：

Property Let Test (arg1 As String, arg2 As String, arg3 As Integer)

End Property

用以下的方法傳遞參數(shù)：

Test(arg1,arg2) = arg3

5.使用數(shù)組做屬性

定義一個(gè) variant 類型的屬性，即可用它來做數(shù)組。

下面定義了一個(gè) CArray 類。

Private m_MyArray As Variant

Public Property Get MyArray() As Variant

MyArray = m_MyArray

End Property

Public Property Let MyArray(a As Variant)

m_MyArray = a

End Property

可用以下的方法使用：

Private m_Array As CArray

Private mArr(3) As String

Private Sub Form_Load()

Set m_Array = New CArray

mArr(1) = "One"

mArr(2) = "Two"

mArr(3) = "Three"

m_Array.MyArray = mArr()

或者

m_Array.MyArray = Array("One", "Two", "Three")

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim i As Integer

For i = 1 To UBound(m_Array.MyArray)

MsgBox m_Array.MyArray(i)

Next

End Sub