参考代码
static x As Integer = 0static y As Integer = 0If x <> e.Table.ScrollPosition.x Then msgbox("横向")End IfIf y <> e.Table.ScrollPosition.y Then msgbox("纵向")End Ifx = e.Table.ScrollPosition.xy = e.Table.ScrollPosition.y