Laufzeitfehler 429

Werbeanzeige

Kampfschaf

Frischling

Beiträge: 47

02.05.2011, 19:03

Laufzeitfehler 429

Guten Abend!

Dieser Fehler kommt bei PC's, die anscheinend kein VB6 installiert haben! In meinem Editor werden Untereditoren (DLL Files) über den Editor geladen und geöffnet! Bei mir funktioniert das wunderbar! Bei einem Laptop mit Rohwindows kommt aber dieser Fehler "http://support.microsoft.com/kb/828550/de"!

Aufgerufen wird dies folgender Weise:

Quellcode

1
2
3

    LoadPlugin mnuOSTD(Index).Caption & ".dll", "OSTD" & mnuOSTD(Index).Caption & ".clsMain", Me
    rtn = SetParent(FindWindow(vbNullString, LoadName(mnuOSTD(Index).Caption & ".dll", "OSTD" & mnuOSTD(Index).Caption & ".clsMain", Me)), Me.hwnd)
    DeleteObject rtn

Funktion dazu:

Quellcode

Public Sub LoadPlugin(ByVal RegisterFile As String, _
                      ByVal Dll_Open, _
                      ByVal frm As Form)

    On Error Resume Next
    '##############################
    '### LoadPlugin
    '### Aufrufen des Plugins
    '##############################
    '
    RegisterFile = PlugPath & LCase$("OSTD") & RegisterFile
    RegisterServer frm.hwnd, RegisterFile, True
    CreateObject(Dll_Open).RunMe
    RegisterServer frm.hwnd, RegisterFile, False
    Set Dll_Open = Nothing
    On Error GoTo 0

End Sub

Kann mit jemand sagen, was man auf diesen PC installieren muss, damit der Fehler weg ist?

Vielen Dank!

OTD Dev Blog OTD Forum