写在前面
这是PB案例学习笔记系列文章的第7篇,该系列文章适合具有一定PB基础的读者。
通过一个个由浅入深的编程实战案例学习,提高编程技巧,以保证小伙伴们能应付公司的各种开发需求。
文章中设计到的源码,小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git
需要源代码的小伙伴们可以自行下载查看,后续文章涉及到的案例代码也都会提交到这个仓库【**pb-project-example**】
如果对小伙伴有所帮助,希望能给一个小星星⭐支持一下小凡。
一、小目标
有时候,我们需要特别醒目(闪烁)的文字来提示用户关注信息时,我们可以借助PB
中Timer
事件控制StaticEdit
,
的Visible
属性来实现闪烁特效。
二、Timer事件简介
Timer 函数可以实现在指定时间间隔内反复触发指定窗口的定时事件
① 语法
Timer(interval{,windowname})
② 参数解释
参数 |
说明 |
interval |
指定两次触发Timer事件之间的时间间隔,有效值在0~65 之间 如果参数值为0,表示关闭定时器,不在触发窗口的Timer 事件 |
windowname |
窗口名,指定时间间隔到时要触发那个窗口的Timer 事件 |
三、创建程序基本框架
① 创建examplework
工作区
② 创建exampleapp
应用
③ 新建w_main
窗口,Title
设置为闪烁文字
④ 建立控件
在窗口w_main
中添加一个StaticEdit
控件和两个ComandButton
按钮控件。控件分别命名为
st_1
、cb_1
和cb_2
各个控件属性设置如下
控件名称 |
属性 |
值 |
st_1 |
Text |
欢迎关注公众号:XiezhrSpace |
cb_1 |
Text |
开始闪烁 |
cb_2 |
Text |
停止闪烁 |
四、编写代码
① 在窗口w_main
的Timer
事件中添加如下代码
If Mod(second(Now()),2) = 1 then
st_1.visible = false
else
st_1.visible = True
end if
② 在按钮cb_1
的Clicked
事件中添加如下代码
timer(0.5)
③ 在按钮cb_2
的Clicked
事件中添加如下代码
timer(0)
④ 在开发界面左边的System Tree
窗口中双击exampleapp
应用对象,在Open
事件中添加如下代码
open(w_main)
五、运行程序