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
Jacques93
Bonjour Michel69, Michel69 a écrit :
Bonjour à tous,
Une petite question avec VB6
Comment mettre dans une form un champ bleu souligné type lien avec un site internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub Form_Load() With Me.Label1 .Caption = "FAQ Visual Basic " .Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
-- Cordialement,
Jacques.
Bonjour Michel69,
Michel69 a écrit :
Bonjour à tous,
Une petite question avec VB6
Comment mettre dans une form un champ bleu souligné type lien avec un site
internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le
simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click()
ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW
Me.Label1.ForeColor = RGB(128, 0, 128)
End Sub
Private Sub Form_Load()
With Me.Label1
.Caption = "FAQ Visual Basic "
.Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un
.doc, .xls
.ForeColor = vbBlue
.Font.Underline = True
.MouseIcon = LoadPicture("Hand.ico") ' à adapter
.MousePointer = fmMousePointerCustom
End With
End Sub
Comment mettre dans une form un champ bleu souligné type lien avec un site internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub Form_Load() With Me.Label1 .Caption = "FAQ Visual Basic " .Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
-- Cordialement,
Jacques.
Michel69
Merci Jacques, ça marche presque...
Sauf qu'au lieu d'ouvir une tache IE avec mon URL, il ouvre "Poste de travail"....
Bon chepas !!!!
"Jacques93" a écrit dans le message de news:
Bonjour Michel69, Michel69 a écrit :
Bonjour à tous,
Une petite question avec VB6
Comment mettre dans une form un champ bleu souligné type lien avec un site internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub Form_Load() With Me.Label1 .Caption = "FAQ Visual Basic " .Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
-- Cordialement,
Jacques.
Merci Jacques, ça marche presque...
Sauf qu'au lieu d'ouvir une tache IE avec mon URL, il ouvre "Poste de
travail"....
Bon chepas !!!!
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
Ovu6U9VPGHA.1216@TK2MSFTNGP14.phx.gbl...
Bonjour Michel69,
Michel69 a écrit :
Bonjour à tous,
Une petite question avec VB6
Comment mettre dans une form un champ bleu souligné type lien avec un
site internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le
simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click()
ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW
Me.Label1.ForeColor = RGB(128, 0, 128)
End Sub
Private Sub Form_Load()
With Me.Label1
.Caption = "FAQ Visual Basic "
.Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un .doc,
.xls
.ForeColor = vbBlue
.Font.Underline = True
.MouseIcon = LoadPicture("Hand.ico") ' à adapter
.MousePointer = fmMousePointerCustom
End With
End Sub
Sauf qu'au lieu d'ouvir une tache IE avec mon URL, il ouvre "Poste de travail"....
Bon chepas !!!!
"Jacques93" a écrit dans le message de news:
Bonjour Michel69, Michel69 a écrit :
Bonjour à tous,
Une petite question avec VB6
Comment mettre dans une form un champ bleu souligné type lien avec un site internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub Form_Load() With Me.Label1 .Caption = "FAQ Visual Basic " .Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
-- Cordialement,
Jacques.
Michel69
Sorry, j'ai rien dit... tout fonctionne bien.... merci !!!!
"Michel69" a écrit dans le message de news:
Merci Jacques, ça marche presque...
Sauf qu'au lieu d'ouvir une tache IE avec mon URL, il ouvre "Poste de travail"....
Bon chepas !!!!
"Jacques93" a écrit dans le message de news:
Bonjour Michel69, Michel69 a écrit :
Bonjour à tous,
Une petite question avec VB6
Comment mettre dans une form un champ bleu souligné type lien avec un site internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub Form_Load() With Me.Label1 .Caption = "FAQ Visual Basic " .Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
-- Cordialement,
Jacques.
Sorry, j'ai rien dit... tout fonctionne bien.... merci !!!!
"Michel69" <michel69@logys.fr> a écrit dans le message de news:
uWnDogWPGHA.456@TK2MSFTNGP15.phx.gbl...
Merci Jacques, ça marche presque...
Sauf qu'au lieu d'ouvir une tache IE avec mon URL, il ouvre "Poste de
travail"....
Bon chepas !!!!
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
Ovu6U9VPGHA.1216@TK2MSFTNGP14.phx.gbl...
Bonjour Michel69,
Michel69 a écrit :
Bonjour à tous,
Une petite question avec VB6
Comment mettre dans une form un champ bleu souligné type lien avec un
site internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le
simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click()
ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW
Me.Label1.ForeColor = RGB(128, 0, 128)
End Sub
Private Sub Form_Load()
With Me.Label1
.Caption = "FAQ Visual Basic "
.Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un .doc,
.xls
.ForeColor = vbBlue
.Font.Underline = True
.MouseIcon = LoadPicture("Hand.ico") ' à adapter
.MousePointer = fmMousePointerCustom
End With
End Sub
Sorry, j'ai rien dit... tout fonctionne bien.... merci !!!!
"Michel69" a écrit dans le message de news:
Merci Jacques, ça marche presque...
Sauf qu'au lieu d'ouvir une tache IE avec mon URL, il ouvre "Poste de travail"....
Bon chepas !!!!
"Jacques93" a écrit dans le message de news:
Bonjour Michel69, Michel69 a écrit :
Bonjour à tous,
Une petite question avec VB6
Comment mettre dans une form un champ bleu souligné type lien avec un site internet !!
les boutons ou les labels... ça n'a pas l'air de fonctionner !!
Il n'y a pas de contrôle "Lien HyperTexte" sous VB6, mais on peux le simuler avec un contrôle Label:
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_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub Form_Load() With Me.Label1 .Caption = "FAQ Visual Basic " .Tag = "http://faq.vb.free.fr/" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
-- Cordialement,
Jacques.
Jacques93
Bonsoir Michel69, Michel69 a écrit :
Sorry, j'ai rien dit... tout fonctionne bien.... merci !!!!
Ca tombe bien, j'ai rien entendu :-D
-- Cordialement,
Jacques.
Bonsoir Michel69,
Michel69 a écrit :
Sorry, j'ai rien dit... tout fonctionne bien.... merci !!!!
