如何在VB中使用LABEL作为进度条？

在窗体上放置两个标签和一个CommandButton。

私有子命令1_Click()

命令1。启用=假

我。caption = Chr(& amp；HD5FD)& amp；chr(& amp；HD4DA)& amp；_

chr(& amp；hb8f 1)& amp；chr(& amp；HC Abd)& amp；chr(& amp；HBBAF)和amp_

chr(& amp；h43)& amp；chr(& amp；HC5CC)& amp；chr(& amp；HA1AD)

Label1。可见=真

定时器1。间隔= 50

末端接头

私有子窗体_Load()

带标签2

。BorderStyle = 1

。宽度= 3150

。动(我。刻度宽度。宽度)\ 2，(我。比例尺高度。高度)\ 2

。标题= " "

以…结尾

标签为1

。标题= " "

。AutoSize = True

。AutoSize = False

。BackColor = vbBlue

。ForeColor = vbWhite

。对齐= 1

。移动标签2。左+ 30，标签2。Top + 30

标签2。高度=。身高+ 60

。佐德(0)

。可见=假

以…结尾

末端接头

私有子定时器1_Timer()

静态p一样长

p = p + 1

标签为1

。标题= p & amp"%"

。宽度=。宽度+ 30

如果p & lt100，然后离开接头

定时器1。间隔= 0

p = 0

MsgBox“完成”

我。Caption = "完成"

。标题= " "

。AutoSize = True

。AutoSize = False

。移动标签2。左+ 30，标签2。Top + 30

。可见=假

以…结尾

命令1。启用=真

末端接头

本来想用PictureBox做标签的容器，后来一想，还是用PictureBox吧。谁将使用标签作为进度条？哈，反正只要楼主用Label做进度条，就用Label吧。