怎么办:自定义类 + 自定义类型

Question

Private mintNum As Integer
Private muttTagList() As TagItemFriend Sub AddTagItem(ipTag As TagItem)
   Dim intUb As Integer   ReDim muttTagList(1)
   
   intUb = UBound(muttTagList)
   ReDim Preserve muttTagList(intUb + 2)
   muttTagList(intUb + 1).Name = ipTag.Name
   muttTagList(intUb + 1).Text = ipTag.Text
End Sub
Private Sub Command1_Click()
    Dim a As Class1
   Dim b As TagItem   b.Name = "bName"
   b.Text = "bText"
   Set a = New Class1
   a.AddTagItem bEnd Sub修改了几个地方，通过

Answer 1

1,Private muttTagList as TagItem，非数组，无法用redim重定义
2,
Friend sub AddTagItem(ipTag as TagItem)
   dim intUb as integer
   Redim muttTagList(1)   
   intUb = UBound(muttTagList)
   redim preserve muttTagList(intUb + 2)
   muttTagList(intUb+1).name = ipTag.name   
   muttTagList(intUb+1).text= ipTag.text
end sub
该成：
Friend sub AddTagItem(ipTag as TagItem)
   dim intUb as integer
   intUb = UBound(muttTagList)
   redim preserve muttTagList(intUb + 1 )
   muttTagList(intUb+1).name = ipTag.name   
   muttTagList(intUb+1).text= ipTag.text
end subReDim muttTagList(1)应该是在初始化时设置