嘘~ 小破站正在拼命加载中 . . .

【PB案例学习笔记】-07 闪烁文字实现


写在前面

这是PB案例学习笔记系列文章的第7篇,该系列文章适合具有一定PB基础的读者。

通过一个个由浅入深的编程实战案例学习,提高编程技巧,以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码,小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git

gitee代码仓库

需要源代码的小伙伴们可以自行下载查看,后续文章涉及到的案例代码也都会提交到这个仓库【**pb-project-example**】

如果对小伙伴有所帮助,希望能给一个小星星⭐支持一下小凡。

一、小目标

有时候,我们需要特别醒目(闪烁)的文字来提示用户关注信息时,我们可以借助PBTimer事件控制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_1cb_1cb_2

各个控件属性设置如下

控件名称 属性
st_1 Text 欢迎关注公众号:XiezhrSpace
cb_1 Text 开始闪烁
cb_2 Text 停止闪烁

控件布局

四、编写代码

① 在窗口w_mainTimer事件中添加如下代码

Timer事件添加代码

If Mod(second(Now()),2) = 1 then
    st_1.visible = false
else
    st_1.visible = True
end if
 

② 在按钮cb_1Clicked事件中添加如下代码

timer(0.5)

③ 在按钮cb_2Clicked事件中添加如下代码

timer(0)

④ 在开发界面左边的System Tree 窗口中双击exampleapp应用对象,在Open事件中添加如下代码

open(w_main)

五、运行程序

文字闪烁


文章作者: xiezhr
版权声明: 本博客所有文章除特別声明外,均采用 CC BY 4.0 许可协议。转载请注明来源 xiezhr !
评论
  目录