Search Tools Links Login

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


Just place it the mouse move event.

Side Effects

None that I know of.


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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 100 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.