Foxtable(狐表)用户栏目专家坐堂 → [求助]如何实现EXCEL表格一样的批注功能?对改列内容录入时起个指导作用。


  共有2355人关注过本帖树形打印复制链接

主题:[求助]如何实现EXCEL表格一样的批注功能?对改列内容录入时起个指导作用。

帅哥哟,离线,有人找我吗?
vxzx
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:64 积分:632 威望:0 精华:0 注册:2018/3/25 16:34:00
[求助]如何实现EXCEL表格一样的批注功能?对改列内容录入时起个指导作用。  发帖心情 Post By:2018/4/2 12:06:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/2 12:10:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
vxzx
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:64 积分:632 威望:0 精华:0 注册:2018/3/25 16:34:00
  发帖心情 Post By:2018/4/3 10:38:00 [只看该作者]

没参考懂,鼠标进行“操作性”列的某行,则显示提示“操作应流畅,不费力”,在MouseEnterCell里应怎么写代码?谢谢了

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:64 积分:632 威望:0 精华:0 注册:2018/3/25 16:34:00
  发帖心情 Post By:2018/4/3 11:32:00 [只看该作者]

鼠标离开3秒后自动隐藏,怎么写?

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

 回到顶部
帅哥哟,离线,有人找我吗?
vxzx
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:64 积分:632 威望:0 精华:0 注册:2018/3/25 16:34:00
  发帖心情 Post By:2018/4/3 11:44:00 [只看该作者]

哦,不用了,谢谢。原来在MouseLeaveCell 设置的。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部