[vb6] esguire un file html

[fiscet]

...è possibile aprire un file senza passare per call shell()?

Vorrei eseguire un file html con il programma predefinito dall'utente (Explorer, navigator, ecc..).

Grazie

christian

[sebamix]

Metti questo in un modulo e poi richiama così:
Navigate Me,"http://www.html.it"
Navigate Me,"mailto:sebamix@hotmail.com"
Navigate Me,"file:///c:\pippo\caio.html"

Public Const SW_SHOW = 1 'Dichiarazione costanti
Public 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  'Dichiarazione API

'**********************************************************************
'* Funzione utilizzata x richiama il browser o il mailer predefinito. *
'**********************************************************************
Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
    Dim hBrowse As Long

    On Error GoTo Navigate_Err 'Istruzione per evitare errori bloccanti.
    
    hBrowse = ShellExecute(frm.HWnd, "open", WebPageURL, "", "", SW_SHOW)

Navigate_End:
    Exit Sub
    
Navigate_Err:
    ShowError Err.Number, Err.Description, "Navigate"
    Resume Navigate_End
End Sub

[sebamix]

Ah, con navigate puoi aprire tutti i file che vuoi con il programma di default.
A me funziona anche
Navigate Me,"c:\path\pippo.xls"

[fiscet]

... vale anche per html in locale, vero?

beh ...ci dò un'occhiata.

Grazie mille