Farpoint 2.5 Tooltip sur un spread databind [VB6]

[reitsab]

Bonjour,

J'utilise la version 2.5 de Farpoint Spread pour une appli en VB6.

Je dois afficher dans une colonne d'un spread, une chaine trop longue pour apparaitre en entier.

Je voudrais donc mettre en place un tooltip sur chaque cellule d'une colonne.

Actuellement, j'arrive à afficher un tooltip mais sur le tableau en entier (ce qui n'a aucun sens ).

Avez-vous la solution ?

Merci

[Aniki]

Salut reitsab,

Dans ma boîte, on utilise la version 7 je crois mais c'est peut être toujours le même principe...
Bref dans mon cas, j'ai du passer par la fonction TextTipFetch.

J'espère que ça pourra t'aider un peu.

[reitsab]

Salut,
Merci pour ta reponse.
Malheureusement, cette fonction n'existe pas pour la version 2.5...

[ProgElecT]

Salut

Je n'ai pas la solution pour ce composant, juste une indication, avec un MSHFlexGrid il est possible de faire

Code :

1
2
3
4
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Caption = "Col: " & MSHFlexGrid1.MouseCol & "    Lig: " & MSHFlexGrid1.MouseRow
MSHFlexGrid1.ToolTipText = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.MouseRow, MSHFlexGrid1.MouseCol)
End Sub

Je n'ai pas trouvé les propriétés est méthodes pour Farpoint Spread , n'existerait il pas des propriétés est méthodes équivalentes ?

[infosam76]

Avec une version 3.0 du spread j'ai fait un truc du genre qui m'affiche bien un tooltip sur une cellule survolée par la souris :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub sp_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim Col As Long, Row As Long
  Dim value As Variant
 
  sp.GetCellFromScreenCoord Col, Row, x, y
 
  Call sp.GetText(Col, Row, value)
 
  sp.ToolTipText = CStr(value)
End Sub

Si c'est pour l'afficher que sur les cellules d'une colonne donnée, il suffit de mettre une condition sur le numéro de colonne.