Eingabeprüfung
30.04.2008 21:22:07
Tobias
ich drehe mich bei einem Problem im Kreis und hoffe Ihr könnt mir helfen...
In einem Textfeld hat der Benutzer die Möglicheit einen Zahlenwert einzugeben. Bei jedem Key-Up event geprüft werden, ob es sich um eine Zahl handelt und, ob diese in einem bestimmten Bereich liegt (z.B. -90 bis +90). Den Key-Up event benötige ich, da ich damit noch andere Kalkulationen steuere.
Momentan verwirkliche ich die Prüfung auf Zahlenwerte mit der ISNumeric-Funktion. Leider meldet diese mir auch einen Fehler, wenn ich das Minuszeichen (-) eingebe...
Hier mal mein momentaner Code. Leider funktioniert beides, die Zahlenprüfung sowie die Eingabewertüberprüfung nicht so richtig:
Private Sub Eingabefeld_KeyUp(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles TGT_Inclination_FillIn_DEG.KeyUp
If Eingabefeld.Focused Then
Select Case Eingabefeld.Text
Case -90 To 90
'If IsNumeric(TGT_Inclination_FillIn_DEG.Text) Then
'Else
Case Else
Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "Incorrect Input Value." & vbNewLine & "Only values from -90 to +90 _
are possible."
style = MsgBoxStyle.Information
title = "Message"
response = MsgBox(msg, style, title)
Eingabefeld.Text = "0"
End Select
End If
End Sub
Ich hoffe Ihr könnt mir helfen!
Gruß, Tobias