[VB6, Windows Seven] A propos de la petite zone de texte qui s'affiche quand on survole un bouton

**KoalaMousse** · 19/11/2011, 10h04

Bonjour à tous,
mon soucis est relativement simple: mon programme se compose d'une petite "form" avec quelques boutons dessus. J'aimerais que lorsque l'utilisateur survole l'un de ces boutons, il y ait une petite zone de texte qui s'affiche indiquant une description de ce que fait le bouton.
On voit ça à peu près partout dans les applications courantes (survoler un bouton et vous aurez une petite description du bouton sous la forme d'un label qui s'affiche).
Donc j'aimerais savoir si VB permet de faire directement ça (genre une méthode "Text" des objets buttons ou quelque chose du genre) ou si je dois implémenter cette fonctionnalité moi-même (j'afficherai alors un label sur l'événement mousehover de mes boutons) ?

Voilà pour mon petit soucis =)
Merci d'avance pour toute réponse

**iclic** · 19/11/2011, 11h22

Bonjour,

Essaie ceci à insérer dans ton projet

Invité · 19/11/2011, 18h06

Bonjour

Un bouton de commande à une propriété ToolTipText, elle est faite pour cela.

Philippe

**sevyc64** · 19/11/2011, 18h13

Normalement c'est la propriété ToolTip de ton bouton (ou de tout autre contrôle)

**XylonAkau** · 19/11/2011, 21h37

_ Ia ora na.
_ Pour pouvoir me faire une idée de Bulle, je l'ai téléchargé et installé.
_ Au premier lancement, le programme s'est arrêté sur cette procédure :

Code :

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

1
2
3
4
5
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
  Call TT.Display(CommandButton.hwnd, "Texte du message", _
                               "Texte explicatif de la bulle", TTIconWarning)
End Sub

indiquant que CommandButton était une variable non définie ; après la création d'un bouton Command1 et le remplacement de CommandButton.hwnd par Command1.hwnd, le programme a fonctionné (à condition de commencer par placer la souris sur la feuille elle-même avant de la déplacer sur le bouton).

_ Première différence, en plus par rapport à ToolTipText : le programme affiche un phylactère comprenant d'abord un texte en caractères gras ("Texte du message") puis un texte en caractères maigres ("Texte explicatif de la bulle").

_ Mais la seconde différence est en moins : je n'ai pas trouvé comment faire afficher un autre message (ni le même, d'ailleurs) sur un autre contrôle ; si on ajoute dans Form_MouseMove

Code :

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

1
2
  Call TT.Display(Command2.hwnd, "Texte du message 2", _
                               "Texte explicatif de la bulle 2", TTIconWarning)

il ne se produit rien quand on survole le bouton Command2 ; inversement, si on place l'appel pour Command2 avant celui pour Command1, on obtient la bulle quand on survole Command2 et rien pour Command1.

_ Restait à essayer de placer Call TT.Display dans la procédure _MouseMove de chaque bouton :
- si on écrit Command1.hwnd en Command1_MouseMove et Command2.hwnd en Command2_MouseMove, seul Command1 réagit ;
- si on écrit Command2.hwnd en Command1_MouseMove comme en Command2_MouseMove, seul Command2 réagit.
_ Sans doute quelqu'un de plus expert pourrait-il trouver une explication et une solution à ce comportement un peu étrange.

_ PS pour KoalaMousse : existe-t-il un événement mousehover (ou même MouseOver) pour les contrôles standard de Visual Basic 6 ?
_ Bon week-end en tous cas, et merci à ToolTipText.

**ProgElecT** · 19/11/2011, 22h49

Salut

Pour le ToolTipText, avec la possibilité de plusieurs lignes (et il y en a bien d'autres), ce lien, une contribution de hpfx.

Un exemple pour plusieurs contrôles sur un Form, avec 2 CommadButtons et un TextBox, il faut bien sûr inclure la Class de hpfx.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
 
'utilisation de la classe proposé par hpfx qui ce trouve ici
'http://www.developpez.net/forums/d608943/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/vos-contributions-vb6/source-classe-prete-lemploi-tooltiptext-info-bulles/
Dim Bulle() As CtoolTip
 
 
Private Sub Form_Load()
ReDim Bulle(2)
    'chargement de la classe CtoolTip
    Set Bulle(0) = New CtoolTip
Bulle(0).BackColor = &HC0FFFF
 
 
    Set Bulle(1) = New CtoolTip
Bulle(1).BackColor = &HC0FFC0
Bulle(1).ForeColor = &HC00000
Bulle(1).Centered = True
Bulle(1).Style = TTStandard
Bulle(1).DelayTime = 500
Bulle(1).VisibleTime = 2000
Bulle(1).Icon = TTIconWarning
Bulle(1).TipText = "pour essayer la commande " & vbCrLf _
    & "il faut clicker sur le bouton " & Chr(34) & "Command2" & Chr(34) & vbCrLf _
    & "SALUT"
Bulle(1).Title = "Démo"
 
 
    Set Bulle(2) = New CtoolTip
 
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Bulle(0).Display(Command1.hwnd, "Une bulle", "il sagit du bouton Command1", TTIconInfo)
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Bulle(1).Display(Command2.hwnd, "Une bulle", "il sagit du bouton Command2", TTIconInfo)
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Bulle(2).Display(Text1.hwnd)
End Sub

Avec cet exemple, chacun des contrôles a une info bulle personnalisée.

**KoalaMousse** · 20/11/2011, 11h19

D'accord, merci beaucoup! =)

**DarkVader** · 08/04/2015, 15h07

Bonjour,

En plus simple avec vb6i > WTooltips
- gestion de la police
- des couleurs
- des icones
- de la transparence
- des textes unicode
etc.

Soit par exemple

Code :

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

1
2
3
4
5
6
7
8
Dim fnt As New StdFont, sVers as String
  sVers= "Versions actives" & vbCRLF & "VB6        : 6.0.9782" & vbCRLF & "VB6i       : 1.0.705" & vbCRLF & "VB6i_Tools : 1.0.705" 
                    With fnt
                        .Name = "Courier"
                        .Size = 10
                    End With
                    Set WToolTips.Font = fnt
                    WToolTips.Add Me.WCmd0(1), sVers, "VB6i_Tools", IconInfo, &HF0FFD0&, &H8000&