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
Laurent Jordi \(www.ezlogic.mc\)
Salut,
Il y a plusieurs méthodes...
La plus simple est d'utiliser une commande shell
Dim X X = Shell("explorer.exe http://www.ezlogic.mc", 4)
@+
LJ
"Vince" a écrit dans le message de news:6a4101c483a6$0bbad560$ Je voudrais ouvrir une page web dans internet explorer sur l'événement click d'un bouton ...
Comment dois-je m'y prendre ?
Salut,
Il y a plusieurs méthodes...
La plus simple est d'utiliser une commande shell
Dim X
X = Shell("explorer.exe http://www.ezlogic.mc", 4)
@+
LJ
"Vince" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:6a4101c483a6$0bbad560$a301280a@phx.gbl...
Je voudrais ouvrir une page web dans internet explorer
sur l'événement click d'un bouton ...
Dim X X = Shell("explorer.exe http://www.ezlogic.mc", 4)
@+
LJ
"Vince" a écrit dans le message de news:6a4101c483a6$0bbad560$ Je voudrais ouvrir une page web dans internet explorer sur l'événement click d'un bouton ...
Comment dois-je m'y prendre ?
Géo
Vince a écrit:
Je voudrais ouvrir une page web dans internet explorer sur l'événement click d'un bouton ...
Comment dois-je m'y prendre ?
Déclare dans ton application l'API et la constante suivantes :
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_NORMAL = 1
Puis, quand l'utilisateur clique sur un bouton ou un label, ajoute le code suivant :
Private Sub Label1_Click() Dim lngRep As Long lngRep = ShellExecute(hwnd, "open", "http://www.go-soft.ch", vbNullString, vbNullString, SW_NORMAL) End Sub
Automatiquement, la connexion Internet sera lancée vers le site pour un mail :
Je voudrais ouvrir une page web dans internet explorer
sur l'événement click d'un bouton ...
Comment dois-je m'y prendre ?
Déclare dans ton application l'API et la constante suivantes :
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_NORMAL = 1
Puis, quand l'utilisateur clique sur un bouton ou un label, ajoute le
code suivant :
Private Sub Label1_Click()
Dim lngRep As Long
lngRep = ShellExecute(hwnd, "open", "http://www.go-soft.ch",
vbNullString, vbNullString, SW_NORMAL)
End Sub
Automatiquement, la connexion Internet sera lancée vers le site
pour un mail :
Je voudrais ouvrir une page web dans internet explorer sur l'événement click d'un bouton ...
Comment dois-je m'y prendre ?
Déclare dans ton application l'API et la constante suivantes :
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_NORMAL = 1
Puis, quand l'utilisateur clique sur un bouton ou un label, ajoute le code suivant :
Private Sub Label1_Click() Dim lngRep As Long lngRep = ShellExecute(hwnd, "open", "http://www.go-soft.ch", vbNullString, vbNullString, SW_NORMAL) End Sub
Automatiquement, la connexion Internet sera lancée vers le site pour un mail :
Si c'est obligatoirement dans IE, tu peux aussi tester ceci :
Dim oIE As Object Set oIE = CreateObject("InternetExplorer.Application") Call oIE.Navigate("http://www.monsite.com") oIE.Visible = True
-- 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/ http://apisvb.europe.webmatrixhosting.net/
Vince a écrit :
Je voudrais ouvrir une page web dans internet explorer sur l'événement click d'un bouton ...
Comment dois-je m'y prendre ?
Salut,
Si c'est obligatoirement dans IE, tu peux aussi tester ceci :
Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
Call oIE.Navigate("http://www.monsite.com")
oIE.Visible = True
--
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/
http://apisvb.europe.webmatrixhosting.net/
Vince <anonymous@discussions.microsoft.com> a écrit :
Je voudrais ouvrir une page web dans internet explorer
sur l'événement click d'un bouton ...
Si c'est obligatoirement dans IE, tu peux aussi tester ceci :
Dim oIE As Object Set oIE = CreateObject("InternetExplorer.Application") Call oIE.Navigate("http://www.monsite.com") oIE.Visible = True
-- 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/ http://apisvb.europe.webmatrixhosting.net/
Vince a écrit :
Je voudrais ouvrir une page web dans internet explorer sur l'événement click d'un bouton ...
