高校问答洛仙里修炼等级:用VB做一个简单的安装进度条，但是百分比显示老是出错。
来源：百度文库 编辑：高校问答 时间：2024/05/10 08:47:33
我是菜鸟，我已经做了一个，但是百分比老是会超过100％，我的做法是用两个label控件，一个为背景，有固定长度，一个加了蓝背景颜色，初始长度定义为10（想设置成1的，但是会自动变成15。）运行时改变蓝背景的label长度，显示进度。用了timer控件。
百分比我用了label3来显示百分数。程序我贴在下面，但是运行到结束时，不是正好100％，会超过，有时102％等。可能变量设置或其他方面有问题。请高手帮我纠正一下。最好在我的程序基础上改。谢谢！
Option Explicit
Dim a As Integer
Private Sub Command1_Click()
a = 120
End Sub
Private Sub Timer1_Timer()
If Label2.Width = Label1.Width Then
Print MsgBox("你好")
End
End If
If Label2.Width < Label1.Width Then
Label2.Width = Label2.Width + a
Label3.Caption = Format$(CLng(((Label2.Width + a) /Label1.Width) * 100)) + "%"
End If
If Label2.Width > Label1.Width Then
Label2.Width = Label1.Width
End If
就这些代码。小弟万分感激！
百分比我用了label3来显示百分数。程序我贴在下面，但是运行到结束时，不是正好100％，会超过，有时102％等。可能变量设置或其他方面有问题。请高手帮我纠正一下。最好在我的程序基础上改。谢谢！
Option Explicit
Dim a As Integer
Private Sub Command1_Click()
a = 120
End Sub
Private Sub Timer1_Timer()
If Label2.Width = Label1.Width Then
Print MsgBox("你好")
End
End If
If Label2.Width < Label1.Width Then
Label2.Width = Label2.Width + a
Label3.Caption = Format$(CLng(((Label2.Width + a) /Label1.Width) * 100)) + "%"
End If
If Label2.Width > Label1.Width Then
Label2.Width = Label1.Width
End If
就这些代码。小弟万分感激！
我 个人建议你使用 ProgressBar控件 这个比较安全 赫赫
--->--->--->--->--->--->--->--->--->--->--->--->
如果还有问题，请加我的QQ 395273243 或者联系我的邮箱 395273243#QQ.com (将#改为@)
或者联系百度上的Bear_Ben用户 Bear_Ben's QQ:453628001
天才动力 创造奇迹 |答讫 （欢迎Ben来告诉我回答的错误之处）
<---<---<---<---<---<---<---<---<---<---<---<---