Progressbar 与 button 的问题

maple迷

1. 
   
2. Public Class Form1
   
3. 
   
4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
5.         For i As Integer = 90 To 100
   
6.             If ProgressBar1.Value = i Then
   
7.                 Label2.Text = Label2.Text + 1
   
8.             End If
   
9.         Next
   
10.     End Sub
    
11. 
    
12.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
13.         ProgressBar1.Value = ProgressBar1.Value + 1
    
14.     End Sub
    
15. End Class
    

复制代码

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

请各位大人指教

goodhermit95

回复 1# maple迷


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

maple迷

你是说

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

??

goodhermit95

回复 3# maple迷


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

maple迷

能用了
不过

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

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

goodhermit95

回复 5# maple迷


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

zechs

你的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

你的timer 一直在跑 so error