Zatrzymanie okienek

[GaCeL]

Witam,

 

Gdy odpalam program to okienka z tekstem OK wyskakują mi cały czas. Jak zrobić aby wyskoczyło tylko 1 ?

 

Public Class Form1


    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click


    End Sub


    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click


    End Sub


    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
       


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub


    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            MessageBox.Show("OK !") <----- O TE
        End If
        Label2.Text = ProgressBar1.Value & ("%")
    End Sub
End Class

[piotrek693206]

Dodaj Timer1.stop() dokładnie tak :
 

 

 

Public Class Form1


    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click


    End Sub


    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click


    End Sub


    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
       


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub


    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            MessageBox.Show("OK !") <----- O TE
            timer1.stop()
        End If
        Label2.Text = ProgressBar1.Value & ("%")
    End Sub
End Class

[GaCeL]

Teraz przy 99% Zaczęło się te kulko kolo kursora kręcić przez 5 sek wywaliło niby 1 okienko a jak chcialem zamknąć to było nich z 50

[piotrek693206]

To daj Timer1.stop() przed MessageBox.show

 

 

Czyli :

 

 

Public Class Form1


    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click


    End Sub


    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click


    End Sub


    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
       


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub


    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
       timer1.stop()
            MessageBox.Show("OK !") <----- O TE
     
        End If
        Label2.Text = ProgressBar1.Value & ("%")
    End Sub
End Class