タイプライブラリ情報を取得するには

アトム 2006-06-09 23:54:37 No: 95696

いつもお世話になっております。

今タイプライブラリから OLE Viewer に表示されているような引数の型とリターン値の情報を取得したいのですが、取得方法がわかりません。
どなたか教えて頂けないでしょうか。

-----

    Dim TLApp As TLI.TLIApplication
    Dim TLInfo As TLI.TypeLibInfo
    Dim TypeInfo As TLI.TypeInfo
    Dim Member As TLI.MemberInfo

Set TLApp = CreateObject("TLI.TLIApplication")

    Set TLInfo = TLApp.TypeLibInfoFromFile(FileName)
    For Each TypeInfo In TLInfo.TypeInfos
        If TypeInfo.TypeKind <> TKIND_COCLASS Then
            For Each Member In TypeInfo.Members

---ここで引数の型情報とリターン値を取得したい---

            Next
        End If
    Next

魔界の仮面弁士 2006-06-10 01:14:43 No: 95697

TLIのヘルプ(TlbInf32.chm) には、オブジェクトブラウザもどきの
VB向けサンプルコードがありますが、そちらは参照されていますか?

[TypeLib Information Reference]
└[Code Samples]
└[Custom Obhect Browser Basics]
└[Build a simple two list object browser with minimal code]

> ---ここで引数の型情報とリターン値を取得したい---
この場合だと、 Member.Parameters とか Member.ReturnType あたりかな。

追加情報としては、このあたり。
http://msdn.microsoft.com/library/ja/jpdnaskdr/htm/gui46.asp