Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Double
a = 0
If TextBox1.Text = "" Then
MessageBox.Show("Add your e-mail", "Error")
Else
a = (a + 1)
End If
If RadioButton1.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton2.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton3.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton4.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton5.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If a = (5) Then
Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum
End If
End Sub
End Class
Czy jest dobry. Jak nie to proszę o wytłumaczenie \ poprawienie to co jest źle.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Double
a = 0
If TextBox1.Text = "" Then
MessageBox.Show("Add your e-mail", "Error")
Else
a = (a + 1)
End If
If RadioButton1.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton2.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton3.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton4.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If RadioButton5.Text = "" Then
MessageBox.Show("Select monney!", "Error")
Else
a = (a + 1)
End If
If a = (5) Then
Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum
End If
End Sub
End Class
Czy jest dobry. Jak nie to proszę o wytłumaczenie \ poprawienie to co jest źle.