🚀 go-pugleaf

Aggiungi un modulo chiamato modulo.bas il cui contenuto �:

Option Explicit

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 Resume Next 'Istruzione per evitare errori bloccanti.
    hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)

End Sub

Nel form lancia il comando

Call Navigate(Me, "http://www.space-web.com")

Ciao
Luca

"Domenico Bellavia" <domenicobellavia@tiscali.it> ha scritto nel messaggio
news:bvd3p2$81p$1@lacerta.tiscalinet.it...
> Qualcuno sa indicarmi come si potrebbe avviare internet explorer con un
dato
> indirizzo internet?
>
>