【首记录、上一条、下一条、尾记录】半小时学会记录的滚动
hi，大家好！
大家周末都有什么安排呢？要不要抽出半个小时和我一起来学校学习Access？今天我会分享一些实用的功能。让我们先来看一下这些功能。如图所示，我在窗体上添加了几个按钮，用于显示首条记录、上一条、下一条和尾条记录。这样一来，我们可以快速查看数据，在实际应用中非常实用。让我们一起来看看如何实现这些功能
01
添加按钮
这里新增、编辑的代码我们就不再去说明了，我们拿一个现在的编辑窗体，在窗体上添加4个按钮控件，然后将控件的名称分别改成：btnFirst、btnPrevious、btnNext、btnLast
接着也可以像我一下给按钮添加一下图片，如图
02
调整代码
这里我们先不急着添加代码，我们先将原来的加载事件的代码调整一下
03
添加代码
代码调整后，我们就可以来添加代码了，具体代码如下：
04
运行测试
最后，我们就可以来运行测试一下了，我们来看一下效果：
好了，分享就到这里，大家快去试一下吧！
VBA编程，如何对窗体滚动条进行上下左右移动，这个方法真实用
Excel表，通常会超出屏幕大小，这样就需要对滚动条进行操作，初学的朋友可能对滚动条有一个很模糊的认识，实际上并不知道如何操作。
本节不做科普，我们将介绍，如何利用VBA代码对滚动条位置进行操作。
对滚动条进行操作，实际上实现了页面的跳转功能。
下面用一个示例来进行详细说明，如图所示可实现按行滚动和按页滚动，其代码不一样。
首先，按行滚动使用：ActiveWindow.SmallScroll toright:=1
也就是SmallScroll方法，它是Window对象下的一个方法。
同理按页滚动使用：ActiveWindow.LargeScroll down:=1
很显然，使用的是LargeScroll方法，一个大一个小的意思，不知道为什么起这样的名称，并不及适合。
这两个方法分别有几个参数需要设置，才能正常使用，达到想要的效果。
SmallScroll (Down、Up、ToRight、ToLeft)
LargeScroll (Down、Up、ToRight、ToLeft)
参考上表，可以很清楚地明白，分别指上、下、左、右移动的量。
如果是按行滚动就是行或列数，如果是按页滚动就是以页为单位，一个页面就是多个行。
重点还是要自己动手实践操作一下，下面给出一些代码，参考学习：
滚动条操作在大量数据页的情况下使用，十分有用，所以有必要认真学习一下。
欢迎关注、收藏
—END—
「按键精灵安卓版」屏幕滚动显示的源码分享
说明一下：如果想要showmessage信息一直在屏幕上显示，就需要用到多线程。
效果展示
滚动显示代码如下：（显示不全可向右滑动）
Dim msg_arr(),msg_arrj(),msg_m=0
Thread.Start 主程序 //*****函数名后面不要写括号*****
Delay 1000
Do
dim msg=Thread.GetShareVar (\”show\”)
dim msg_n=0
If msg_m = 0 Then
msg_arr(msg_m) = msg
msg_m=msg_m+1
Else
If msg_arr(msg_m-1) = msg Then
TracePrint \”没有变化\”
Else
msg_arr(msg_m) = msg
msg_m=msg_m+1
End If
End If
If UBOUND(msg_arr) < 5 Then
msg_arrj = Clone(msg_arr)
Else
For j = UBOUND(msg_arr) – 5 To UBOUND(msg_arr)
msg_arrj(msg_n) = msg_arr(j)
msg_n=msg_n+1
Next
End If
ShowMessage Join(msg_arrj, \”\\n\”), 1000, 0, 0
Delay 100
Loop
Function 主程序()
For i = 1 To 25
Thread.SetShareVar \”show\”, \”拼接内容显示第\” & i & \”次\”
Delay 500
Next
End Function
代码中有些可调的地方：
①显示内容获取周期，源码是100毫秒，在第27行代码
②显示的行数，默认是6行，在第18行和第21行中的5是控制参数，如果想显示10行，可以把5改成9
代码已经做了内容去重操作，所以不用担心一条重复信息“刷屏”
本文作者及来源:Renderbus瑞云渲染农场https://www.renderbus.com
文章为作者独立观点不代本网立场，未经允许不得转载。
投诉举报&联系我们：
