Visual Basic MsgBox가 표시되지 않습니다. 진행률 표시 줄이 완료된 후

Question

Visual Basic에서 빙고 카드를 만들려고합니다!

하지만 한 가지 문제가 있습니다. 진행률 표시 줄이 끝날 때마다 MsgBox가 표시되지 않습니다.

내 코드는 아래 ⇣⇣⇣⇣⇣⇣⇣

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을 처음 접했습니다!

Answer 1

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