VB 6.0で動的にOCXをロードする

Question

VB 6.0で動的にOCXをロードしています。

次は私がメソッドをロードし、呼び出すために使用していたコードです：

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long 
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long 
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long 
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long 

Private Sub Foo 
    On Error Resume Next 

    Dim lb As Long, pa As Long 
    Dim versionString As String 
    Dim retValue as Long 

    lb = LoadLibrary("D:\projects\other\VB_DLLs\TestDLL\TestDLL.dll") 

    'retrieve the address of getVersion' 
    pa = GetProcAddress(lb, "getVersion") 

    'Call the getVersion function' 
    retValue = CallWindowProc (pa, Me.hWnd, "I want my version", ByVal 0&, ByVal 0&) 

    'release the library' 
    FreeLibrary lb 
End Sub 

は、今私は、OCXのパブリックプロパティにアクセスしたいです。 OCXのプロパティにどのようにアクセス（取得/設定）できますか？

Answer 1

このようにOCX/COMコントロールを使用することはできません。

オブジェクトのインスタンスを作成して使用するには、オブジェクトのインスタンスを作成し、それを使用する必要があります。

Set TestObject = CreateObject("TestDll.TestObject") 
Value = TestObject.Method(InputValue) 

これはDLLを登録する必要があり、特定のインスタンスではなく登録されているものを使用します。

登録したくない場合は、DirectCOMをご覧ください。