VB获取对象成员

VB获取对象成员，包括常量、方法、属性等。

使用的 TypeLib Information库，一般系统中都有，如果找不到可以百度一下"tlbinf32.dll"，下载下来注册就行了。

一个简单的Demo

Option Explicit

Private objCurrent As Object

Private Sub Command1_Click()
Call AddListItem(Text1.Text, List1)
End Sub

Private Sub AddListItem(objName As String, lst As ListBox)
On Error GoTo err_exit:
Dim i As Long
Dim oTLB As InterfaceInfo
Dim obj As Object
Set objCurrent = Nothing
Set obj = CreateObject(objName)
Set objCurrent = obj
Set oTLB = TLI.InterfaceInfoFromObject(obj)

lst.Clear

For i = 1 To oTLB.Members.Count
Select Case oTLB.Members(i).InvokeKind
Case TLI.INVOKE_CONST '常量
lst.AddItem oTLB.Members(i).Name
Case TLI.INVOKE_EVENTFUNC '事件
lst.AddItem oTLB.Members(i).Name
Case TLI.INVOKE_FUNC '方法
lst.AddItem oTLB.Members(i).Name
Case TLI.INVOKE_PROPERTYGET 'get属性
lst.AddItem oTLB.Members(i).Name
Case TLI.INVOKE_PROPERTYPUT 'let属性
lst.AddItem oTLB.Members(i).Name
Case TLI.INVOKE_PROPERTYPUTREF 'set属性
lst.AddItem oTLB.Members(i).Name
Case TLI.INVOKE_UNKNOWN '未知
lst.AddItem oTLB.Members(i).Name
End Select

Next i
err_exit:
End Sub

Private Function GetHelpString(obj As Object, strMember As String) As String
' If obj = Nothing Then
' GetHelpString = ""
' Exit Function
' End
Dim i As Long
Dim oTLB As InterfaceInfo
Set oTLB = TLI.InterfaceInfoFromObject(obj)

For i = 1 To oTLB.Members.Count
If oTLB.Members(i).Name = strMember Then
GetHelpString = oTLB.Members(i).HelpString
Exit Function
End If
Next i
End Function

Private Sub List1_Click()
List1.ToolTipText = GetHelpString(objCurrent, List1.Text)

Text2.Text = GetHelpString(objCurrent, List1.Text)
End Sub

在输入框中输入要创建对象的完整类名，如“scripting.filesystemobject”，点击按钮，即可遍历对象中的成员，显示在列表中，选中某个成员，提示该成员的帮助信息。