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

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

看到这个效果我又想到了，我之前发得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

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

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