Programmieren - alles kontrollieren 4.944 Themen, 20.734 Beiträge

VB - bei Eingabe einer "0" oder kleinerer Zahl soll msgBox komme

martinrebmann / 2 Antworten / Flachansicht Nickles

Hi,


Ich mache gerade ein kleine Projekt um das Progrmann etwas kenn zu lernen.


Ich habe 2 Text eingabe Felder, wenn ich eine Zahl 0 oder eine kleiner Eingebe soll eine msgBox erscheinen, wenn ich nach eingabe der Zahl auf Enter Drücke. (Bei Enter springt der Focus immer eins Weiter).


Könnt ih mir dabei helfen ??


Vielen Dank


Martin Rebmann

bei Antwort benachrichtigen
T-Rex martinrebmann „VB - bei Eingabe einer "0" oder kleinerer Zahl soll msgBox komme“
Optionen

Ist aber noch ausbaufähig:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
With Text1
If IsNumeric(.Text) Then
If Val(.Text) Call MsgBox("Zahl ist nicht größer als 0")
End If
Else
Call MsgBox("Das ist keine Zahl")
KeyAscii = 0
End If
End With
ElseIf (KeyAscii = 44) Then
KeyAscii = 46
End If
End Sub

 GrüßeT-Rex 
bei Antwort benachrichtigen