DIY进度条不成熟思路

徐清风 · 发表于 2020-5-9 17:45:53

菜鸡首次分享，大大们勿怪
自带的进度条太丑，又不想用皮肤模块(其实还没去学那些皮肤模块，还在纯源码阶段，死要面子)
想写一个略微好看一点的进度条
之所以发在这里，一个因为权限不够，一个因为怕闲聊区没有大佬关注如果发错了位置，劳驾版主大佬删掉
如果万一有大佬看到，能不能劳驾您做成一个能放进易语言扩展组件那里的成熟组件，或者指点一下怎么做成能放进去的
感谢！！！

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

透明标签1.宽度＝ 12  ' 进度球初始位置
标签1.宽度＝透明标签1.宽度－ 6  ' 进度条初始位置
' 整个进度组件由顶层透明标签2  底层标签1  中间层透明标签1  构成
' 标签1  高度为4，背景颜色为嫩绿，通过改变其宽度用以显示进度条位置
' 透明标签1 标题为 ● 背景颜色为绿色通过改变其宽度用以显示进度球位置
' 通过是否按下（）方法传的逻辑值参数来改变控制球的颜色和大小给使用者一个状态反馈
' 透明标签2    控制进度球和进度条的位置以及进度球的状态

子程序名	返回值类型	公开	备注
_透明标签2_鼠标左键被按下	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

时钟1.时钟周期＝ 30
是否按下 (真)

子程序名	返回值类型	公开	备注
_透明标签2_鼠标左键被放开	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

' 如果真 ()
时钟1.时钟周期＝ 0
是否按下 (假)
' 透明标签1.宽度＝取鼠标水平位置 () －透明标签2.左边－左边
' 标签1.宽度＝透明标签1.宽度－ 5

子程序名	返回值类型	公开	备注
是否按下			进度球按下松开的状态
参数名	类型	参考	可空	数组	备注
局部_是否	逻辑型

判断 (局部_是否)

透明标签1.文本颜色＝ #白色

透明标签1.字体.加粗＝局部_是否

透明标签1.文本颜色＝ #绿色

透明标签1.字体.加粗＝局部_是否

子程序名	返回值类型	公开	备注
_时钟1_周期事件			用来调整进度条位置

变量名	类型	静态	数组	备注
局部_x	整数型
局部_y	整数型

局部_x ＝取鼠标水平位置 ()
局部_y ＝取鼠标垂直位置 ()
' 鼠标所在区域在进度组件所在区域鼠标按下时调整进度

如果 (局部_x ＞左边＋透明标签2.左边且局部_x ＜左边＋透明标签2.左边＋透明标签2.宽度且局部_y － 23 ＞顶边＋透明标签2.顶边且局部_y － 23 ＜顶边＋透明标签2.顶边＋透明标签2.高度)

透明标签1.宽度＝局部_x －透明标签2.左边－左边

如果真 (透明标签1.宽度＜ 12)

透明标签1.宽度＝ 12

如果真 (透明标签1.宽度＞透明标签2.宽度)

透明标签1.宽度＝透明标签2.宽度

标签1.宽度＝透明标签1.宽度－ 6

时钟1.时钟周期＝ 0

是否按下 (假)

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

.版本 2<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
透明标签1.宽度 ＝ 12  ' 进度球初始位置<br />
标签1.宽度 ＝ 透明标签1.宽度 － 6  ' 进度条初始位置<br />
<br />
' 整个进度组件由 顶层 透明标签2  底层 标签1  中间层 透明标签1  构成<br />
' 标签1  高度为4，背景颜色为 嫩绿，通过改变其宽度 用以显示进度条位置<br />
' 透明标签1   标题为 ● 背景颜色为 绿色 通过改变其宽度 用以显示进度球位置<br />
' 通过 是否按下（） 方法传的逻辑值参数 来改变控制球的颜色和大小 给使用者一个状态反馈<br />
' 透明标签2      控制 进度球和进度条的位置以及进度球的状态<br />
<br />
.子程序 _透明标签2_鼠标左键被按下, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
时钟1.时钟周期 ＝ 30<br />
是否按下 (真)<br />
<br />
.子程序 _透明标签2_鼠标左键被放开, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
' 如果真 ()<br />
时钟1.时钟周期 ＝ 0<br />
是否按下 (假)<br />
' 透明标签1.宽度 ＝ 取鼠标水平位置 () － 透明标签2.左边 － 左边<br />
' 标签1.宽度 ＝ 透明标签1.宽度 － 5<br />
<br />
.子程序 是否按下, , , 进度球按下松开的状态<br />
.参数 局部_是否, 逻辑型<br />
<br />
.判断开始 (局部_是否)<br />
    透明标签1.文本颜色 ＝ #白色<br />
    透明标签1.字体.加粗 ＝ 局部_是否<br />
.默认<br />
    透明标签1.文本颜色 ＝ #绿色<br />
    透明标签1.字体.加粗 ＝ 局部_是否<br />
.判断结束<br />
<br />
<br />
.子程序 _时钟1_周期事件, , , 用来调整进度条位置<br />
.局部变量 局部_x, 整数型<br />
.局部变量 局部_y, 整数型<br />
<br />
局部_x ＝ 取鼠标水平位置 ()<br />
局部_y ＝ 取鼠标垂直位置 ()<br />
' 鼠标所在区域在 进度组件 所在区域 鼠标按下时 调整进度<br />
.如果 (局部_x ＞ 左边 ＋ 透明标签2.左边 且 局部_x ＜ 左边 ＋ 透明标签2.左边 ＋ 透明标签2.宽度 且 局部_y － 23 ＞ 顶边 ＋ 透明标签2.顶边 且 局部_y － 23 ＜ 顶边 ＋ 透明标签2.顶边 ＋ 透明标签2.高度)<br />
    透明标签1.宽度 ＝ 局部_x － 透明标签2.左边 － 左边<br />
    .如果真 (透明标签1.宽度 ＜ 12)<br />
        透明标签1.宽度 ＝ 12<br />
    .如果真结束<br />
    .如果真 (透明标签1.宽度 ＞ 透明标签2.宽度)<br />
        透明标签1.宽度 ＝ 透明标签2.宽度<br />
    .如果真结束<br />
    标签1.宽度 ＝ 透明标签1.宽度 － 6<br />
.否则<br />
    时钟1.时钟周期 ＝ 0<br />
    是否按下 (假)<br />
.如果结束