利用label標(biāo)簽的backcolor使其width發(fā)生改變，進(jìn)行簡(jiǎn)單的進(jìn)度條走動(dòng)

新建一個(gè)label標(biāo)簽和時(shí)鐘控件雙擊時(shí)鐘控件進(jìn)入該代碼界面

輸入一下代碼

Private Sub Timer1_Timer()
Label1.Width = Label1.Width + 100? ? ? ? ? ? ? ? 'Label1控件的寬度加100
?If Label1.Width > 8295 Then? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? '如果label1的寬度大于一定范圍，
?Timer1.Enabled = False? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? '關(guān)閉時(shí)鐘，停止運(yùn)行
?End If? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? '結(jié)束判斷

End Sub

總結(jié)

以上是生活随笔為你收集整理的简单的VB进度条程序的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。