msflexgrid cell tips
Simple code to display tooltips displaying the text, regardless of length, of an msflexgrid cell. Tooltips are displayed when the mousepointer passes over any cell.
Original Author: tv
Assumptions
Just place it the mouse move event.
Side Effects
None that I know of.
Code
Private Sub Grid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Static txt As String
Dim tip As String
tip = Grid1.TextMatrix(Grid1.MouseRow, Grid1.MouseCol)
If txt <> tip Then
Grid1.ToolTipText = tip
txt = tip
End If
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.