易语言写单按钮控制进度条的启动与停止！

易语言写单按钮控制进度条的启动与停止！

易语言单个按钮实现多种效果！！

易语言写进度条的控制。

打开易语言，添加窗口基本组件，一个按钮，一个进度条。

双击启动窗口进入到窗口程序集。写代码

.版本 2

.程序集 窗口程序集1

.程序集变量 a, 整数型

.子程序 __启动窗口_创建完毕

a ＝ 0 （进度条的进度数）

进度条1.最大位置 ＝ 100

进度条1.位置 ＝ 0

进度条1.显示方式 ＝ 0

进度条2.最大位置 ＝ 50

进度条2.位置 ＝ 0

进度条2.显示方式 ＝ 1

如何实现单个按钮控制开始停止呢？

用到的是按钮自身条件判断。如下：

.版本 2

.子程序 _按钮1_被单击

.判断开始 (按钮1.标题 ＝ “开始”)

按钮1.标题 ＝ “停止”

返回 ()

.默认

按钮1.标题 ＝ “开始”

返回 ()

现在我们写时钟的周期事件，就是时钟启动后执行的事件。

.版本 2

这里面的a 是代表进度条的位置，初始为0，执行一次以后变为

a=a+10 那么 a=10 再运行 就等于20了，直到进度条满为止。

.子程序 _时钟1_周期事件

a ＝ a ＋ 10

进度条1.位置 ＝ a

进度条2.位置 ＝ a

按 F5 启动 运行测试一下。

OK！

我们还可以多加一个进度条，写入不同的设置，！~

.版本 2

.程序集 窗口程序集1

.程序集变量 a, 整数型

.子程序 __启动窗口_创建完毕

a ＝ 0

进度条1.最大位置 ＝ 100

进度条1.位置 ＝ 0

进度条1.显示方式 ＝ 0

进度条2.最大位置 ＝ 50

进度条2.位置 ＝ 0

进度条2.显示方式 ＝ 1

.子程序 _时钟1_周期事件

a ＝ a ＋ 10

进度条1.位置 ＝ a

进度条2.位置 ＝ a

.子程序 _按钮1_被单击

.判断开始 (按钮1.标题 ＝ “开始”)

按钮1.标题 ＝ “停止”

时钟1.时钟周期 ＝ 1000

返回 ()

.默认

按钮1.标题 ＝ “开始”

时钟1.时钟周期 ＝ 0

返回 ()

启动运行，试一下，效果！~~~

多动手试试吧！~~

希望对你有所帮助！~谢谢支持！