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
|