Aktivere html-fil uanset brugers browser og URL

Hej.

Spørgsmålet om at finde drevbogstavet for CD-drev er nylig besvaret
http://exp.dk/spm/284954

Det andet med at åbne et HTML-dokument gøres således:

Øverst i formen definerer du denne funktion:

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
    String, ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Lad den stå således eller på én linie.  Underscore betyder: fortsættes...

Det kan udformes lidt forskelligt hvorledes du kalder en HTML-fil, i dette tilfælde ligger den ikke på CD-drev men på en sti som brugeren har angivet i en ini-fil, kaldet 'netsti' (lokalnetværk).  Du kan udmærket lave det således at brugeren kalder filen fra et domæne, og altså skal være on-line.

Private Sub mnuhelp_Click(Index As Integer)
  If Len(Dir(netsti & "manual12.htm")) > 5 Then
      ret = ShellExecute(Me.hwnd, "Open", netsti & "manual12.htm", "", App.Path, 1)
    Else
      X = MsgBox("Vejledningen 'manual12.htm' findes ikke på " & netsti & "  - hent den på www.jkfsoft.dk", 48, "Medd. fra 'Hjælp'.")
  End If
End Sub

M.v.h.  Jørn

Hej Jørn
Mange tak, det var lige det, jeg skulle bruge.
Nu har du kun fået 60 points, kan jeg se. Hvordan tildeler jeg dig flere. Jeg lovede jo andet end de 60 i spørgsmålet.

Mvh Johnny H.

Hej Johnny.

Jeg mangler ikke point til selv at spørge, så det er ok.  Gem dem til en anden god gang.

Godt nytår, m.v.h.  Jørn