Discussion :

[shirya]

Bonjour à tous,
je développe une application en vb.net en ce moment. J'ai une form principale, composé de plusieurs userControl.
J'aimerais que l'utilisateur, lorsque perdu, clique sur un bouton "help". Ce bouton help se situe dans ma form principale. Lorsque cliqué, le bouton permet l'Affichage des tooltips de tous les contrôles que l'utilisateur voit(bouton, textbox, combobox, grille....).
est-ce possible? auriez-vous une idéee de la façon "propre" de le faire?
Merci pour les conseils.
Shirya

[nikoko34]

Bonjour,

La propriété ToolTip n'est pas accessible pour tous les contrôles (elle n'y est pas pour les boutons par exemple).

Une façon de faire consisterait à mettre un composant StatusStrip en bas de ta form et à renseigner un texte en exploitant l'event MouseOver sur chacun de tes contrôles concernés par le tooltip.

Selon le nombre de contrôles sur ta form, il te suffit de fonctionner avec des If en cascade sinon, une procédure générique qui parcours les contrôles de ta form (For Each) et qui lit une table dans laquelle se trouve le nom de ton contrôle, et le texte du tooltip.

[Pol63]

il est possible de mettre des tooltips sur tous les controles, meme sur les boutons
(la propriété tooltip n'existe pas en fait, c'est l'objet tooltip qui fait croire au propertygrid qu'elle existe)

un objet tooltip ne peut afficher qu'un tooltip à la fois, mais j'ai réussi à trouver une solution quand meme

Code :

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

1
2
3
4
5
6
7
8
 
       For Each ctrl As System.Windows.Forms.Control In Me.Controls
            If Me.ToolTip1.GetToolTip(ctrl) = "" Then Continue For 
 
            Dim t As New ToolTip
            t.SetToolTip(ctrl, Me.ToolTip1.GetToolTip(ctrl))
            t.Show(Me.ToolTip1.GetToolTip(ctrl), ctrl, 2000) ' 2000 : nombre de millisecondes
        Next

[shirya]

Merci pour les réponses,
MAis si ma form est aussi composé de usercontrol. Comment faire pour afficher les toolTips dans mon contrôle? récursivité?

[nikoko34]

Ton control parent est la form, à cette form est associée une liste de controls.
Le for each montré par Sperot51 suffit à ce niveau là si les tooltips sont directement issus de controls de cette liste.

Si par contre tu utilises des panel ou tablelayoutpanel ou groupbox ou autres controls de type contenant, le recursif s'impose dans une méthode qui prendrait le control en paramètre et qui testerait la propriété HasChild.

[Rifton007]

Voici ci-dessous une explication détaillé du code de sperot51 qu'il ma fournit sous MP, car je ne comprenais pas l'ensemble du code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For Each ctrl As System.Windows.Forms.Control In Me.Controls ' parcours de tous les controles de la fenetre
            If Me.ToolTip1.GetToolTip(ctrl) = "" Then Continue For  'si aucun tooltip défini, on passe au suivant
            If not typeof ctrl Is Textbox then continue for ' si le controle actuel n'est pas un textbox, on passe au suivant
            If ctrl.text <> "" then continue for ' si le texte n'est pas vide on passe au suivant
 
' tous les autres textbox afficheront le tool tip
            Dim t As New ToolTip
            t.SetToolTip(ctrl, Me.ToolTip1.GetToolTip(ctrl))
            t.Show(Me.ToolTip1.GetToolTip(ctrl), ctrl, 2000) ' 2000 : nombre de millisecondes
        Next

1. Déssiner un tooltip sur votre form (ToolTip1)
Ce ToolTip1 sera utiliser pour affecter le texte à afficher pour chaque controles. A l'aide de la proprité "ToolTip sur ToolTip1".

2. Il vous est possible de personnalisé le New ToolTip
Exemple:

Code :

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

1
2
t.ToolTipIcon = ToolTipIcon.Warning
t.ToolTipTitle = "Procédure interompue"

Ou encore sa position par rapport à son controle respectif.

Code :

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

t.Show(Me.ToolTip1.GetToolTip(ctrl), ctrl, y:=15, x:=0, duration:=2000) ' 2000 : nombre de millisecondes

3.Si les controles se trouve dans des conteneurs.
Panel, GrougBox, il faut modifier ceci.

Code :

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

For Each ctrl As System.Windows.Forms.Control In Me.Controls ' parcours de tous les controles de la fenetre

Par exemple remplacer Me.Controls par :

Code :

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

Me.Panel1.Control

Et pour conclure, je remecie tout ceux qui ont participé à ce post.