模仿电影推拉字幕

seed如影

用一个标签组件来实现字体扩大缩小的目的 还是那句话 老手勿喷

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果 (按钮1.标题 ＝ “开始”)
按钮1.标题 ＝ “停止”
时钟1.时钟周期 ＝ 200

时钟1.时钟周期 ＝ 0
按钮1.标题 ＝ “开始”

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

如果 (标签1.字体.字体大小 ＜ 40)
标签1.字体.字体大小 ＝ 标签1.字体.字体大小 ＋ 1
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 200

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

如果 (标签1.字体.字体大小 ＞ 8)
标签1.字体.字体大小 ＝ 标签1.字体.字体大小 － 1
时钟2.时钟周期 ＝ 0
时钟1.时钟周期 ＝ 200

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (按钮1.标题 ＝ “开始”)<br />     按钮1.标题 ＝ “停止”<br />     时钟1.时钟周期 ＝ 200<br /> <br /> .否则<br />     时钟1.时钟周期 ＝ 0<br />     按钮1.标题 ＝ “开始”<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果 (标签1.字体.字体大小 ＜ 40)<br />     标签1.字体.字体大小 ＝ 标签1.字体.字体大小 ＋ 1<br /> .否则<br />     时钟1.时钟周期 ＝ 0<br />     时钟2.时钟周期 ＝ 200<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟2_周期事件<br /> <br /> <br /> .如果 (标签1.字体.字体大小 ＞ 8)<br />     标签1.字体.字体大小 ＝ 标签1.字体.字体大小 － 1<br /> .否则<br />     时钟2.时钟周期 ＝ 0<br />     时钟1.时钟周期 ＝ 200

晚放

研究一下看

鱼与飞鸟

感谢发布原创作品，精易因你更精彩！

cml1990

支持开源，感谢分享

zhangyingxin

加不加班具不具备拒绝吧唧吧唧

seed如影

奋斗的坦然 发表于 2019-12-27 08:57
替楼主补上效果图

动图是怎么上传的啊 教教我呗

奋斗的坦然

替楼主补上效果图

10008508

感谢分享 下载学习

mood100

上个图更加直观！

xiaoxiao2

上个都动图看看哇！！！

我翔飞

下载看看，谢谢分享