Errory przy pustych polach ComboBox - problem

[Hammerrek]

Witam

 

Próbuję ustawić prawidłowo errory tak aby pojawiały się gdy nie zaznaczy się opcji w ComboBox. W połowie to działa, lecz gdy wyłączam errory za pomocą OK to ProgressBar uruchamia sie. Próbowałem ustawiać kod na różne sposoby by po Errorach ProgressBar nie uruchamiał się, lecz nie działa :/.

Powie ktoś jak zrobić aby po errorach progressbar nie uruchamiał się?

 

Tu jest część kodu:

 

 

Dim a As Double

a = 0

If ComboBox1.Text = "" Then

MessageBox.Show("Select Server!", "Error")

Else

a = (a + 1)

End If

If ComboBox2.Text = "" Then

MessageBox.Show("Select it!", "Error")

Else

a = (a + 1)

End If

If a = (3) Then

End If

Timer1.Start()

ProgressBar1.Value = ProgressBar1.Minimum

 

Mam jeszcze kod z Timerem ale to pewnie niepotrzebne

[dawid555d]

ja bym to tak zrobił.

 

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim a As Double
a = 0
If ComboBox1.Text = "" Then
Timer1.Stop()
MessageBox.Show("Select Server!", "Error")

Else
a = a + 1
End If
If ComboBox1.Text = "" Then
Timer1.Stop()
MessageBox.Show("Select it!", "Error")

Else
a = a + 1
End If
If a = 3 Then
End If

If ProgressBar1.Value = 100 Then
Timer1.Stop()

End If

End Sub


Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Increment(1)
ProgressBar1.Value = 100
ProgressBar1.Maximum = 100



End Sub
End Class

 

Timer1.Start() musi być na początku obiektu (buttona).

Ps. nie zapominaj, gdy uruchamiasz kod progressBar'a Timer1.start to także musisz go zakończyć po ukończeniu sesji, inaczej on będzie (Timer,Progressbar) działał i komputer będzie musiał wykonywać zadanie.

If ProgressBar1.Value = 100 Then
Timer1.Stop()
End If

i gdy chcesz go zatrzymać, po messagebox to musisz zatrzymać timera.

[Gość Pan Szymek]

If cb1.SelectedIndex < 0 Or cb2.SelectedIndex < 0 Then

Blad()

Else

Dobrze()

End If