MouseEnterCell 问题求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → MouseEnterCell 问题求助

共有2735人关注过本帖树形打印复制链接主题：MouseEnterCell 问题求助

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/23 11:56:00 [显示全部帖子]

vars("ltime") = Date.now
vars("r") = e.Row
vars("c") = e.Col
If e.Col.Name = "第二列" Then
    Dim sdt As Date = Date.Now
    While Date.Now < sdt.AddSeconds(3)
        Application.DoEvents
    End While
    If (Date.now-cdate(vars("ltime"))).Totalseconds >= 3 andalso vars("r").index = e.Row.index AndAlso vars("c").index = e.Col.index Then
        Dim v As String = "正常无异味"
        e.Table.ShowToolTip(v, vars("r"), vars("c"), 5000)
    End If
End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/23 14:54:00 [显示全部帖子]

计划管理

If (Date.now-cdate(vars("ltime"))).Totalseconds >= 3 Then
    MyTimers("计划1").Enabled = False
    Dim v As String = "正常无异味"
    Tables("表A").ShowToolTip(v, vars("r"), vars("c"), 5000)
End If

mouseentercell

vars("ltime") = Date.now
vars("r") = e.Row
vars("c") = e.Col
If e.Col.Name = "第二列" Then
    MyTimers("计划1").Interval = 500
    MyTimers("计划1").Enabled = True
Else
    MyTimers("计划1").Enabled = False
End If

下一主题 >> << 上一主题

主题：MouseEnterCell 问题求助