properties.cls

《Wrox Excel 2003 VBA Programmers Reference》 （Jun.2004）的源码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Properties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private FFirstName As String
Private FLastName As String
Private FSalesTax As Double


Public Property Get FirstName() As String
  FirstName = FFirstName
End Property

Public Property Let FirstName(ByVal Value As String)
  FFirstName = Value
End Property

Public Property Get LastName() As String
  LastName = FLastName
End Property

Public Property Let LastName(ByVal Value As String)
  FLastName = Value
End Property

Public Property Get FullName() As String
  FullName = FFirstName & " " & FLastName
End Property

Private Sub Class_Initialize()
  FirstName = "empty"
End Sub

Private Sub Class_Terminate()
  FirstName = "done"
End Sub

Public Property Let SalesTax(ByVal Value As Double)
  If (Value < 0 Or Value > 0.1) Then
    ' do something here to indicate an error
    
    Call Err.Raise(513, , "Sales Tax must be between 0 and .10")
  End If
  
  FSalesTax = Value
End Property