[英]Visual Basic MsgBox not showing After progress bar is Finished
我正在尝试在Visual Basic中制作宾果卡!
但是有一个问题,只要进度条完成,它就不会显示MsgBox!
我的代码低于below
Public Class ScamBingo
Private Sub ScamBingo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 100
ProgressBar1.Maximum = 100
ProgressBar1.Step = 1
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ProgressBar1.Increment(15.5)
Timer1.Start()
Timer1.Stop()
Button2.Enabled = False
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Timer1.Stop()
Button8.Enabled = False
End Sub
Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click
ProgressBar1.Maximum = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value >= ProgressBar1.Maximum Then
MsgBox("hi")
Timer1.Stop()
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Timer1.Stop()
Button5.Enabled = False
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Timer1.Stop()
Button4.Enabled = False
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Timer1.Stop()
Button6.Enabled = False
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Timer1.Stop()
Button7.Enabled = False
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Timer1.Stop()
Button3.Enabled = False
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Timer1.Stop()
Button1.Enabled = False
End Sub
End Class
因此,如果有人可以提供帮助,那就太好了,谢谢:)
额外信息:
我使用按钮使进度条上升! 我是Visual Basic的新手!
在单击所有按钮时, Timer1
已经停止。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Timer1.Stop()
Button1.Enabled = False
End Sub
这就是timer1无法调用Timer1_Tick
。
当进度条达到最大值(这是我们停止计时器的时间)时,请尝试以下操作,然后显示MsgBox:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 100
ProgressBar1.Maximum = 40
ProgressBar1.Step = 1
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ProgressBar1.Increment(15.5)
Timer1.Start()
Button2.Enabled = False
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Button8.Enabled = False
End Sub
Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click
ProgressBar1.Maximum = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value >= ProgressBar1.Maximum Then
Timer1.Stop()
MsgBox("hi")
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Button5.Enabled = False
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Button4.Enabled = False
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Button6.Enabled = False
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Button7.Enabled = False
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Button3.Enabled = False
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ProgressBar1.Increment(12.5)
Timer1.Start()
Button1.Enabled = False
End Sub End Class
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.