Lien Internet

Question

Bonjour tout le monde ...

Je souhaiterais réaliser un lien sur VB, me permettant d'ouvrir une page Web (Sur IE) ...

est-ce que quelqu'un pourrait-il me dire comment dois-je faire ??

Merci ...

Xav88 · Answer

Il faut mettre cette petite ligne dans le controle qui doit comporter ce lien, exemple; un label.


'Site Internet
Shell "start.exe http://www.TONSITE", vbHide

'Adresse Email
Shell "start.exe mailto:ADRESSE_MAIL?subject=SUJET_MAIL", vbHide


 :) Xavier :)

almey · Answer

J'ai essayé comme tu m'as dit ... mais il m'annonce un erreur de type 53 - Fichier Introuvable

Shell "start.exe http://www.aol.fr", vbHide

Est-ce qu'il faut que je rajoute un composant particulier ? Ou est-ce que çà ne fonctionne pas sur WinXP ?

Merci ...

Renfield · Answer

Start ne fonctionne me semble-t'il que sous 98 et NT....

essaies :


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()
    ShellExecute Me.hwnd, "open", "http://www.google.com", vbNullString, "C:\", SW_SHOWNORMAL
End Sub


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Xav88 · Answer

Désolé mais je ne sais pas si ça marche sous XP.
Moi je suis sous win98 et ça marche parfaitement.

bonne continuation

 :) Xavier :)

Renfield · Answer

Qu'est-ce qui fonctionne chez toi ?? 

Start ?? 

oui, mais ca n'existe plus depuis Windows 2000

sinon, je confirme, c'etait bel et bien la methode a utiliser

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Xav88 · Answer

Tout a fait, start fonctionne chez moi.

 :) Xavier :)

almey · Answer

Le code : 

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()
ShellExecute Me.hwnd, "open", "http://www.google.com", vbNullString, "C:\\", SW_SHOWNORMAL
End Sub

Fonctionne très bien ... mais pourrais tu m'expliquer à koi sert la constante SW_SHOWNORMAL ? ainsi que :
ShellExecute Me.hwnd, "open", "http://www.google.com", vbNullString, "C:\\", SW_SHOWNORMAL

Merci Thomas et merci Xavier ...

Renfield · Answer

la constante SW_SHOWNORMAL permet de définir comme la page va s'afficher..... 

voici d'autres constantes

Const SW_HIDE As Long = 0
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWNORMAL As Long = 1

l'autre appel est l'appel à l'API déclarée plus haut...

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Lien Internet

8 réponses

Discussions similaires