数组无法定义为类？（VB6.0)
For i = 1 To 100
For j = 1 To 100
Set Map(i, j) = New Class2
Map(i, j) = "ABC "
Map(i.j).xxx=xxx
Next j
Next i
上面代码要实现的意思是很容易看出来的。但是vb不同意这样做。请问是什么原因，谢谢。
[解决办法]
给你个示例吧:
窗体代码:
Private Sub Command1_Click()
Dim obj1 As New Class1
Dim i As Integer, j As Integer
Dim array1(10, 10) As Object
For i = 1 To 10
For j = 1 To 10
Set array1(i, j) = New Class1
array1(i, j).count = i * j
Debug.Print array1(i, j).count
Next
Next
End Sub
类代码:
Private i As Integer
Public Property Let count(ByVal j As Integer)
i = j
End Property
Public Property Get count() As Integer
count = i
End Property
[解决办法]
搞出一万个类实例来干嘛？想让系统崩溃的办法很多阿，不必这样做吧？
