显示动态提示信息

示例一

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

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

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


本页地址:http://www.foxtable.com/webhelp/topics/2681.htm