[分享]Label標籤使用的應用例子 (Progress Bar)

[liau_sl]

這個是我從日本網站看到的文章,還不錯.
cend = 1500 'デバッグ用数値<-----調試用數值
'準備：對話輸入
With UserForm1
　　.Caption = "マクロ実行中：しばらくお待ち下さい<-----宏實行中:請稍等"
　　.Label1.BackColor = RGB(255, 255, 0)
　　.Label2.TextAlign = fmTextAlignCenter
　　.Label2.BackStyle = 0
　　.Label1.Width = 0
　　tsiz = .Label2.Width
End With
'
Application.ScreenUpdating = False
UserForm1.Show vbModeless

For i = 1 To cend
　　j = i / cend * 100
　　　　With UserForm1
　　　　　 .Label2.Caption = Int(j) & "%"
　　　　　 .Label1.Width = tsiz * j / 100
　　　　End With
'　　 ----------------------------------------------------
　　　For j = 1 To 10000
　　　　'デバッグ用タイミング（実際はここに実行マクロを入れる）
　　　　　 '調試用時機(實際把實行宏作為這裡)
　　　Next
　　 '-----------------------------------------------------
　　 DoEvents
Next
　　 Unload UserForm1
End Sub

[leonchou]

不錯，謝謝分享。
做一個簡單例子，方便大家參考。

對了，有人知道 Progress Bar 繁體叫什麼嗎?

[附件已被管理員刪除]

[liau_sl]

不是叫做,進度條嗎?希望各位大大們可以改良這個程式碼,

[leonchou]

你覺得哪裡需要改良?

我以為进度条是大陸的說法...
Progress Bar 我見過許多不同的做法，
各有特色，提供參考 --
Progress Bar samples 1
Progress Bar samples 2
Progress Bar in StatusBar (sample)
Progress Bar in StatusBar (用comctl32.dll 做的,還可控制很多東西)
Displaying a Progress Indicator for Excel97

[khchang1007]

很實用的表單~
不過您提供的範例我無法執行(可能是97的關係 )
所以我依自己的需求再改一下就可以動作了
參考看看

Private Sub UserForm_Activate()
actimes = 1000 '執行動作參數
Application.ScreenUpdating = True

For i = 1 To actimes
　　j = i / actimes * 100
　　　　　 Me.Caption = "執行中，請稍等... " & Int(j) & "%"
　　　　　 Label1.Width = Label2.Width * j / 100
'-----------------------------------
'執行動作擺放處
'------------------------------------
DoEvents
Next
Unload Me
End Sub

Private Sub UserForm_Initialize()
Label1.Width = 0
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
End If
End Sub

[kaku]

小弟看了這些例子後覺得滿有收護的，小弟也來分享一個…
這是朋友提供給我參考…也是使用API做的…請參考…