Discussion :

[Xsat1]

re-bonjour les amis !

j'aime vraiment votre site, des réponses très claires et rapides sont au rendez vous, que demander de plus pour un étudiant comme moi? :p

bon allez je vais droit au but, je dois faire afficher du texte dans une msgbox (5 lignes maximum) et dans cette msgbox, je voudrais y mettre un lien hypertexte, qu'il soit cliquable et que bien entendu, il m'envoie sur la page adéquate

j'ai déjà vu une ou 2 idées sur le net mais ça m'a l'air vachement extrême pour un petit lien lol, ou je me trompe

encore merci !

[SfJ5Rpw8]

Pas possible en standard dans un message box.. le plus simple est peu-être de créer ta form ... d'y placer un label (label1 avec label1.caption ="http://vb.developpez.com/" )

puis le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
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 Sub Label1_Click()
 ShellExecute Me.hwnd, "open", Label1.Caption, "", App.Path, 1
End Sub

[Xsat1]

ha ouais j'avais vu +/- du genre, merci!

mais ça me posera problème car en fonction de chaque nom qui sera tapé (5 pour le moment), une msgbox apparait avec du texte (qui est différent selon le nom) et j'aurais voulu incorporer le lien dedans, mais c'est impossible comme tu viens de me le dire.

Existe t-il une autre solution alternative?

Merci

[SfJ5Rpw8]

...

mais ça me posera problème car en fonction de chaque nom qui sera tapé (5

Tu peu utiliser plusieurs label et changer leur valeurs ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Form_Load()
 
 If Condition1 Then
        Label2.Caption = "le site des développeurs:  "
       Label1.Caption = "http:\\vb.developpez.com"
  Else
    Label2.Caption = "la page à bbil "
     Label1.Caption = "http:\\bbil.developpez.com"
  End If
 End Sub

Existe t-il une autre solution alternative?
...

pas d'idée ...peu-être un contrôle WebBrowser ?...

[DAUDET78]

le plus simple est peu-être de créer ta form ... d'y placer un label

A partir de la form de bbil, tu te refais une MsgBox personnel avec les boutons OK, Oui, Non que tu veux et un label pour y mettre ton texte spécial