hallo,
ik probeer ervoor te zorgen dat txtlievelingseten en txtnaam niet nummeriek is en txthoevaak wel nummeriek en als dat niet goed is dat het programma dan sluit maar het lukt niet. weet iemand wat ik fout doe? en zo ja ook hoe die fout verholpen kan worden?
dit is het stuk code.
Private Sub Btnuitleg_Click(sender As Object, e As EventArgs) Handles btnuitleg.Click
If Not IsNumeric(txthoevaak) Then Close()
If IsNumeric(txtnaam) Then Close()
If IsNumeric(Txtlievelingseten) Then Close()
If IsNumeric(txthoevaak) Then txtgegevens.Text = Label1.Text + txtnaam.Text + Label2.Text + Txtlievelingseten.Text + Label3.Text + txthoevaak.Text + Label4.Text
If Not IsNumeric(txtnaam) Then txtgegevens.Text = Label1.Text + txtnaam.Text + Label2.Text + Txtlievelingseten.Text + Label3.Text + txthoevaak.Text + Label4.Text
If Not IsNumeric(Txtlievelingseten) Then txtgegevens.Text = Label1.Text + txtnaam.Text + Label2.Text + Txtlievelingseten.Text + Label3.Text + txthoevaak.Text + Label4.Text
End Sub