显示许多数学计算的进度条
答
进度条非常简单易用。例如,检查出我的Windows窗体下面包含一个进度条和按钮:
我们增加了进度条,我干脆把下面一行在我Do Stuff
按钮:
progressBar1.Value += 10;
我可以减小像这样:
progressBar1.Value -= 10;
进度条可以通过d具有0到100之间的任何一个值默认情况下,您可以通过修改Maximum
属性来改变这一点,如J Steen
指出的那样。我在这里所做的每次点击都会将值增加10。该值具有getter和setter属性,因此您可以检查当前值以查看进度栏是否已完成。
希望这有助于
+0
实际上,您可以设置任何您喜欢的“最大”。它不一定是100. – 2012-07-27 07:15:39
+0
非常真实,我已经更新了答案 – JMK 2012-07-27 07:19:45
答
Public Class Form1
Dim x(50000), y(50000), z(50000) As Integer
Private Sub btn_Click() Handles btn.Click
For i As Integer = 0 To 49999 Step 1
z(i) = x(i) * y(i)
bar.Value = i/500
Next
End Sub
Private Sub Form1_Paint() Handles Me.Paint
Dim r As New Random
For i As Integer = 0 To 49999 Step 1
x(i) = r.Next(50)
y(i) = r.Next(50)
Next
End Sub
End Class
你能告诉我们你的乘法的代码? – renatoargh 2012-07-27 02:00:07
这是在Windows窗体上? – JMK 2012-07-27 02:00:48
它是Windows的Web应用程序吗? – Umesh 2012-07-27 02:20:03