VB6에서 UDT의 배열 초기화

Question

UDT를 선언했으며 UDT의 특정 레코드가있는 배열을 초기화해야합니다. 모듈 수준에서 어떻게 처리합니까? 여기

내가

Public Type MyType 
    id  As Integer 
    name As String 
    values As Double 
End Type 

private MY_TYPES(1) As MyType 
My_TYPES(0) = newMyType(1, "Item 1", 15.9) 
My_TYPES(1) = newMyType(2, "Item 2", 30.2) 

Private Function newMyType(byval id as Integer, byval name as String, _ 
          byval v as Double) As MyType 
    Dim t As MyType 
    t.id = id 
    t.name = name 
    t.value = v 
    newMyType = t 
End Function 

난 당신이 내가 List 또는 같은 자바 Collection의 정적 초기화 될 것을 재현 해 봅니다 그것을 볼 수 있듯이 Invalid outside procedure

입니다 얻을 오류를 시도한 것입니다 Set

나는 상수로 컬렉션을 공개하고 싶습니다. 어떻게하면 좋을까요?

Answer 1

당신은 UDT에게

My_TYPES(0) = newMyType(1, "Item 1", 15.9) 
My_TYPES(1) = newMyType(2, "Item 2", 30.2) 

을 초기화하기 위해서 하위에 다음 두 줄을 배치 한 다음 서브를 호출하거나 당신은 IF..THEN 내부 작업 하위에있는이 2 개 라인을 배치 할 수 있습니다 모듈 수준의 init 부울