子窗体数据量大的时候,需要滚动条查看数据。那么如何不利用滚动条实现子窗体前后翻动
这个不是记录翻动的问题,是页面的上下翻动。可以使用GoToPage方法来解决问题。如下示例。有兴趣的版友可以再扩展一下,便能实现子窗体页面的左右翻动。
详细源码:
Private Sub 向上_Click()
Call 翻页(500, False)
End Sub
Private Sub 向下_Click()
Call 翻页(500, True)
End Sub
Function 翻页(距离 As Long, 方向 As Boolean)
Dim frm As Form
Set frm = Me.子窗体.Form
Me.子窗体.SetFocus
If 方向 = True Then
n = n + 1
Else
n = n - 1
End If
Me.子窗体.Form.GoToPage 1, 0, 距离 * n
End Function