显示动态提示信息
示例一
假定有个员工表,希望将鼠标移到备注列的时候,能够自动显示所有的备注内容,鼠标离开备注列的时候,能自动隐藏提示,如图所示:
要实现这个功能非常的简单:
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