以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  鼠标移动到滚动表时，暂停滚动表，移开时又滚动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124007)
--  作者：ZJZK2018
--  发布时间：2018/8/28 19:51:00
--  鼠标移动到滚动表时，暂停滚动表，移开时又滚动
如题：

Dim t As Table = e.Form.Controls("Table1").Table

If t.Position < t.Rows.Count - 1 Then

    t.Position += 1

Else

    t.Position = 1

End If
--  作者：有点蓝
--  发布时间：2018/8/28 20:28:00
--  
全局代码：
Public Sub C1FlexGrid1_MouseEnter(sender As Object, e As EventArgs)
vars("a")= False
End Sub

Public Sub C1FlexGrid1_MouseLeave(sender As Object, e As EventArgs)
vars("a")= True
End Sub

窗口afterload事件
Dim t As C1.Win.C1FlexGrid.C1FlexGrid = e.Form.Controls("Table1").Table.grid

AddHandler t.MouseEnter, AddressOf C1FlexGrid1_MouseEnter
AddHandler t.MouseLeave, AddressOf C1FlexGrid1_MouseLeave
vars("a") = True

窗口TimerTick
If vars("a") Then
    Dim t As Table = e.Form.Controls("Table1").Table
    If t.Position < t.Rows.Count - 1 Then
        t.Position += 1
    Else
        t.Position = 1
    End If
End If