visual basic if en then werkt niet goed

Dit topic is gesloten

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

Zou het niet makkelijker zijn om de input te regelen met een inputmask (MaskedTextBox) zodat je alleen maar tekst of nummer kan ingeven? de uitleg kan dan via een error provider.

eric

hoe kan ik ervoor zorgen dat hij dat ook maximaal 31 kan zijn

[Bericht gewijzigd door dogbite op donderdag 4 februari 2021 12:11:43 (78%)

Sine

Moderator

De link met elektronica is wel heel ver te zoeken ...

Voor vragen over programmeertalen zijn er geschiktere fora dan deze.

Dit topic is gesloten