visual?basic?本身的問題,
創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比保德網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式保德網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們,業(yè)務覆蓋保德地區(qū)。費用合理售后完善,十載實體公司更值得信賴。
win7不支持VB是誤導的,我很不明白樓上為什呢這么說。微軟官方聲稱win7是支持VB6的最后一個windows版本,會提示兼容性問題,不過可以通過直接忽略強制安裝解決。我的win7?裝的visual?basic6.0?截圖如下:
也就是說,跟操作系統(tǒng)沒關(guān)系,你只要下載一個比較好的vb6,肯定沒問題。
1、點擊系統(tǒng)菜單“工具”->“選項”,調(diào)出選項對話匡后選擇“控件”頁,再選擇ActiveX控件,選定列表欄里的Microsoft ProgressBar Control控件,一般里面有兩個版本的,分別是V5.0(SP2)和v6.0。建議用V5.0(SP2)版的,這個控件的風格可以根據(jù)WIN的主題風格的變化而變化,而V6.0是固定的一個格子一個格子的跳。
選定后,前面的小匡內(nèi)會有個‘X’,點確定。
Private Sub Command1_Click()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D
Dim p As Single
ProgressBar1.Min = 0
ProgressBar1.Max = 1000
ProgressBar1.Value = ProgressBar1.Min
ProgressBar1.Scrolling = ccScrollingSmooth
' 定義 進度條 最小值,最大值,當前進度 和樣式
Dim Mx As Long
Mx = 1000000
For A = 1 To Mx
For B = 1 To 10000000
C = B + A
Next B
If A Mod (Mx / ProgressBar1.Max) = 1 Then
' 不需要每次都做, 只要進行到某個時候做一次就好了.
' 計算出當前進度
ProgressBar1.Value = A * ProgressBar1.Max \ Mx
DoEvents
End If
Next A
ProgressBar1.Value = ProgressBar1.Max
' 最后, 進度=進度條最大值.
MsgBox C
End Sub
你試運行的循環(huán)數(shù)量大 程序可能會有點慢, 要等他一下才看到效果,
或者把內(nèi)循環(huán)設置成 100 效果會好一點
我給你個建議
第一 可以寫一個導入的類調(diào)用導入 蠻麻煩 但快捷
第二 可以用js 但不保證每種瀏覽器支持
呵呵 至于實現(xiàn) 我不知道你的代碼具體怎樣
需要幫助 給我百度消息 我一定回復!
本文名稱:vb.net選項匡的簡單介紹
分享地址:http://m.kartarina.com/article26/hgjccg.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供域名注冊、網(wǎng)頁設計公司、響應式網(wǎng)站、微信公眾號、企業(yè)建站、ChatGPT
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)