進行状況|++ |10%
進行状況|++++ |20%
進行状況|++++++ |30%
進行状況|++++++++ |40%
進行状況|++++++++++ |50%
進行状況|++++++++++++ |60%
進行状況|++++++++++++++ |70%
進行状況|++++++++++++++++ |80%
進行状況|++++++++++++++++++ |90%
進行状況|++++++++++++++++++++|100%
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
Call printStatus(0)
Sleep (1000)
Call printStatus(10)
Sleep (1000)
Call printStatus(20)
Sleep (1000)
Call printStatus(30)
Sleep (1000)
Call printStatus(40)
Sleep (1000)
Call printStatus(50)
Sleep (1000)
Call printStatus(60)
Sleep (1000)
Call printStatus(70)
Sleep (1000)
Call printStatus(80)
Sleep (1000)
Call printStatus(90)
Sleep (1000)
Call printStatus(100)
MsgBox "Finish"
End Sub
Private Sub printStatus(intPercent As Integer)
If intPercent = 0 Then
Application.StatusBar = ""
Exit Sub
End If
Dim strBar As String
Dim intBarLength As Integer
Dim intBlankLength As Integer
intBarLength = intPercent / 5
intBlankLength = 20 - intBarLength
For i = 1 To intBarLength
strBar = strBar & "+"
Next i
For i = 1 To intBlankLength
strBar = strBar & " "
Next i
Debug.Print "進行状況|" & strBar & "|" & intPercent & "%"
Application.StatusBar = "進行状況|" & strBar & "|" & intPercent & "%"
End Sub