VB 6:Falscheingabe in InputBox verhindern

Hallo,

wenn ich in einer Inputbox unter VB6 keine Eingaben oder Buchstaben eingebe,erhalte ich eine Fehlermeldung.

Wie kann ich bitte sicherstellen,dass nur Zahlen eingegeben werden ?


Danke

 

Wenn es wirklich um eine Inputbox geht dann mach es so:

Code:

Sub zahlen()
Zahl = InputBox("Bitte eine Zahl eingeben")
If IsNumeric(Zahl) = False Then
MsgBox "Bitte eine Zahl eingeben"
End If
End Sub

Wenn es jedoch eine Textbox ist , so musst du das ganze schon etwas anders lösen und das ganze auf nen KeyUP Event der Textbox legen.

Also z.B. so

Code:

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If IsNumeric(Text1.Text) = False Then
Text1.Text = ""
MsgBox "Bitte nur Zahlen eingeben !"
End If
End Sub

 

Hallo,

wenn ich "IsNumeric" verwende,wird eine Null als Falscheingabe aufgefasst.

Läßt sich das verhindern ?

 

Ja und ich füge noch hinzu

Sub zahlen()
do until IsNumeric(Zahl)
Zahl = InputBox("Bitte eine Zahl eingeben")
If IsNumeric(Zahl) = False Then
MsgBox "Bitte eine Zahl eingeben"
End If
loop
End Sub