昨天在群里看到他们发得一个这样的效果挺好玩的（下图）

就是给静态页面加个“动态效果”，这种效果就是把字符串部分内容变化，然后循环执行就可以了。

看到这个效果我又想到了，我之前发得showmessage动图效果，尤其是那个进度条效果相对的nice，所以决定改改替换到这里。基本过程如下：

（1）选择展示的界面元素，这里面文字框最为合适，文字直接显示，没有下划线、边框啥的干扰。

（2）看一下效果图

（3）思考过程啊：

当时想直接放进度条，又感觉略显单调，正巧呢打开模拟器加载开机画面，那个进度条上有个数值进度，拿来用用也挺好。

测试一下，数字和进度条同步调试了几遍总算是对齐了，结尾停在100%，还是觉得有些尴尬，总有种没加载完的感觉，差那么一丝丝。再改改，把进度条中间加了“完成”两个字，这回看起来还像那么回事儿了。

你要问我这玩意儿有啥实际用处，没有！就是看着花里胡哨儿。

（4）直接上代码：

界面部分

界面1:{  标签页1:  {    按钮:    {      注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",      名称:"按钮1",      显示内容:"加载进度",      点击响应:"函数名1",      文字大小:0,      高度:0,      宽度:0    },      文字框:    {      注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",      名称:"文字框1",      显示内容:"0%",      文字大小:0,      高度:0,      宽度:0    },        文字框:    {      注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",      名称:"文字框2",      显示内容:"▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓",      文字大小:0,      高度:0,      宽度:0    },      },}

函数代码

Function 函数名1()    Dim a="██████████████████████"    Dim b="▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓"    Dim c="    ",d=""    For i = 1 To 20        d=d&c        uip.SetAttribute("文字框1",{"显示内容":d&cstr(i*5)&"%"})        uip.SetAttribute("文字框2",{"显示内容":UTF8.Left(UTF8.Left(a, i) & b, 20)})        Delay 100    Next    uip.SetAttribute("文字框1",{"显示内容":""})    uip.SetAttribute("文字框2",{"显示内容":"█████████完成█████████"})End Function

总的来说安卓按键的静态页面确实很单调，弄点效果看着好看点吧。

内容就这些，喜欢的朋友可以留言、点赞、在看一条龙服务了。