VB6 無結構體數組字面量,可用 Array(Array(...), Array(...)) 構建二維 Variant 數組,每行對應一個結構體實例。
' C 原始
fields[] = {
{"name", "n", 6, 0},
{0, 0, 0, 0}
};
' VB6 對應
Dim fields As Variant
fields = Array( _
Array("name", "n", 6, 0), _
Array(0, 0, 0, 0) _
)
' 訪問
Debug.Print fields(0)(0) ' "name"
Debug.Print fields(0)(2) ' 6
' Class Module: CField
Public Name As String
Public ShortName As String
Public Size As Long
Public Flags As Long
' 標準模塊
Dim fields As New Collection
Dim f As New CField
f.Name = "name": f.ShortName = "n": f.Size = 6: f.Flags = 0
fields.Add f
' ... 更符合面向對象風格
簡單場景用 Variant 二維數組即可,複雜業務建議定義類。