OVH Cloud OVH Cloud

Visualiser une page Web

4 réponses
Avatar
Papy07
Bonjour,

Je cherche un moyen de visualiser une page Web à partir d'un bouton de
commande. J'ai fait des recherches sur le site, mais je n'ai rien trouvé.
S.V.P. auriez-vous une solution pour un débutant dans le domaine?

Merci

4 réponses

Avatar
Jean-Marc
"Papy07" a écrit dans le message de
news:
Bonjour,

Je cherche un moyen de visualiser une page Web à partir d'un bouton de
commande. J'ai fait des recherches sur le site, mais je n'ai rien


trouvé.
S.V.P. auriez-vous une solution pour un débutant dans le domaine?




Hello,

Si tu souhaites visualiser avec un Navigateur externe, alors tu peux
faire comme ceci:
(fonctionne avec tous les navigateurs, c'est celui par défaut qui est
utilisé):

' -----------------------
Option Explicit

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

Private Sub Command1_Click()

Dim s As String

' le lien, qui pourrait venir d'une texteBox
s = "http://www.google.be"

ShellExecute hwnd, "open", s, vbNullString, vbNullString,
SW_SHOWNORMAL
End Sub
' -----------------------

Si tu veux visualiser ta page web dans ton programme,
il faut utiliser un controle WebBrowser:
Menut Projets/Composants, choisir "Microsoft Internet Controls"
et utiliser la méthode: Navigate() ou Navigate2()

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
Papy07
C'est exactement ce que je cherchais, et tout fonctionne très bien.

Merci pour ce coup de pouce Jean-Marc.

"Jean-Marc" a écrit :

"Papy07" a écrit dans le message de
news:
> Bonjour,
>
> Je cherche un moyen de visualiser une page Web à partir d'un bouton de
> commande. J'ai fait des recherches sur le site, mais je n'ai rien
trouvé.
> S.V.P. auriez-vous une solution pour un débutant dans le domaine?


Hello,

Si tu souhaites visualiser avec un Navigateur externe, alors tu peux
faire comme ceci:
(fonctionne avec tous les navigateurs, c'est celui par défaut qui est
utilisé):

' -----------------------
Option Explicit

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

Private Sub Command1_Click()

Dim s As String

' le lien, qui pourrait venir d'une texteBox
s = "http://www.google.be"

ShellExecute hwnd, "open", s, vbNullString, vbNullString,
SW_SHOWNORMAL
End Sub
' -----------------------

Si tu veux visualiser ta page web dans ton programme,
il faut utiliser un controle WebBrowser:
Menut Projets/Composants, choisir "Microsoft Internet Controls"
et utiliser la méthode: Navigate() ou Navigate2()

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;




Avatar
jean-marc
Avec plaisir, et merci du retour d'information :-)

--
Jean-marc


"Papy07" wrote in message
news:
C'est exactement ce que je cherchais, et tout fonctionne très bien.

Merci pour ce coup de pouce Jean-Marc.

"Jean-Marc" a écrit :

> "Papy07" a écrit dans le message de
> news:
> > Bonjour,
> >
> > Je cherche un moyen de visualiser une page Web à partir d'un bouton de
> > commande. J'ai fait des recherches sur le site, mais je n'ai rien
> trouvé.
> > S.V.P. auriez-vous une solution pour un débutant dans le domaine?
>
>
> Hello,
>
> Si tu souhaites visualiser avec un Navigateur externe, alors tu peux
> faire comme ceci:
> (fonctionne avec tous les navigateurs, c'est celui par défaut qui est
> utilisé):
>
> ' -----------------------
> Option Explicit
>
> 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 Const SW_SHOWNORMAL As Long = 1
>
> Private Sub Command1_Click()
>
> Dim s As String
>
> ' le lien, qui pourrait venir d'une texteBox
> s = "http://www.google.be"
>
> ShellExecute hwnd, "open", s, vbNullString, vbNullString,
> SW_SHOWNORMAL
> End Sub
> ' -----------------------
>
> Si tu veux visualiser ta page web dans ton programme,
> il faut utiliser un controle WebBrowser:
> Menut Projets/Composants, choisir "Microsoft Internet Controls"
> et utiliser la méthode: Navigate() ou Navigate2()
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
>


Avatar
Danette
Va faire une visite sur http://www.vbfrance.com c'est hypercomplet...

Cordialement

Dany

"Papy07" a écrit :

Bonjour,

Je cherche un moyen de visualiser une page Web à partir d'un bouton de
commande. J'ai fait des recherches sur le site, mais je n'ai rien trouvé.
S.V.P. auriez-vous une solution pour un débutant dans le domaine?

Merci