一、倒計時顯示
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
分享到:
閱讀更多 按鍵精靈郭立員 的文章
