在VB6中初始化一個UDT數組

我已經聲明瞭一個UDT，並且我需要初始化一個具有UDT特定記錄的數組，我將如何在模塊級別執行該操作。在VB6中初始化一個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

我得到的是Invalid outside procedure

正如你可以看到它我試圖重現這將是一個java Collection的靜態初始化像List或錯誤Set

我想公開收集爲常量，我怎麼能實現這個？

來源

2013-01-10 Triztian

您分配給My_TYPES陣列的兩行不能在過程外寫入。它們必須位於像newMyType函數那樣的函數/子/屬性中。 –

你必須把下面的2行子，然後調用子給init UDT

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

，或者你可以可以將這些2號線在子工作的if..then內與模塊級別初始化布爾值

來源

2013-01-10 08:43:17 Hrqls

+1。如果你的模塊是一個類，你可以把這些行放在class_initialize中，以便它們自動運行。如果他們在BAS模塊中，您將需要管理初始化 – MarkJ

在VB6中初始化一個UDT數組

回答

相關問題