判断超级编辑框纵向滚动条是否滚动到最底部

萌新坏猫

如题，我需要判断超级编辑框的纵向滚动条是不是到最底部了，这样我就可以让按钮取消禁止。

说白了就是网页那种用户协议，必须让他滚到最底部才能同意用户协议，只有同意用户协议才能进入到软件。



补充内容 (2025-3-27 15:06):
骚等，一会结帖，好多种方案，我先研究一下。谢谢各位大佬。

补充内容 (2025-3-27 15:55):
补充一句，方便有类似需求的朋友查看，这段话基于采纳后给大佬补充的。需要结束线程请看16楼。

aipca

大概这个意思。

是可可吖

超级编辑框1.滚动 (行数)

萌新坏猫

是可可吖 发表于 2025-3-27 13:28
超级编辑框1.滚动 (行数)

不行，用户协议是会更新的，并不是一直一样，用户协议是从网络获取的，不是写在超级编辑框本身里面。

是可可吖

萌新坏猫 发表于 2025-3-27 13:33
不行，用户协议是会更新的，并不是一直一样，用户协议是从网络获取的，不是写在超级编辑框本身里面。 ...

取出来的变量取行数，也不行吗

cultwent

在易语言中，超级编辑框（RichEdit）的滚动条位置判断比普通编辑框更复杂，需要使用特定的API消息。以下是几种常用方法：

1. 获取垂直滚动条位置

