7,785
社区成员




'''Form1窗体
Option Explicit
Private Sub Form_Load()
MsgBox GetNames
End Sub
Private Function GetNames() As String
On Error GoTo 100
Dim IFI As InterfaceInfo, Memb As MemberInfo, s As String
Dim MyClass As Class1, Ers As String
Set MyClass = New Class1
Ers = "101"
Set IFI = InterfaceInfoFromObject(MyClass)
Ers = "102"
For Each Memb In IFI.Members ''''错误出在这里>>IFI.Members
s = s & IIf(s <> "", vbCrLf, "") & Memb.Name
Next
GetNames = s
Exit Function
100:
GetNames = Err.Description & vbCrLf & Ers
End Function
'''''Class1----类
Option Explicit
Private clsName As String
Private classAge As Integer
Private Sub Class_Initialize()
clsName = "dddk"
classAge = 18
End Sub
Public Property Get Name() As String
Name = clsName
End Property
Public Property Get Age() As String
Age = classAge
End Property