用命令按钮实现子窗体上下滚动的效果怎么实现

王三平　发表于：2011-01-07 13:59:02 　

复制

想实现这么一个效果。

主窗体包含一子窗体，子窗体内容较多，隐藏子窗体的滚动条。点击《向上》按钮，子窗体往上移动。点击《向下》按钮，子窗体向下移动。说白了，就是实现滚动条的向上和向下操作，但是不显示滚动条。

Top

煮江品茶发表于：2011-01-07 14:18:13

请参见《子窗体翻页》一文

Top

王三平发表于：2011-01-10 09:39:51

首先谢谢你的解答。

但是你可能误会了我的意思。

我的子窗体视图是单一窗体，不是数据表视图。

我的子窗体是一个纵向的菜单按钮列表，当窗口显示不下时，可以上下滚动。

就象UMV平台的导航菜单一样。

Top

煮江品茶发表于：2011-01-10 10:20:24

那应该更简单吧？似乎这样搞就可以了：

Function 翻动(SubfrmCtrl As Control, B As Boolean)
'参数：SubfrmCtrl--子窗体控件，B--前翻/后翻判断变量
SubfrmCtrl.SetFocus
Select Case B
    Case -1
        If SubfrmCtrl.Form.EOF = True Then
            DoCmd.RunCommand acCmdRecordsGoToNext
        End If
    Case 0
        If SubfrmCtrl.Form.BOF = True Then
            DoCmd.RunCommand acCmdRecordsGoToPrevious
        End If
End Select
End Function

Top

煮江品茶发表于：2011-01-10 10:44:30