属性过程的示例将在自定义类模块中.可以检索(获取)或输入值(let)
在自定义类中(clsExample)
Private pName As String
Public Property Get Name() As String
Name = pName
End Property
Public Property Let Name(value As String)
pName = value
End Property
Run Code Online (Sandbox Code Playgroud)
您可以在标准子中使用一个如下:
Sub example()
Dim exampleClass As clsExample
Set exampleClass = New clsExample
exampleClass.Name = "John Smith"
MsgBox (exampleClass.Name)
End Sub
Run Code Online (Sandbox Code Playgroud)
一些优点是您可以为有意义的对象提供有意义的属性名称(即project.id,project.manager),另一个示例是您可以为对象提供只读的属性(仅使用get和no set).