VB 填充問題，例如進度條

換樓**，改用時鐘控制，動態，你執行它看看。

option explicit

public n as integer

private sub form_load()dim p as integer

with label1

backstyle = 0

borderstyle = 1

alignment = 2

zorder

end with

with label2

backcolor = vbblue

caption = ""

left =

top =width = 0

height =

end with

end sub

private sub timer1_timer()n = n + 1

if n > 10 then n = 10= int(n / 10 *

cstr(n * 10) &"%"

end sub

您擁有的資料量太小，並且程式執行速度太快，無法看到更改。

您可以將 for 迴圈的數量修改為乙個大數字，並且您可能會看到更改。

不要在迴圈中新增延遲函式，但這樣你的程式會更有效率......

for i=1 to 200

''''有**''''''''

idoevents

nextmsgbox "插入資料"= 0

我不是很明白這個問題，不知道下面能不能實現你的要求，用定時器控制項來實現，一開始label2的可見屬性是false，進度條pb1的最大屬性是100

private sub timer1_timer()= + 1

if = 50 then = 123"

if = 100 then

falsefalse true

end if

end sub

在迴圈語句中新增乙個 ** 語句。

doevents

例如，對於 i=1 到 1000

doevents

print i

如果不新增 doevents，迴圈不執行時，不會響應其他事件，新增 doevents 後會解決。

在進度條之前和之後新增 doevent

您也可以使用 VB 執行乙個，使用多個 **，乙個作為背景，乙個作為前景（綠色塊），並且在進行更新時，前景會隨著時間控制項移動。

您需要使用第三方控制項。 好多。 試用 CodeJock 的產品。

你可以使用時間控制，**不多，你在時間控制下，使用程式實現你的進度條的部分顏色變成了綠色的九行。

引數 t 不是全域性變數，當第乙個計時器執行 timer1 定時器時，引數為 0，直接終止。

嘗試私有子 timer1 timer（）t = value（

t = t - 1

tif t < 0 then = falseend sub

進入後 1 秒，將生成計時器事件，但您的時間 **：

private sub timer1_timer()= t

tt = t - 1

if t < 0 then = falseend sub

計時器事件沒有定義 t 值，因此它一次得到 0，應如下所示：

private sub timer1_timer()dim t

t.=val(

t= tif t < 0 then = falseend sub

上述程式存在問題，1. cd 變數的值始終為 0，因此程式無法停止。 2。停止時，進度條的寬度不是 3135，而是 3215控制不準確。

造成這種情況的主要原因是小部件的最小大小不是 0，而是 15。 所以累積步長增量後的值不是必需的 3135

因此，進度條的一般步長增量為 1%。 第一步是確定進度條的寬度，然後步長增量必須是 100 的整數倍。 如果選擇3015作為上述程式的寬度控制精度，那就太好了。

dim cd, a as integer

private sub form_load()a=（3015-15）/100

0= vbblue

trueend sub

private sub timer1_timer()cd=

if cd = 3015 then

msgbox "它就在這裡"

falseelse + a

end if

doevents

end sub

在 IFI 中

then。。。end

裡加一句話。 false

因為進度條。

100，計時器當然也會增加"無效的屬性值"完成。

private

subtimer1_timer()i=

i+5ifi=100then

falsetrue

endifendsub

我不是很明白這個問題，不知道下面能不能實現你的要求，用定時器控制項來實現，一開始label2的可見屬性是false，進度條pb1的最大屬性是100

private

subtimer1_timer()then

嘲笑篡位者，指責他們有九種方式來遵循單一的 Alue 的結局

thenfalse

falsetrue

endifendsub

其他一切都和你的一樣。

Form2 具有：

private sub form_load()= true

0end sub

private sub timer1_timer()if >= 5 then

falseunload meelse

end if

end sub

就是這樣，我已經試過了。