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

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

About this post

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

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.