用过“进度条”的哥们进来下

Question

小弟想学过个 软件封面  所以想加一个 进度条 显得更好看一些  但是对这个不熟悉 希望知道的XDJM 能把代码发给我 时间设定在3秒钟添满。为了好看哈

Answer 1

windows common controls
max设为30，每100毫秒增1

Answer 2

ProgressBar1.Min = 0                         
ProgressBar1.max = 30
ProgressBar1.Visible = True 
i = 0
    Do While i < 30
    ProgressBar1.value = i
    i = i + 1
    Loop
    ProgressBar1.Visible = False