JBTALKS.CC

标题: Progressbar 与 button 的问题 [打印本页]

作者: maple迷 时间: 2010-4-3 02:52 PM
标题: Progressbar 与 button 的问题

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

欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/)