取类名，应该算难的问题了吧

[zskllj]

dim t as new class1
msgbox test(t)

Public Sub test(obj As Object) as string
test=在这里如何可以获得obj的真实类名(class1)
end sub

[pcwe2002]

Public Sub test(obj As Object) as string
test=typename(obj)
end sub

[还想懒够]

typename或者使用typeof

[zzyong00]

[Quote=引用 1 楼 pcwe2002 的回复:]
Public Sub test(obj As Object) as string
test=typename(obj)
end sub
[/Quote]
晕
Public Function test(obj As Object) as string
test=typename(obj)
end sub

[callcenter油条]

Public Function GetName(obj As Object) As String

GetName = TypeName(obj)
End Function

[zskllj]

多谢多谢，如果在类不同的工程里呢？

[嗷嗷叫的老马]

..路过

[Sandrer]

我还以为说的是获得窗口类的类名呢~~~~~

[zhufenghappy]

typename就可以解决的