昨天在群裡看到他們發得一個這樣的效果挺好玩的（下圖）

就是給靜态頁面加個“動态效果”，這種效果就是把字符串部分内容變化，然後循環執行就可以了。

看到這個效果我又想到了，我之前發得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

總的來說安卓按鍵的靜态頁面确實很單調，弄點效果看着好看點吧。

内容就這些，喜歡的朋友可以留言、點贊、在看一條龍服務了。