Info Bulle ListBox

[Kim75]

Bonsoir le forum,

Je vous espère en bonne forme avec ce beau temps qui revient timidement. 🙂

Utilisant une Form de Jacques que je remercie à l'occasion, je fais un annuaire, mais je rencontre un souci de lisibilité. Il s'agit d'une listbox dont le texte des lignes est un peu long, ce qui fait qu’il n’est visible qu’en partie.

Je me demandais alors s’il y avait moyen d’activer des info bulles affichant le texte de la ligne au survol de la souris, ce serait sympa si quelqu’un pouvait me filer le code, s'il existe bien entendu, sinon on va faire sans.



Cordialement, Kim.

 

[JNP]

Re : Info Bulle ListBox

Bonjour Kim75 🙂,
C'est dommage de mettre ton fichier sur un site extérieur plutôt que sur le forum 😡...
La propriété que tu cherche, c'est ControlTipText avec la syntaxe

[I]object[/I].[B]ControlTipText[/B] [= [I]String[/I]]

mais elle est liée au contrôle, pas à une ligne spécifique de ta ListBox, donc il va falloir le déclencher au clic, et non pas au survol (enfin je pense...).
Bon courage 😎

 

[Kim75]

Re : Info Bulle ListBox

Bonjour JNP, le forum 🙂

Oui en effet, le forum est obligé de limiter le poids des fichiers uploadables à 48,8 Ko, question de survie 🙂

Et merci pour l'indication, je me disais bien que ce n'étais pas possible de mettre un tooltip ou info bulle sur listbox.

Bien à toi, Kim.

 

[JNP]

Re : Info Bulle ListBox

Re 🙂,
Mais ton fichier compresé en zip ne fait que 28,6 ko...
Donc pas de problème 😛.
Bon dimanche 😎

 

[Kim75]

Re : Info Bulle ListBox

Merci !

Heureusement que t'es là JNP 🙂

Tu vas faire du forum un véritable fourre fichiers 😛

Ciao Bello !

 

[JNP]

Re : Info Bulle ListBox

Re 🙂,
C'est surtout que celui qui fera remonter la discussion par une recherche dans quelques mois pourra toujours accéder au fichier 😉.
Bon dimanche 😎

 

[Kim75]

Re : Info Bulle ListBox

Hi gringo ! 🙂

Fichtre, j'y ai pas pensé 🙄

Vois-tu je fais partie de ceux qui tiennent compte, non pas de la limite, mais de sa raison, et qui au final, ne connaissent pas de limite, la prévenance fait bon ménage avec la liberté 😛

Ciao ciao !

 

[Kim75]

Re : Info Bulle ListBox

Salut le forum,

J'ai trouvé deux versions de code dont il est dit qu'une au moins apporte la solution, mais aucune ne marche chez moi, sans doute qu'il faut que j'installe le cotrôle Tooltip 😕

Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove 
    Dim MousePositionInClientCoords As Point = Me.ListBox1.PointToClient(Me.MousePosition) 
    Dim indexUnderTheMouse As Integer = Me.ListBox1.IndexFromPoint(MousePositionInClientCoords) 
    If indexUnderTheMouse > -1 Then 
        Dim s As String = Me.ListBox1.Items(indexUnderTheMouse).ToString 
        Dim g As Graphics = Me.ListBox1.CreateGraphics 
        If g.MeasureString(s, Me.ListBox1.Font).Width > Me.ListBox1.ClientRectangle.Width Then 
            Me.ToolTip1.SetToolTip(Me.ListBox1, s) 
        Else 
            Me.ToolTip1.SetToolTip(Me.ListBox1, "") 
        End If 
        g.Dispose() 
    End If 
End Sub

Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove 
    Dim MousePositionInClientCoords As Point = New Point(e.X, e.Y) 
    Dim indexUnderTheMouse As Integer = Me.ListBox1.IndexFromPoint(MousePositionInClientCoords) 
    If indexUnderTheMouse > -1 Then 
        Dim s As String = Me.ListBox1.Items(indexUnderTheMouse).ToString 
        Dim g As Graphics = Me.ListBox1.CreateGraphics 
        If g.MeasureString(s, Me.ListBox1.Font).Width > Me.ListBox1.ClientRectangle.Width Then 
            Me.ToolTip1.SetToolTip(Me.ListBox1, s) 
        Else 
            Me.ToolTip1.SetToolTip(Me.ListBox1, "") 
        End If 
        g.Dispose() 
    End If 
End Sub

Bon dimanche, Kim.

 

[kjin]

Re : Info Bulle ListBox

Bonjour,
Les hauteurs de lignes dans une listbox 🙄, donc avec qq tatonnements.
De plus avec l'ascenseur, pas trouvé
Mais bon
A+
kjin

 

[Kim75]

Re : Info Bulle ListBox

Bonsoir Kjin, le forum 🙂

Merci Kjin, c'est super cette technique de label qui affiche le texte de la ligne, j'ai intégré le code au classeur, en essayant de le faire dans tous les sens possibles, mais en vain 😡

Je suis allé à la Fnac pour trouver un bouquin d'initiation au codage, et la déception fut immédiate lorsque j'entendis la réponse du vendeur que je ne trouverai pas de pareils manuels à la Fnac. 🙁

Je mets en ligne une des nombreuses "compilations" que j'ai tentées, au cas où tu pourrais jeter un coup d'oeil pour voir s'il y a quelque chose à faire pour la faire fonctionner, je bidouille depuis 1 heure 😕



Bien à toi, Kim.

 

[kjin]

Re : Info Bulle ListBox

bonsoir,
Comme je l'ai dit, c'est du bricolage
Mais si tu y tiens je te fais passer l'adaptation
A+
kjin

 

[Kim75]

Re : Info Bulle ListBox

Merci Kjin 🙂

Je trouve la technique fort utile, surtout que le label est masqué et ne s'affiche qu'au survol de la souris, ce qui fait que ça ne dénature pas la Form affichée.

Bien à toi, Kim.

 

[kjin]

Re : Info Bulle ListBox

Bonjour,
Alors voilà
Edit : La valeur du scroll est récupéré avec la propriété TopIndex, donc à priori c'est OK
A+
kjin9