鼠标移动到滚动表时，暂停滚动表，移开时又滚动 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

全局代码：

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

主题：鼠标移动到滚动表时，暂停滚动表，移开时又滚动