精易论坛

标题: 简单自制滚动条,无hk滚动条,但是效果不错，代码少 [打印本页]

作者: sadamu999 时间: 2022-2-19 11:10
标题: 简单自制滚动条,无hk滚动条,但是效果不错，代码少
易语言的滚动条无法定制，而网上找到方法主要是自绘，太复杂。
简单点的办法太少，移动组件方式，居然碰到卡顿的情况。所以有了这个源码。

主要想法：
用“图片框”作为滚动条上的hk。
滑槽可以用任意组件仿制，或者直接在背景图上绘制好，不要也行。
需要刻度也一样。
这样滚动条背景可以透明了，因为用了图片框，hk也可以做的很漂亮了。

API用了2个：
GetAsyncKeyState 和 ClientToScreen

其它如：点燃、按下、hk上显示位置等等，自行添加吧！

源码：

模拟-推子 - 0.5.e (59.46 KB, 下载次数: 20)

还可以做成无hk样式的滚动条，在另一个例程。

源码：

模拟-推子 - 0.6.e (30.27 KB, 下载次数: 39)

补充内容 (2022-3-11 08:54):

"By未命名"说：鼠标按住拖动出范围时，会有闪动
确实有，已修复，并增加“到位置”功能。
12楼,有已修复源码

作者: ahouxyz 时间: 2022-2-19 11:13
谢谢分享

作者: xjshuaishuai 时间: 2022-2-19 11:57
谢谢分享！

作者: reveriexue 时间: 2022-2-19 12:45
谢谢分享

作者: 已注销541904 时间: 2022-2-19 14:14
提示: 作者被禁止或删除内容自动屏蔽

作者: xtavoxing 时间: 2022-2-19 14:33
不错的了...

作者: 外星人群控 时间: 2022-2-19 15:48
有点费事，其实一个画板就可以搞定

作者: 旭哥520 时间: 2022-2-19 17:02
好像不怎么能用的到

作者: By未命名 时间: 2022-2-21 09:20
鼠标按住拖动出范围时，会有闪动

作者: sadamu999 时间: 2022-2-21 10:03

By未命名发表于 2022-2-21 09:20
鼠标按住拖动出范围时，会有闪动

确实，不过还没想到什么办法解决。

作者: zhaode2888 时间: 2022-2-21 14:00
不错，谢谢分享！

作者: sadamu999 时间: 2022-2-22 08:34
"By未命名"说：鼠标按住拖动出范围时，会有闪动

确实有，已修复，并增加“到位置”功能。

源码如下，图就不发了：

模拟-推子 - 0.5.1.e (62.03 KB, 下载次数: 6)

模拟-推子 - 0.6.1.e (32.45 KB, 下载次数: 10)

作者: yqx520 时间: 2022-2-22 14:26
呵呵，这个色，配的，平时用不到吧，只能看下用

作者: sadamu999 时间: 2022-2-22 19:27

yqx520 发表于 2022-2-22 14:26
呵呵，这个色，配的，平时用不到吧，只能看下用

任意配色，举例说明而已，关键是实现方法简单。

作者: sadamu999 时间: 2022-2-22 19:29

外星人群控发表于 2022-2-19 15:48
有点费事，其实一个画板就可以搞定

画板做不到这么简单，这里面有多组件实现的代码。

作者: SGyyds 时间: 2022-2-23 15:59
谢谢楼主的分享

作者: 爱书人飞 时间: 2022-2-23 16:57
小白学习一下

作者: 爱书人飞 时间: 2022-2-23 17:07
66666666666666666666666

作者: blue2022 时间: 2022-3-10 23:21

谢谢楼主的分享

作者: yqx520 时间: 2022-3-11 10:38

sadamu999 发表于 2022-2-22 19:27
任意配色，举例说明而已，关键是实现方法简单。

哦哦，明白了

作者: ghost12 时间: 2022-4-2 05:01
大神，请收下我的膝盖

作者: ghost12 时间: 2022-4-27 09:02
大神，请收下我的膝盖

作者: 无敌小马甲 时间: 2022-5-14 22:09
支持，膜拜了~

作者: ghost12 时间: 2022-5-18 06:01
感谢你的支持，精易有你更精彩

作者: saina6282 时间: 2023-3-2 23:53
66666666666666666666666666666

作者: xcw 时间: 2023-3-27 19:52
开源精神必须支持~

作者: 神一样的程序猿 时间: 2023-3-30 04:01
谢谢分享下载学习

作者: zxhggg 时间: 2023-9-27 14:40
666666666666666666666666

作者: 不会再说放弃 时间: 2024-1-21 11:31
感谢分享

作者: wdjyltzh01 时间: 2024-6-12 22:58

必须支持一下 ..

作者: h1003591791 时间: 2024-12-4 10:38
感谢分享

作者: Hi拂尘 时间: 2025-1-23 13:05
须要这个，谢谢

作者: yiyi111122 时间: 2025-2-27 04:41
谢谢分享6666

作者: yuzhong 时间: 2025-2-28 08:35
111111111111111111111111111111111

欢迎光临精易论坛 (https://125.confly.eu.org/)