PDA

Visualizza la versione completa : [vb6] esguire un file html


fiscet
11-05-2002, 15:59
... 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
11-05-2002, 17:57
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
11-05-2002, 17:58
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
11-05-2002, 18:24
... vale anche per html in locale, vero?

beh ...ci d un'occhiata.

Grazie mille

Loading