如何得到一个对象中所有过程、属性、方法名的的字符串？

Question

如：如题，有什么方法？xiexie

Answer 1

用TypeLib Information（工程 引用 选择并加载peLib Information）用法参考：
http://www.vb-helper.com/howto_get_property_information.html
详细情况请查询MSDN

Answer 2

Title Get information about all of a control's properties 
Keywords control property, property information, TypeLib 
Categories Controls, Software Engineering 
 
 
 
Thanks to Oigres P. 
Set a project reference to the TypeLib Information library. Create a TLIApplication object and get an InterfaceInfo object for the control from its InterfaceInfoFromObject function. Then iterate through the interface's members. 
 
 
 
Private Sub Command1_Click()
    ''caution crashes if you try to read the Form1
    ' properties
    iterateMembers Text1
End SubSub iterateMembers(obj As Object)
    'iterate the members in the textbox interface
    'put them in a flexgrid for viewing
    Dim TLI As New TLIApplication, ret As Variant
    Dim interface As InterfaceInfo
    Dim member As MemberInfo    On Error Resume Next
    Set interface = TLI.InterfaceInfoFromObject(obj)
    Dim index As Long, tempstr As String
    ReDim str(interface.Members.Count) As String    index = 0
    For Each member In interface.Members
        tempstr = ""
        tempstr = tempstr & member.Name & vbTab & _
            member.VTableOffset & vbTab & _
            Hex$(member.MemberId) & _
                vbTab & member.HelpString
        'get property value; using memberID is faster than
        ' member.Name
        ret = TLI.InvokeHook(Text1, member.MemberId, _
            INVOKE_PROPERTYGET)
        'adjust long values; convert to hex (else shows neg
        ' value)
        If TypeName(ret) = "Long" Then
            ret = "&H" & Hex(ret) & "&"
            tempstr = tempstr & vbTab & ret & vbTab & "long"
        Else
            tempstr = tempstr & vbTab & ret & vbTab & _
                TypeName(ret)
        End If
        'store row data in array
        str(index) = tempstr
        index = index + 1    Next    Set TLI = Nothing
    fillGrid str()
End Sub