按键精灵安卓版提示信息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