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
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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!