Ich will ein Script schreiben was mit die Eingabe prüft! Und zwar sollen nur Ganzzahlen und eine nachkomma stelle 5 erlaubt sein.. wie löse ich das am besten?

Code :

1 2 3 4 5 6 7 8 9 10 11

private sub cmdCheck_Click()   dim Zahl as single     Zahl=txtZahl.text     if fix(Zahl)=Zahl or right(cstr(Zahl),2)=".5"then     'die Zahl ist gültig   else    'die Zahl ist ungültig   end if end sub

Bin mir aber nicht sicher, konnte es nicht testen, weil ich hier kein VB6 habe.

Zitat von Bratkartoffel

Code :

1 2 3 4 5 6 7 8 9 10 11

private sub cmdCheck_Click()   dim Zahl as single     Zahl=txtZahl.text     if fix(Zahl)=Zahl or right(cstr(Zahl),2)=".5"then     'die Zahl ist gültig   else    'die Zahl ist ungültig   end if end sub

Bin mir aber nicht sicher, konnte es nicht testen, weil ich hier kein VB6 habe.

Woher nimmst du die txtZahl.text ? Das soll doch meine zahl sein die ich überprüfen will oder nicht ? Welches objekt ist den das text?

ALLES BESTENS HABE ES ES JETZT HINGEKRIEGT DANKE!