'先引用 C:\WINDOWS\system32\tlbinf32.dll
'在窗体中建立一个Text1的文本框,建立一个List1的列表框
'复制以下代码至窗口中
Dim typeApp As New TLI.TLIApplication
Dim curInfo As InterfaceInfo
Private Sub Form_Load()
Set curInfo = typeApp.InterfaceInfoFromObject(Text1)
For i = 1 To curInfo.Members.Count
If curInfo.Members(i).MemberId > 0 Then
If curInfo.Members(i).MemberId <> curInfo.Members(i - 1).MemberId Then List1.AddItem curInfo.Members(i).Name
End If
Next
End Sub
阅读(418) | 评论(0) | 转发(0) |
