【按键精灵安卓版】提示信息（showmessage）的几种动态显
2020-05-11 本文已影响0人
3分钟学堂郭立员
一、倒计时显示
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
