以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何实现EXCEL表格一样的批注功能?对改列内容录入时起个指导作用。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116890)

--  作者:vxzx
--  发布时间:2018/4/2 12:06:00
--  [求助]如何实现EXCEL表格一样的批注功能?对改列内容录入时起个指导作用。

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180402120514.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/4/2 12:10:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2681.htm

 


--  作者:vxzx
--  发布时间:2018/4/3 10:38:00
--  
没参考懂,鼠标进行“操作性”列的某行,则显示提示“操作应流畅,不费力”,在MouseEnterCell里应怎么写代码?谢谢了
--  作者:有点甜
--  发布时间:2018/4/3 11:00:00
--  
以下是引用vxzx在2018/4/3 10:38:00的发言:
没参考懂,鼠标进行“操作性”列的某行,则显示提示“操作应流畅,不费力”,在MouseEnterCell里应怎么写代码?谢谢了

 

If e.Col.Name = "操作性" Then
    Dim v As String = "操作应流畅,不费力"
    e.Table.ShowToolTip(v, e.Row, e.Col)
End If


--  作者:vxzx
--  发布时间:2018/4/3 11:32:00
--  
鼠标离开3秒后自动隐藏,怎么写?

If e.Col.Name = "外观" Then
    e.Table.HideToolTip()
End If

--  作者:vxzx
--  发布时间:2018/4/3 11:44:00
--  
哦,不用了,谢谢。原来在MouseLeaveCell 设置的。
--  作者:有点甜
--  发布时间:2018/4/3 11:54:00
--  

mouseLeaveCell事件

 

static pcol As String = e.Col.name
static flag As Boolean = False
If e.Col.Name = "外观" AndAlso flag = False Then
    If pcol = e.Col.name Then
        e.Table.HideToolTip()
    Else
        Dim sdt As Date = Date.Now
        flag = True
        While Date.Now < sdt.AddSeconds(3)
            Application.DoEvents
        End While
        e.Table.HideToolTip()
        flag = False
    End If
End If
pcol = e.Col.name