foufidou
Messages postés156Date d'inscriptionmardi 31 août 2004StatutMembreDernière intervention21 mai 2015
-
29 mars 2007 à 02:21
farouk_ch
Messages postés12Date d'inscriptionjeudi 22 mars 2007StatutMembreDernière intervention20 février 2009
-
30 mars 2007 à 12:12
salut tout le monde,
y'a t'il une possibilité d'afficher une tooltip sur un mshflexgrid ??
parceque j'ai tout essayé mai en vain !!!
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 29 mars 2007 à 08:26
Bonjour,
Essaye alors comme çà :
Private Sub Form_Activate()
MSFlexGrid1.ColWidth(0) = 2000
MSFlexGrid1.Rows = 5
MSFlexGrid1.FixedCols = 1
MSFlexGrid1.FixedCols = 1
MSFlexGrid1.Height = 735
MSFlexGrid1.TextMatrix(0, 0) = "voilà ma première ligne"
MSFlexGrid1.TextMatrix(1, 0) = "voilà ma deuxième ligne"
MSFlexGrid1.TextMatrix(2, 0) = "et cà c'est ma troisième ligne"
MSFlexGrid1.TextMatrix(3, 0) = "voyez ma quatrième ligne"
MSFlexGrid1.TextMatrix(4, 0) = "j'en suis à la cinqième"
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub
Private Sub MSFlexGrid1_Scroll()
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.TopRow, 0)
End Sub
farouk_ch
Messages postés12Date d'inscriptionjeudi 22 mars 2007StatutMembreDernière intervention20 février 2009 30 mars 2007 à 12:12
Salut foufidou,
Juste pour vous informer que votre controle (HierarchicalFlexGrid) contient bien la propriété ToolTipText, donc le code annoncé par jmfmarques est une bonne solution, sauf que je voie que le morceau suivant (de code de jmfmarques) est suffisant:
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub
Private Sub MSFlexGrid1_Scroll()
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.TopRow, 0)
End Sub
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 29 mars 2007 à 09:39
En fait, tu n'as besoin que de ceci (et j'ai complété par une 2ème colonne... pour continuer...)
Private Sub Form_Activate()
MSFlexGrid1.ColWidth(0) = 2000
MSFlexGrid1.Rows = 5
MSFlexGrid1.FixedCols = 1
MSFlexGrid1.FixedCols = 1
MSFlexGrid1.Height = 735
MSFlexGrid1.TextMatrix(0, 0) = "voilà ma première ligne"
MSFlexGrid1.TextMatrix(0, 1) = "voilà ma 2ème colonne de ligne 1"
MSFlexGrid1.TextMatrix(1, 0) = "voilà ma deuxième ligne"
MSFlexGrid1.TextMatrix(1, 1) = "voilà ma 2ème colonne de ligne 2"
MSFlexGrid1.TextMatrix(2, 0) = "et cà c'est ma troisième ligne"
MSFlexGrid1.TextMatrix(2, 1) = "voilà ma 2ème colonne de ligne 3"
MSFlexGrid1.TextMatrix(3, 0) = "voyez ma quatrième ligne"
MSFlexGrid1.TextMatrix(3, 1) = "voilà ma 2ème colonne de ligne 4"
MSFlexGrid1.TextMatrix(4, 0) = "j'en suis à la cinqième"
MSFlexGrid1.TextMatrix(4, 1) = "voilà ma 2ème colonne de ligne 5"
End Sub
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 30 mars 2007 à 08:31
Bonjour,
Je ne travaille personnellement jamais avec ce contrôle (n'avais pas vu qu'il s'agissait d'yne MSFFlexGrid !) que je ,e connais donc pas ....
Mais s'il possède les mêmes possibilités de repérage au MouseMove, rien ne t'empêche de provoquer alors, dans cet événement, l'apparition, pendant quelques secondes, d'une frame ou d'une Form avec le texte de ton choix. L'utilisation parralèle de la fonction GetCursorPos devrait être faite pour décider avec précision de l'emplacement de cette "fenêtre" sur ton écran en fonction de celle du curseur de ta souris.