Hyperlien

Salut,

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
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()

Call ShellExecute(Me.hwnd, vbNullString, "http://www.monsite.com",
vbNullString, "C:", SW_SHOWNORMAL)

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/

Antoine Labusquière wrote:

Bonjour,

Je cherche dans l'urgence la fonction permettant d'ouvrir une page
web sous VB.
La méthode FollowHyperlink (que j'utilise sous Access) ne fonctionne
pas :(

Merci

Oki, merci beaucoup.


"ng" <ng@ngsoft-fr.com> a écrit dans le message de
news:O5%23Xb$A6EHA.1392@tk2msftngp13.phx.gbl...

Salut,

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
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()

Call ShellExecute(Me.hwnd, vbNullString, "http://www.monsite.com",
vbNullString, "C:", SW_SHOWNORMAL)

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/

Antoine Labusquière wrote:
> Bonjour,
>
> Je cherche dans l'urgence la fonction permettant d'ouvrir une page
> web sous VB.
> La méthode FollowHyperlink (que j'utilise sous Access) ne fonctionne
> pas :(
>
> Merci