显示动态提示信息

示例一

假定有个员工表，希望将鼠标移到备注列的时候，能够自动显示所有的备注内容，鼠标离开备注列的时候，能自动隐藏提示，如图所示：

要实现这个功能非常的简单:

1、在MouseEnterCell事件设置代码：

If e.Col.Name = "备注" AndAlso e.Row.IsNull("备注") = False Then
    e.Table.ShowToolTip(e.Row("备注"),e.Row,e.Col)
End If

2、在MouseLeaveCell事件设置代码：

If e.Col.Name = "备注" Then
    e.Table.HideToolTip()
End If

还有一个方法，可以参考： MouseHoverCell事件

示例二

假定希望在输入编码列的内容的时候，能自动列出各编码代表的内容，如下图所示：

要实现这个功能同样很简单：

1、在StartEdit(注意不是PrePareEdit事件)事件中设置代码：

If e.Col.Name = "编码" Then
    Dim v As String = "1: 初中"
    v = v & vbcrlf & "2: 高中"
    v = v & vbcrlf & "3: 大专"
    v = v & vbcrlf & "4: 本科"
    v = v & vbcrlf & "5: 硕士"
    v = v & vbcrlf & "6: 博士"
    e.Table.ShowToolTip(v, e.Row, e.Col)
End If

2、在AfterEdit事件中设置代码：

If e.Col.Name = "编码" Then
    e.Table.HideToolTip()
End If