Question

求人用vb做一个超简单的进度条，可以显示百分比，可以控制进度条多长时间加载到百分之百就可以

有会的留个qq啊

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To UBound(RandArray)
RandArray(i) = Int(Rnd() * 1000)
TextBox1.Text = TextBox1.Text & RandArray(i) & vbCrLf
ProgressBar1.Value = i ‘随着for循环的进行，进度条随之变化，显示进度
Next i
End Sub

这是VB2010内的一段练习，进度条工具箱中给的是上面的 ProgressBar 控件。

Answer 2

896373726，请注明进度条