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.
Assumes
Just place it the mouse move event.
Side Effects
None that I know of.
Rate msflexgrid cell tips
(7(7 Vote))
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
msflexgrid cell tips Comments
No comments yet — be the first to post one!
Post a Comment