查看: 2231|回复: 7

Progressbar 与 button 的问题

[复制链接]

maple迷

2010-4-3 02:52 PM

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 90 To 100
If ProgressBar1.Value = i Then
Label2.Text = Label2.Text + 1
End If
Next
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub
End Class

复制代码

我是想
progressbar1 的 value 从 90 到 100 之间按下 button1 的话 , label2 的 text 就会 + 1
不是的话就 label4 的 text +1
不过 code 到这 2 行就试试 debug 结果有错误
progressbar1 的 value 貌似到 98 - 99 时跳回 VB 界面

请各位大人指教

goodhermit95

2010-4-3 03:11 PM

回复 1# maple迷

...你的Timer到100要停不然會出現exception
不是的話就level4.text + 1,你沒code進去

maple迷

2010-4-3 07:04 PM

你是说

if progressbar1.value = "100" then
timer1.enabled = false

??

goodhermit95

2010-4-3 11:40 PM

回复 3# maple迷

你自己debug不是比我回复你来得快吗

maple迷

2010-4-3 11:47 PM

能用了
不过

if progressbar1.value = "100" then
progressbar1.value = "0"

以上想做成 reset 作用
不过这个 code 导致
progressbar1 的 value 走到
目测 80% 的位置就 reset 了
是什么问题呢?

goodhermit95

2010-4-4 01:57 PM

回复 5# maple迷

...邏輯點，如果你要不會有這個問題的話應該是再progressbar.value = 100的時候close掉timer而不是等於0 這樣的話會一直重複

zechs

2010-4-5 07:08 PM

你的progressbar maximum是多少？

# For i As Integer = 90 To 100
#          If ProgressBar1.Value = i Then
#                Label2.Text = Label2.Text + 1
#          End If
#       Next

这段改成
if progressbar.value >= 90 and <=100 then
   Label2.Text = Label2.Text + 1
endif
会不会比较好一点？

tjrong

2010-4-14 02:07 AM

你的timer 一直在跑 so error

返回列表

Progressbar 与 button 的问题

浏览过的版块