Infobulle sur une ligne listbox ou listview
nerone21
Messages postés
108
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
5 mai 2011
-
7 août 2007 à 15:13
Utilisateur anonyme - 7 août 2007 à 18:24
Utilisateur anonyme - 7 août 2007 à 18:24
A voir également:
- Listbox vs listview
- Listview vba ✓ - Forum Visual Basic 6
- Jpanel vs jframe - Conseils pratiques -Java
- Listbox delphi ✓ - Forum Delphi / Pascal
- C# listview ✓ - Forum C# / .NET
- Listview vb.net ✓ - Forum VB.NET
4 réponses
Utilisateur anonyme
7 août 2007 à 15:29
7 août 2007 à 15:29
Salut,
Avec un peu d'astuce :
Private Sub TaListBox_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles TaListBox.MouseMove
Dim ItemIndex As Integer = TaListBox.IndexFromPoint(e.Location)
If ItemIndex > -1 Then
Dim ItemText As String = TaListBox.GetItemText(TaListBox.Items(ItemIndex))
TonToolTip.Show(ItemText, TaListBox, TaListBox.GetItemRectangle(ItemIndex).Location)
End If
End Sub,
----
(
Avec un peu d'astuce :
Private Sub TaListBox_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles TaListBox.MouseMove
Dim ItemIndex As Integer = TaListBox.IndexFromPoint(e.Location)
If ItemIndex > -1 Then
Dim ItemText As String = TaListBox.GetItemText(TaListBox.Items(ItemIndex))
TonToolTip.Show(ItemText, TaListBox, TaListBox.GetItemRectangle(ItemIndex).Location)
End If
End Sub,
----
(
nerone21
Messages postés
108
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
5 mai 2011
7 août 2007 à 15:40
7 août 2007 à 15:40
Ca marche nikel,mais subsiste un probleme...
l'infobulle apparait bien mais:
- on ne peut pas lire son contenu, il y a juste l'ombre de l'infobulle visible (elle sont visible lorsqu'on sort de la listbox)
- elle reste sur l'ecran quand on passe a une autre ligne et ne disparait pas.
merci
l'infobulle apparait bien mais:
- on ne peut pas lire son contenu, il y a juste l'ombre de l'infobulle visible (elle sont visible lorsqu'on sort de la listbox)
- elle reste sur l'ecran quand on passe a une autre ligne et ne disparait pas.
merci
nerone21
Messages postés
108
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
5 mai 2011
7 août 2007 à 15:43
7 août 2007 à 15:43
j'aimerais aussi un moyen de la temporisé, qu'elle n'apparaisse pas tout de suite, comme ca si on va chercher une ligne ke toute les infobulles des lignes sur lesquelles je suis passé pour atteindre celle ki m'interresse n'aparaissent pas.
merci encore
merci encore
Utilisateur anonyme
7 août 2007 à 18:24
7 août 2007 à 18:24
Désolé, mais je trouve pas trop pour qu'elle se retire. J'ai essayer un truc mais elle se retire en permanance.
Essaye cette autre méthode :
Private Sub TaListBox_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles TaListBox.MouseMove
Dim ItemIndex As Integer = TaListBox.IndexFromPoint(e.Location)
If ItemIndex > -1 Then
Dim ItemText As String = TaListBox.GetItemText(TaListBox.Items(ItemIndex))
'TonToolTip.Show(ItemText, TaListBox, TaListBox.GetItemRectangle(ItemIndex).Location)
TonToolTip.SetToolTip(TaListBox, ItemText)
Else
TonToolTip.SetToolTip(TaListBox, String.Empty)
End If
End Sub,
----
(
Essaye cette autre méthode :
Private Sub TaListBox_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles TaListBox.MouseMove
Dim ItemIndex As Integer = TaListBox.IndexFromPoint(e.Location)
If ItemIndex > -1 Then
Dim ItemText As String = TaListBox.GetItemText(TaListBox.Items(ItemIndex))
'TonToolTip.Show(ItemText, TaListBox, TaListBox.GetItemRectangle(ItemIndex).Location)
TonToolTip.SetToolTip(TaListBox, ItemText)
Else
TonToolTip.SetToolTip(TaListBox, String.Empty)
End If
End Sub,
----
(
