[VB] Zahlen per Tastatur eingeben

[undertaker1988]

Wie kann man mit der Tastatur Zahlen in eine Textbox eingeben? aber nur Zahlen man darf keine buchstaben?

2. Wie kann ich eine fehlermeldung machen wenn man 7 / 0 rechnet? mein selbst geprogter taschenrechner gibt dann immer den geist auf.

If txt_rechenzeichen.Text = "/" and txt_ergebnis.Text = "0" Then
Meldung = MsgBox("durch 0 kann man nicht teilen.", 43, "Eingabe-Fehler")
End if

aber der Taschenrechner sollte dennoch diese Rechnung durchführen

If txt_rechenzeichen.Text = "/" Then
txt_ergebnis.Text = Zahl1 / Zahl2
End IF

 

[NoWayOut]

1. Im KeyDown Handler versuchs mal mit

if keyascii < 48 or keyascii > 57 then keyascii=0

2. Verstehe ich nicht ganz, durch Null kann man nicht teilen, also warum soll dann nochwas ausgeführt werden?

if text_rechenzeichen="/" and zahl2=0 then
   msgbox "Null iss nich"
   exit sub
end if