VBA : 개체를 값으로 초기화 하시겠습니까?

Question

나는 다음과 같은 특성을 갖는

CArticle를 초기화 할 수 있어야합니다 : 빈, 사전 정의 또는 전류 값 중 하나와

Private pNumber As String 
Private pQuantity As Double 

. 이것을 어떻게 할 수 있습니까? 내가의 라인을 따라 뭔가를 생각하고 있어요 :

새로운 빈 CArticle

pNumber 
pQuantity 

새로운 더미 CArticle

pNumber 
pQuantity = 99999 

새로운 그것은에 통증이있다 CArticle(number, quantity)

pNumber = number 
pQuantity = quantity 

Answer 1

을 초기화하기 목하지만 이걸하는 유일한 방법입니다.

파일 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 

및 호출 모듈에서

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 

([VBA에서 생성자에 인수를 전달]의