以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表的提示信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76696)
--  作者：newsun2k
--  发布时间：2015/11/3 16:49:00
--  表的提示信息
如果我想在表的标题栏显示“按住CTRL，单击右键，进行排序”的提示。鼠标移过去的时候有提示。
如何实现？
--  作者：大红袍
--  发布时间：2015/11/3 16:55:00
--  

-------全局代码
Public Sub MouseLeaveCell(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs)
    Functions.Execute("MouseLeaveCell", sender, e)
End Sub

Public Sub MouseEnterCell(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs)
    Functions.Execute("MouseEnterCell", sender, e)
End Sub

Public myToolTip As New Windows.Forms.ToolTip()

 

--------- 内部函数 MouseEnterCell
Dim sender As object = args(0)
Dim e As object = args(1)
myToolTip.SetToolTip(sender, sender(e.Row, e.Col))

 

-------- 内部函数 MouseLeaveCell
Dim sender As object = args(0)
Dim e As object = args(1)
myToolTip.SetToolTip(sender, "")

 

-------- 绑定事件
Dim g As C1.Win.C1FlexGrid.C1FlexGridBase = Tables("表A").Grid
addhandler g.MouseEnterCell, addressof MouseEnterCell
addhandler g.MouseLeaveCell, addressof MouseLeaveCell