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.
AI
AI-sammanfattning: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Källkod
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
Originalkommentarer (3)
Återställd från Wayback Machine