小吳 VBQA 程式設計討論

拉個label控制項在他上層就可以了丫...... 若要顯示載入進度只要令label的caption屬性等於 progress的pecent屬性就行了...... 試試!!!

Don't use the default ProgressBar. You can use a PictureBox instead of it. With the line and print method of PictureBox You can get what you want.^-^.

呀! 首次看到來自大陸的網友回答問題。真是太感動了! ShaLong 謝謝您! ShaLong 說得沒錯，在 ProgressBar 尚未問市之前，我們都是用 PictureBox 來模擬的。事實上現在還是有很多軟體使用 PictureBox 來表現進度。不過別忘了要把 picture box 的 AutoRedraw 屬性設為 True，以避免閃動的現象發生。 又，BanneL 兄，你的方法不管用喔! Label 屬 light-weight control，永遠在所有 normal control 的下層，所以無法顯示文字在 ProgressBar 的上方。

謝謝小吳兄的指正,我自己也是用PICTUREBOX模擬的, 就笨笨的以為PROGRESSBAR也是這樣,真是抱歉囉~~

可不可以給我程式讓我參考參考... 我模擬的都怪怪的...:P 謝謝!

在 form 上建一個 picProgress 的 picture box 和一個 command button - Command1。 Private Sub Command1_Click() Dim i As Integer 　　Dim sngWait As Single 　　Dim strPercent As String 　　 　　With picProgress 　　　　.AutoRedraw = True 　　　　picProgress.Scale (0, 0)-(100, 10)　' 設定坐標系 　　　　.Font.Name = "System"　　　　　　　 ' 設定字體 　　　　.Font.Size = 12 　　　　For i = 1 To 100 　　　　　　' 畫出色塊 　　　　　　.Cls 　　　　　　picProgress.Line (0, 0)-(i, 10), vbBlue, BF 　　　　　　' 顯示文字 　　　　　　strPercent = i & "%" 　　　　　　.CurrentX = (100 - .TextWidth(strPercent)) / 2 　　　　　　.CurrentY = 0.2 　　　　　　picProgress.Print strPercent 　　　　　　' 等待 0.1 秒 　　　　　　sngWait = Timer + 0.1 　　　　　　Do 　　　　　　　　DoEvents 　　　　　　Loop Until Timer ＞ sngWait 　　　　Next i 　　End With End Sub