Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut, Tu peux le faire via l'API ShellExecute :
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
Private Sub Form_Load() 'email Call ShellExecute(Me.hwnd, vbNullString, "mailto:", vbNullString, "C:", 1) 'page web Call ShellExecute(Me.hwnd, vbNullString, "http://www.page.com", vbNullString, "C:", 1) End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
herve.levaillant a écrit :
Bonjour/Bonsoir
Désolé si la question a été déjà posée, mais je n'en retrouve pas la trâce dans ma base de données !...
Comment à partie de VB6 puis-je acceder à un site Internet d'adresse connue :
par exemple : http://www.cedrof.fr.st/
Merci à tous, mais aussi et surtout à ceux qui le font vivre - MVP & Cie
Hervé
Salut,
Tu peux le faire via l'API ShellExecute :
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
Private Sub Form_Load()
'email
Call ShellExecute(Me.hwnd, vbNullString, "mailto:ng@gsoft-fr.com",
vbNullString, "C:", 1)
'page web
Call ShellExecute(Me.hwnd, vbNullString, "http://www.page.com",
vbNullString, "C:", 1)
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
herve.levaillant <herve.levaillant@wanadoo.fr> a écrit :
Bonjour/Bonsoir
Désolé si la question a été déjà posée,
mais je n'en retrouve pas la trâce dans ma base de données !...
Comment à partie de VB6
puis-je acceder à un site Internet d'adresse connue :
par exemple :
http://www.cedrof.fr.st/
Merci à tous,
mais aussi et surtout à ceux
qui le font vivre - MVP & Cie
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
Private Sub Form_Load() 'email Call ShellExecute(Me.hwnd, vbNullString, "mailto:", vbNullString, "C:", 1) 'page web Call ShellExecute(Me.hwnd, vbNullString, "http://www.page.com", vbNullString, "C:", 1) End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
herve.levaillant a écrit :
Bonjour/Bonsoir
Désolé si la question a été déjà posée, mais je n'en retrouve pas la trâce dans ma base de données !...
Comment à partie de VB6 puis-je acceder à un site Internet d'adresse connue :
par exemple : http://www.cedrof.fr.st/
Merci à tous, mais aussi et surtout à ceux qui le font vivre - MVP & Cie
Hervé
herve.levaillant
Merci beaucoup NG, je vais mettre en oeuvre ta solution.
Hervé
Merci beaucoup NG,
je vais mettre en oeuvre ta solution.