Wenn jemand ganz spontan eine Lösung kennt:
Aus dem VB Programm heraus, soll eine framebasierende webseite mit dem installierten Browser auf dem User-Client ausgeführtz, bzw. angezeigt werden…
Bitte nicht gross suchen oder proben, ich klemme mich morgen früh sowieso dahinter.
Public Declare Function FindExecutable ...
Public Function HilfeStarten()
Dim dok As String, exe As String, path As String, i As Long
On Error GoTo fehler
exe = Space(254) & Chr(0)
dok = app.path & "helpindex.html" 'Hier geht auch eine URL
path = App.path & "\help"
i = FindExecutable(dok, path, exe)
If i 42 Or Left(exe, 1) = Chr(0) Then
MsgBox "FILE/URL NOT FOUND OR NO BROWSER FOUND!"), vbCritical
Else
Shell Left(exe, InStr(exe, Chr(0)) - 1) & " " & path & "\" & dok
End If
Exit Function
fehler:
If Err.Number = 53 Then
MsgBox "Die Datei " & Left(exe, InStr(exe, Chr(0)) - 1) & cr & "die zum öffnen der Hilfe erforderlich ist wurde nicht gefunden!", vbCritical
Else
Call ExtErrMsg(Err.Number, Err.Description, "", "functions/Hilfestarten", "")
End If
End Function
Ein Teil des Codes ist nicht unbedingt nötig. Wichtig ist die API-Funktion und der Shell-Befehl. Die Klimmzüge mit chr(0) sind nötig, da die Funktion einen Nullterminierten String erwartet.
hoffedirgeholfenzuhaben, holli