窗口加滚动条-给窗口加上滚动条并响应滚动条操作

郝钰

这个要鼠标拖动滚动条才行啊，鼠标滑轮不起作用？？？

郝钰

哇哇哇，感谢楼主分享

邓学彬

修复BUG：窗口尺寸改变后，组件无法恢复原位。

  

子程序名	返回值类型	公开	备 注
WndScroll_UpdateScroll			更新滚动条，是否显示、滚动范围
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型

GetScrollInfo (hWnd, #SB_VERT, si)  ' //获取纵向滚动条信息
如果真 (si.nPos ＞ 0 且 bVert ＝ 假)  ' //如果当前不需要纵向滚动条且滚动条位置大于0
ScrollWindow (hWnd, 0, si.nPos, 0, 0)  ' //还原窗口组件的位置
GetScrollInfo (hWnd, #SB_HORZ, si)  ' //获取横向滚动条信息
如果真 (si.nPos ＞ 0 且 bHorz ＝ 假)  ' //如果当前不需要横向滚动条且滚动条位置大于0
ScrollWindow (hWnd, si.nPos, 0, 0, 0)  ' //还原窗口组件的位置

.版本 2<br /> <br /> .子程序 WndScroll_UpdateScroll, , , 更新滚动条，是否显示、滚动范围<br /> .参数 hWnd, 整数型<br /> <br /> GetScrollInfo (hWnd, #SB_VERT, si)  ' //获取纵向滚动条信息<br /> .如果真 (si.nPos ＞ 0 且 bVert ＝ 假)  ' //如果当前不需要纵向滚动条且滚动条位置大于0<br />     ScrollWindow (hWnd, 0, si.nPos, 0, 0)  ' //还原窗口组件的位置<br /> .如果真结束<br /> GetScrollInfo (hWnd, #SB_HORZ, si)  ' //获取横向滚动条信息<br /> .如果真 (si.nPos ＞ 0 且 bHorz ＝ 假)  ' //如果当前不需要横向滚动条且滚动条位置大于0<br />     ScrollWindow (hWnd, si.nPos, 0, 0, 0)  ' //还原窗口组件的位置

更新源码下载：
窗口加滚动条_邓学彬(泪闯天涯).e (26.91 KB, 下载次数: 275)

2018-10-21 20:19 上传

点击文件名下载附件

772233400

支持一下感谢分享

fw95

        感谢分享，很给力！~

kkyyy

#在这 不错，支持一下里快 不错，支持一下速回复#

zzy92sx

近距离围观大神  记得初入易语言 就看过很多学彬大佬的例程  感谢感谢！

暮色下雨天

666666666666666666666666666

1279868433

支持 一下！            

sofs

不错，支持一下。