滚动条自动隐藏显示

huben

想实现鼠标移动到树形框时自动显示滚动条，移开时自动隐藏的功能，现在我写出来的貌似神离
自动隐藏显示树形框滚动条鼠标事件功不好用，请高手支招
滚动条隐藏.e (611.61 KB, 下载次数: 11)

2017-9-28 11:17 上传

点击文件名下载附件

呵呵仙

.版本 2
.支持库 iext

.子程序 _树型框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果 (横向位置 ＞ 树型框1.宽度 － 50)
    ShowScrollBar (树型框1.取窗口句柄 (), 1, 0)  ' 隐藏
.否则
    ShowScrollBar (树型框1.取窗口句柄 (), 1, 1)  ' 显示
.如果结束

易正易则

滚动条隐藏.e (730.69 KB, 下载次数: 10)

2017-9-28 11:24 上传

点击文件名下载附件

huben

易正易则 发表于 2017-9-28 11:24

你写的这个我之前也试过了，用组建事件好像都不好用。
  不过还是非常感谢。

huben

易正易则 发表于 2017-9-28 11:24

你写的这个我之前也试过了，用组建事件好像都不好用。
  不过还是非常感谢。

huben

呵呵仙 发表于 2017-9-28 11:43
.版本 2
.支持库 iext

3Q,.....3Q