.子程序 取超级编辑框垂直滚动位置, 整数型
.参数 超级编辑框句柄, 整数型
.局部变量 si, SCROLLINFO

    si.cbSize = 取结构长度(SCROLLINFO)
    si.fMask = #SIF_POS
    发送消息(超级编辑框句柄, #SBM_GETSCROLLINFO, #SB_VERT, 取变量地址(si))
    返回(si.nPos)

2. 获取水平滚动条位置

.子程序 取超级编辑框水平滚动位置, 整数型
.参数 超级编辑框句柄, 整数型
.局部变量 si, SCROLLINFO

    si.cbSize = 取结构长度(SCROLLINFO)
    si.fMask = #SIF_POS
    发送消息(超级编辑框句柄, #SBM_GETSCROLLINFO, #SB_HORZ, 取变量地址(si))
    返回(si.nPos)

3. 完整示例代码

.版本 2

.程序集 窗口程序集1
.程序集变量 超级编辑框句柄, 整数型

.常量 SCROLLINFO, "int cbSize;int fMask;int nMin;int nMax;int nPage;int nPos;int nTrackPos;"
.常量 SIF_POS, "0x4"
.常量 SBM_GETSCROLLINFO, "0xE9"
.常量 SB_VERT, "0x1"
.常量 SB_HORZ, "0x0"

.子程序 __启动窗口_创建完毕
    超级编辑框句柄 ＝ 超级编辑框1.取窗口句柄()

.子程序 _按钮1_被单击
    .局部变量 垂直位置, 整数型
    .局部变量 水平位置, 整数型
   
    垂直位置 ＝ 取超级编辑框垂直滚动位置(超级编辑框句柄)
    水平位置 ＝ 取超级编辑框水平滚动位置(超级编辑框句柄)
   
    信息框("垂直位置：" ＋ 到文本(垂直位置) ＋ #换行符 ＋ "水平位置：" ＋ 到文本(水平位置), 0, )
   
    .如果(垂直位置 > 50)
        信息框("已滚动超过50单位", 0, )
    .如果结束

.子程序 取超级编辑框垂直滚动位置, 整数型
.参数 句柄, 整数型
.局部变量 si, SCROLLINFO
    si.cbSize = 取结构长度(SCROLLINFO)
    si.fMask = #SIF_POS
    发送消息(句柄, #SBM_GETSCROLLINFO, #SB_VERT, 取变量地址(si))
    返回(si.nPos)

.子程序 取超级编辑框水平滚动位置, 整数型
.参数 句柄, 整数型
.局部变量 si, SCROLLINFO
    si.cbSize = 取结构长度(SCROLLINFO)
    si.fMask = #SIF_POS
    发送消息(句柄, #SBM_GETSCROLLINFO, #SB_HORZ, 取变量地址(si))
    返回(si.nPos)

4. 判断是否滚动到底部

.子程序 是否滚动到底部, 逻辑型
.参数 超级编辑框句柄, 整数型
.局部变量 si, SCROLLINFO
.局部变量 是否到底, 逻辑型

    si.cbSize = 取结构长度(SCROLLINFO)
    si.fMask = #SIF_POS | #SIF_RANGE | #SIF_PAGE
    发送消息(超级编辑框句柄, #SBM_GETSCROLLINFO, #SB_VERT, 取变量地址(si))
   
    是否到底 = (si.nPos + (int)si.nPage >= si.nMax)
    返回(是否到底)

5. 设置滚动条位置

.子程序 置超级编辑框滚动位置
.参数 垂直位置, 整数型, 可空
.参数 水平位置, 整数型, 可空
.局部变量 si, SCROLLINFO

    .如果真(是否为空(垂直位置) ＝ 假)
        si.cbSize = 取结构长度(SCROLLINFO)
        si.fMask = #SIF_POS
        si.nPos = 垂直位置
        发送消息(超级编辑框句柄, #SBM_SETSCROLLINFO, #SB_VERT, 取变量地址(si))
    .如果真结束
   
    .如果真(是否为空(水平位置) ＝ 假)
        si.cbSize = 取结构长度(SCROLLINFO)
        si.fMask = #SIF_POS
        si.nPos = 水平位置
        发送消息(超级编辑框句柄, #SBM_SETSCROLLINFO, #SB_HORZ, 取变量地址(si))
    .如果真结束

6. 常用常量定义

.常量 SCROLLINFO, "int cbSize;int fMask;int nMin;int nMax;int nPage;int nPos;int nTrackPos;"
.常量 SIF_RANGE, "0x1"
.常量 SIF_POS, "0x4"
.常量 SIF_PAGE, "0x2"
.常量 SIF_TRACKPOS, "0x10"
.常量 SIF_ALL, "SIF_RANGE|SIF_POS|SIF_PAGE|SIF_TRACKPOS"
.常量 SBM_SETSCROLLINFO, "0xE9"
.常量 SBM_GETSCROLLINFO, "0xEA"
.常量 SB_HORZ, "0x0"
.常量 SB_VERT, "0x1"
.常量 SB_CTL, "0x2"

注意事项
超级编辑框的滚动条操作比普通编辑框更复杂，需要了解Windows API

需要正确声明SCROLLINFO结构体

部分消息可能需要先发送EM_GETSCROLLBAR消息获取滚动条句柄

不同版本的RichEdit控件可能有不同的行为

对于多格式文本，滚动位置的计算可能更复杂

这些方法可以帮助您精确控制和判断超级编辑框的滚动条位置。

补充内容 (2025-3-27 14:09):
结构SCROLLINFO参照：https://baike.baidu.com/item/SCROLLINFO/4123463

廿六

  

DLL命令名	返回值类型	公开	备 注
GetScrollPos	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetScrollPos
参数名	类 型	传址	数组	备 注
hWnd	整数型
nBar	整数型

DLL命令名	返回值类型	公开	备 注
GetScrollRange	逻辑型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetScrollRange
参数名	类 型	传址	数组	备 注
hWnd	整数型
nBar	整数型
lpMinPos	整数型
lpMaxPos	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
hwnd	整数型
pos	整数型
minpos	整数型
maxpos	整数型

hwnd ＝ 超级编辑框1.取窗口句柄 ()
GetScrollRange (hwnd, 1, minpos, maxpos)
pos ＝ GetScrollPos (hwnd, 1)
' "pos ＋ 超级编辑框1.高度 － 5“ -5是我这边的滚动条控件高度，这个需要自己看看一不一样，然后判断是不是在最底部应该还需要你自己设置一个阈值，在一个范围内就算拉到最底部
调试输出 (pos ＋ 超级编辑框1.高度 － 5, maxpos)

i支持库列表	支持库注释
spec	特殊功能支持库
iext2	扩展界面支持库二

.版本 2<br /> <br /> .DLL命令 GetScrollPos, 整数型, "user32.dll", "GetScrollPos"<br />     .参数 hWnd, 整数型<br />     .参数 nBar, 整数型<br /> <br /> .DLL命令 GetScrollRange, 逻辑型, "user32.dll", "GetScrollRange"<br />     .参数 hWnd, 整数型<br />     .参数 nBar, 整数型<br />     .参数 lpMinPos, 整数型, 传址<br />     .参数 lpMaxPos, 整数型, 传址<br /> .版本 2<br /> .支持库 spec<br /> .支持库 iext2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 hwnd, 整数型<br /> .局部变量 pos, 整数型<br /> .局部变量 minpos, 整数型<br /> .局部变量 maxpos, 整数型<br /> <br /> hwnd ＝ 超级编辑框1.取窗口句柄 ()<br /> GetScrollRange (hwnd, 1, minpos, maxpos)<br /> pos ＝ GetScrollPos (hwnd, 1)<br /> <br /> ' "pos ＋ 超级编辑框1.高度 － 5“ -5是我这边的滚动条控件高度，这个需要自己看看一不一样，然后判断是不是在最底部应该还需要你自己设置一个阈值，在一个范围内就算拉到最底部<br /> 调试输出 (pos ＋ 超级编辑框1.高度 － 5, maxpos)

补充内容 (2025-3-27 14:54):
1是纵向，0是横向

萌新坏猫

cultwent 发表于 2025-3-27 14:02
在易语言中，超级编辑框（RichEdit）的滚动条位置判断比普通编辑框更复杂，需要使用特定的API消息。以下是 ...

ai回复的吗？代码是有问题的，我也去问过ai。

算法艺术家

  

子程序名	返回值类型	公开	备 注
超列取当前可视首行	整数型		返回可显示的第一行索引
参数名	类 型	参考	可空	数组	备 注
超列窗口句柄	整数型				超级列表框.取窗口句柄 ()

返回 (SendMessageA (超列窗口句柄, #LVM_GETTOPINDEX, 0, 0))
' 返回 (超级列表框1.发送信息(4135, 0, 0)）

子程序名	返回值类型	公开	备 注
超列取当前可视行数	整数型
参数名	类 型	参考	可空	数组	备 注
超列窗口句柄	整数型				超级列表框.取窗口句柄 ()

返回 (SendMessageA (超列窗口句柄, #LVM_GETCOUNTPERPAGE, 0, 0))
' 返回 ( 超级列表框1.发送信息(4136, 0, 0)）

子程序名	返回值类型	公开	备 注
超列判断是否滚动到底部	逻辑型
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
尾行	整数型
位置	整数型
超列句柄	整数型

超列句柄 ＝ 超级列表框.取窗口句柄 ()
尾行 ＝ 超级列表框.取表项数 () － 1
位置 ＝ 超列取当前可视首行 (超列句柄) ＋ 超列取当前可视行数 (超列句柄) － 1
判断 (位置 ≥ 尾行)
返回 (真)
返回 (假)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超列取当前可视首行, 整数型, 公开, 返回可显示的第一行索引<br /> .参数 超列窗口句柄, 整数型, , 超级列表框.取窗口句柄 ()<br /> <br /> 返回 (SendMessageA (超列窗口句柄, #LVM_GETTOPINDEX, 0, 0))<br /> ' 返回 (超级列表框1.发送信息(4135, 0, 0)）<br /> <br /> .子程序 超列取当前可视行数, 整数型, 公开<br /> .参数 超列窗口句柄, 整数型, , 超级列表框.取窗口句柄 ()<br /> <br /> 返回 (SendMessageA (超列窗口句柄, #LVM_GETCOUNTPERPAGE, 0, 0))<br /> ' 返回 ( 超级列表框1.发送信息(4136, 0, 0)）<br /> <br /> .子程序 超列判断是否滚动到底部, 逻辑型, 公开<br /> .参数 超级列表框, 超级列表框<br /> .局部变量 尾行, 整数型<br /> .局部变量 位置, 整数型<br /> .局部变量 超列句柄, 整数型<br /> <br /> 超列句柄 ＝ 超级列表框.取窗口句柄 ()<br /> 尾行 ＝ 超级列表框.取表项数 () － 1<br /> 位置 ＝ 超列取当前可视首行 (超列句柄) ＋ 超列取当前可视行数 (超列句柄) － 1<br /> .判断开始 (位置 ≥ 尾行)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束

补充内容 (2025-3-27 15:13):
我看成超级列表框了。。

萌新坏猫

廿六 发表于 2025-3-27 14:53
[e=0].版本 2

.DLL命令 GetScrollPos, 整数型, "user32.dll", "GetScrollPos"

大佬，你这个有一个BUG，如果我用的是滚轮被滚动属性，这次滚动的数据调试输出出来是上一次滚动的位置。

补充内容 (2025-3-27 15:18):
当然用按钮来提示用户也是可以的。