Question

I want to be able to initialize a

CArticle having the following properties:

Private pNumber As String
Private pQuantity As Double

with either empty, pre-defined or current values. How can I achieve this? I’m thinking something along the lines of:

New empty CArticle

pNumber
pQuantity

New dummy CArticle

pNumber
pQuantity = 99999

New init CArticle(number, quantity)

pNumber = number
pQuantity = quantity

Answer 1

It is a pain in the neck but this is the only way to do it.

File CArticle

Option Explicit

Private pNumber As String
Private pQuantity As Double

Private Sub Class_Initialize()
    pNumber = vbNullString
    pQuantity = 0
End Sub

Public Sub InitializeWithValues(ByVal number As String, ByVal quantity As Double)
    pNumber = number
    pQuantity = quantity
End Sub

Public Sub InitializeDefaultValues()
    pNumber = vbNullString
    pQuantity = 99999
End Sub

and in the calling module

Dim art As New CArticle       ' Initialize value to empty
art.InitializeWithValues "Bowtie", 100     ' and assign values

Set art = New CArticle        ' Initialize values to empty
art.InitializeDefaultValues   ' Initialize values to default