提示信息(showmessage)的几种动态显示方法

一、倒计时显示

提示信息(showmessage)的几种动态显示方法

For i = 0 To 10
ShowMessage “倒计时” & 10-i & “秒”
Delay 1000
Next

二、闪烁形式

提示信息(showmessage)的几种动态显示方法

For 5
ShowMessage “☆☆☆☆☆”
Delay 500
ShowMessage “★★★★★”
Delay 500
Next

三、进度加载形式

提示信息(showmessage)的几种动态显示方法

Dim k
For i = 0 To 100
For i mod 4
k = k & “.”
Next
ShowMessage “当前进度:” & i & “%请稍后”&k,200,50,400
Delay 200
k=””
Next

四、打字效果

提示信息(showmessage)的几种动态显示方法

Dim words=”文字信息”
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

——————————————

原文始发于微信公众号(3分钟学堂):

本站内容来源于网络,转载请注明出处和链接!
本文链接地址: https://pumpkinit.com/721.html
南瓜  [https://pumpkinit.com]  感谢

发表评论

电子邮件地址不会被公开。 必填项已用*标注