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

就是这样，我已经试过了。