Skip to content

Class Modules

Use Cases

  • Crate Custom Object
  • Use to Simplyfy Complex Object
  • Create Common Method or Functionality related to specific Object
  • We can Use it with Array to Crate Collection of Custom Objects to get rid of Index
  • Create More Readable Code

Code Snippets

'@Folder("VBAProject")
Option Explicit

Private id As Integer
Private CoordinateX As Double
Private CoordinateY As Double
Private CoordinateZ As Double

'node id
Public Property Get uId() As Integer
    uId = id
End Property

Public Property Let uId(value As Integer)
    id = value
End Property

'x coordinate
Public Property Get x() As Double
    x = CoordinateX
End Property

Public Property Let x(value As Double)
    CoordinateX = Round(value, 4)
End Property

'y coordinate
Public Property Get y() As Double
    y = CoordinateY
End Property

Public Property Let y(value As Double)
    CoordinateY = Round(value, 4)
End Property

'z coordinate
Public Property Get z() As Double
    z = CoordinateZ
End Property

Public Property Let z(value As Double)
    CoordinateZ = Round(value, 4)
End Property

Public Sub Display()
    Debug.Print , uId, x, y, z
End Sub

Public Function ToString() As String
    ToString = CStr(uId) & "|" + CStr(x) & "," & CStr(y) & "," & CStr(z)
End Function

Sub Test()
    Dim n As New Node
    n.uId = 0
    n.x = 10: n.y = 20: n.z = 30
    n.Display
    Debug.Print , n.ToString
    Dim arr() As Node
    ReDim arr(1 To 10)

    Dim i As Integer

    For i = 1 To 10
        Set arr(i) = New Node
        arr(i).uId = i
        arr(i).x = 10 * i
        arr(i).y = 10 * (i + 1)
        arr(i).z = 10 * (i + 2)
        Debug.Print , arr(i).ToString
    Next

    Dim nodes As New Collection

    For i = 1 To 10
        Set n = New Node
        n.uId = i
        n.x = 10 * i
        n.y = 10 * (i + 1)
        n.z = 10 * (i + 2)
        nodes.Add n
    Next

End Sub

Reference