初用类模块的烦恼
我已建好了myclass类和由它组成的conmyclass类集合
conmyclass的add方法如下:
Public Function Add(Optional sKey As String) As myclass
Dim objnewmember As myclass
Set objnewmember = New myclass
If Len(sKey) = 0 Then
mCol.Add objnewmember
Else
mCol.Add objnewmember, sKey
End If
Set Add = objnewmember
Set objnewmember = Nothing
End Function
运行出错:要求对象
Dim newconclass As conmyclass
Set newconclass = New conmyclass
Dim newclass As myclass
Set newclass = New myclass
Set newclass = newconclass.Add(Text1.Text) 'Text1.Text="1",并且停在此行
请帮忙解决,谢谢.