当前位置:编程学习 > VB >>

vb 如何获取类对象的属性名称

想直接获取Class 中的属性名

如:类class1 有属性,dd,ds
在使用过程中,有没有方法可以直接取到这2个属性的名字? 
要求结果:

debug.print 方法名(class1.dd) 

输出:dd --------------------编程问答-------------------- 补充:是VB6.0 --------------------编程问答-------------------- 你这里的 dd 不就是名称嘛?
还是说 你要枚举出 一个类 里面所有的属性名? --------------------编程问答-------------------- 看你是什么写类的?静态类可以直接调用,非静态类要调先用new实例化才可以
--------------------编程问答-------------------- 先引用 C:\Windows\system32\TLBINF32.DLL
然后测试以下代码:

    Dim u As New Class1   ' 你的类
    Dim objinfo As InterfaceInfo
    Dim meminfo As MemberInfo
    Dim strTmp As String
    Set objinfo = InterfaceInfoFromObject(u)
    For Each meminfo In objinfo.Members
        If meminfo.InvokeKind And INVOKE_PROPERTYGET Then
          strTmp = strTmp & meminfo.Name & vbCrLf
        End If
    Next
    MsgBox strTmp
--------------------编程问答--------------------
引用 4 楼 SupermanKing 的回复:
先引用 C:\Windows\system32\TLBINF32.DLL
然后测试以下代码:

    Dim u As New Class1   ' 你的类
    Dim objinfo As InterfaceInfo
    Dim meminfo As MemberInfo
    Dim strTmp As String
    Set objinfo = InterfaceInfoFromObject(u)
    For Each meminfo In objinfo.Members
        If meminfo.InvokeKind And INVOKE_PROPERTYGET Then
          strTmp = strTmp & meminfo.Name & vbCrLf
        End If
    Next
    MsgBox strTmp
学习了
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,