🚀 go-pugleaf

Esempio di ShellExecute
-----------------------

Piccolo e semplicissimo esempio di come utilizzare l'API ShellExecute per
richiamare il browser o il gestore di posta predefiniti sul proprio
computer.

Non ho avuto modo di provare questo esempio su un computer senza browser o
gestore di posta, quindi non so se vada in errore, per questo motivo ho
inserito il controllo d'errore nel richiamo dell'API.

Questo programma � stato creato da Stefano Stracuzzi solo come esempio per
il Sito Comune del newsgroup italiano sul Visual Basic, quindi non viene
fornita alcuna garanzia e alcun supporto nell'utilizzo di questa funzione ed
� da ritenersi freeware.

Autore: Stefano Stracuzzi (Stracca)
E-mail: stracca@comune.modena.it
Web   : http://www.comune.modena.it/~stracca

Sito Comune              : http://www.murialdo.it/it_lang_vb
WebMaster del Sito Comune: it_lang_vb@murialdo.it
NewsGroup                : news://it.comp.lang.visal-basic

A LIVELLO DI MODULO
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

IN UN FORM CON TRE LABEL E UN BOTTONE
Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Label1.Caption = "http://www8.kinghost.com/amateur/jandj/FTSpages.htm"
    Label1.FontUnderline = True
    Label1.MousePointer = 10
    Label2.Caption = "mailto:it_lang_vb@murialdo.it"
    Label2.FontUnderline = True
    Label3.Caption = "Clicca sui collegamenti ipertestuali!"

    Command1.Caption = "&Uscita"
End Sub

Private Sub Label1_Click()
    Call Navigate(Me, Label1.Caption)
End Sub

Private Sub Label2_Click()
    Call Navigate(Me, Label2.Caption & "?SUBJECT=Esempio di ShellExecute per
browser e E-Mail")
End Sub

Prova questo, te lo posto come l' ho trovato
gino