mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...

Private Sub Command1_Click()
   Dim IeAppli As Object
   Set IeAppli = CreateObject("InternetExplorer.Application")
 
   IeAppli.Visible = True
   IeAppli.Navigate2 "C:/html/index.html"
End Sub

  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
 
  Public Function OpenWithLinkedApp(ByVal lOwnerHWND As Long, _
    ByVal sFile As String, Optional ByVal sVerb As String = "open") As Boolean
 
    OpenWithLinkedApp = ShellExecute(lOwnerHWND, sVerb, sFile, "", "", 1) > 32
  End Function

OpenWithLinkedApp 0, "C:\MeineHtml.html"

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.