Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Create ToolTips for individual cells of MSFlexGrid...
Author:
Zulizman Berdu
E-mail:
Click to e-mail author
Submitted:
1/10/2002
Version:
VB5
Compatibility:
VB5, VB6
Category:
Controls
Views:
26738
Create ToolTips for individual cells of MSFlexGrid control.
Declarations:
'none
Code:
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim C, R As Long Dim H1, H2, W1, W2 As Long Dim MyRowName, MyColName As String For R = 0 To MSFlexGrid1.Rows - 1 H1 = MSFlexGrid1.RowPos(R) H2 = MSFlexGrid1.RowHeight(R) If y >= H1 And y <= (H1 + H2) Then MyRowName = " Row = " & R Exit For End If Next R For C = 0 To MSFlexGrid1.Cols - 1 W1 = MSFlexGrid1.ColPos(C) W2 = MSFlexGrid1.ColWidth(C) If x >= W1 And x <= (W1 + W2) Then MyColName = " Col = " & C Exit For End If Next C MSFlexGrid1.ToolTipText = "Position:" & MyColName & MyRowName End Sub
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement