Gültige Zahl

[Whiskey]

Hallo,
wie schaffe ich es das bei einem Taschenrechner nicht immer abgebrochen wird, wenn man einen Buchstaben eingibt, oder aber das Feld leer gelassen wird?
Greetz
Whiskey

[pate33]

mach einfach ne fehlerabfrage rein...

alles was zwischen ascii 48 (==0) und 57 (==9) liegt, wird ignoriert, bzw. ein fehler angezeigt... ;)

bei vb gibt es glaub auch die moeglichkeit, das feld so zu definieren, dass man nur zahlen eingeben kann.. bin mir aber net 100pro sicher...

[gencha]

wie wärs mit


If Not IsNumeric(Text1.text) Or Text1.text = vbNullString Then ...

[snobordo]

Ich würds so probieren.

If Not IsNumeric(Text1.Text) Or Text1.Text = vbNullString Then Text1.Text = Left(Text1.Text, (Len(Text1.Text)-1))

[cYrus]

Original von snobordo
Ich würds so probieren.

ich würds so nicht probieren ;)

sondern so:

If Not IsNumeric(Text1.Text) Or Text1.Text = vbNullString Then
´hier kommt das rein, was du zum ´rechnen´ brauchst..
else
Text1.Text = Mid$(text1.text,2)
end if

so long
cYrus

[snobordo]

Ich wollte mit meinem code erst garkeine nichtnummerischen eingaben mehr akzetieren, aber hab selber gemerkt, dass der code schwachsinn war.

Mit diesem Code kann man garantiert nur nummern ins textfeld eintragen:


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii = 8 Then Exit Sub
KeyAscii = 0
End If
End Sub

[USSEraser]

Ich hab mal gesehen das man per API dem Textfeld eine message senden kann das es von alleine nur noch Zahlen akzeptiert.

Hab aber keine Ahnung mehr wo. :rolleyes: