OCX dynamisch in VB 6.0 laden

Question

Ich lade OCX dynamisch in VB 6.0.

Im folgenden ist der Code, den ich verwende die Methoden zu laden und rufen:

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 

Jetzt habe ich öffentliche Eigenschaften von OCX zugreifen möchten. Wie kann ich auf die Eigenschaften von OCX zugreifen (setzen)?

Answer 1

Sie können ein OCX/COM-Steuerelement nicht auf diese Weise verwenden.

Um eine Instanz des Objekts zu erstellen und zu verwenden, müssen Sie eine Instanz des Objekts erstellen und diese dann verwenden.

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

Dies erfordert, dass die DLL registriert wird und verwendet wird, was auch immer registriert ist und nicht eine bestimmte Instanz.

Wenn Sie nicht möchten, dass es registriert wird, schauen Sie sich DirectCOM an.