Hallo!
Für das Abschlussprojekt unserer Schule müssen wir ein Verwaltungsprogramm schreiben für eine imaginäre Firma.
Um das Programm zu verbessern dachten wir an eine Eingabebeschränkung der diversen Textboxen.
Wir möchten zum Beispiel bei der Form 'Artikel hinzufügen', bei der Textbox 'Mindestbestand' nur Ziffern erlauben.
Wir dachten zuerst an die Funktion IsNumeric, allerdings kamen dabei einige Fehler auf, die ich weiter unten beschreibe.
Der Code bisher für die oben erwähnte Textbox sieht im Moment so aus:
Ich wäre für jede Hilfe sehr dankbar
gruß
Für das Abschlussprojekt unserer Schule müssen wir ein Verwaltungsprogramm schreiben für eine imaginäre Firma.
Um das Programm zu verbessern dachten wir an eine Eingabebeschränkung der diversen Textboxen.
Wir möchten zum Beispiel bei der Form 'Artikel hinzufügen', bei der Textbox 'Mindestbestand' nur Ziffern erlauben.
Wir dachten zuerst an die Funktion IsNumeric, allerdings kamen dabei einige Fehler auf, die ich weiter unten beschreibe.
Der Code bisher für die oben erwähnte Textbox sieht im Moment so aus:
Jetzt sind dabei leider einige Fehler aufgetreten: Zunächst wird wirklich jede Eingabe, die nicht eine Zahl ist als falsche Eingabe gewertet (Spacetaste, Löschen etc.) und wir werden deshalb mit Messageboxen zugebombt. Außerdem wird manchmal eine falsche Eingabe nicht als solche erkannt, wenn davor richtige Eingaben vorhanden sind. Um die falsche Eingabe danach zu löschen, haben wir uns überlegt, den tbxmindestbestand.text mit = " " zu deklarieren, die Textbox ist danach auch tatsächlich leer, allerdings kommt dann wieder eine Textbox, die die falsche Eingabe Meldung anzeigt.Private Sub TBXmindestbestand_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBXmindestbestand.TextChanged
If Not (IsNumeric(TBXmindestbestand.Text)) Then
MsgBox("Eingabe muss numerisch sein!", _
MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
End If
End Sub
Ich wäre für jede Hilfe sehr dankbar
gruß