【按键精灵安卓版】提示信息（showmessage）的几种动态显

一、倒计时显示

For i = 0 To 10

ShowMessage "倒计时" & 10-i & "秒"

Delay 1000

Next

二、闪烁形式

For 5

ShowMessage "☆☆☆☆☆"

Delay 500

ShowMessage "★★★★★"

Delay 500

Next

三、进度加载形式

Dim k

For i = 0 To 100

    For i mod 4

        k = k & "."

    Next

    ShowMessage "当前进度：" & i & "%请稍后"&k,200,50,400

    Delay 200

    k=""

Next

四、打字效果

Dim words="关注公众号：3分钟学堂， 获取安卓按键进阶教程  交流群：78237147"

Dim word,word_line

For i = 1 To UTF8.Len(words)

    word = UTF8.StrGetAt(words, i)

    If word = " " Then 

        word_line = word_line & "\n"

        Delay 100

    End If

    word_line = word_line & word

    ShowMessage word_line & "_", 200, 30, 200

    Delay 100

Next

For 5

    ShowMessage word_line & "_", 200, 30, 200

    Delay 300

    ShowMessage word_line, 200, 30, 200

    Delay 300

Next