日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

简单的VB进度条程序

發(fā)布時間:2023/12/14 编程问答 27 豆豆
生活随笔 收集整理的這篇文章主要介紹了 简单的VB进度条程序 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

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

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

輸入一下代碼

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

End Sub

總結(jié)

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

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