ActiveX DLLについて (ID:87013)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 とっても手抜きなサンプル。 Private Sub Command1_Click() On Error Resume Next List1.Clear Dim FileName As String FileName = "C:\Program Files\Common Files\System\ado\msado15.dll" Dim TLApp As TLI.TLIApplication Set TLApp = CreateObject("TLI.TLIApplication") Dim TLInfo As TLI.TypeLibInfo Set TLInfo = TLApp.TypeLibInfoFromFile(FileName) Dim TypeInfo As TLI.TypeInfo Dim Member As TLI.MemberInfo For Each TypeInfo In TLInfo.TypeInfos List1.AddItem "=== " & TypeInfo.Name & " (" & TypeInfo.TypeKindString & ") ===" For Each Member In TypeInfo.Members List1.AddItem Member.Name Next Next Set TLInfo = Nothing Set TLApp = Nothing End Sub