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
Borlander
martinrebmann
„VB - bei Eingabe einer "0" oder kleinerer Zahl soll msgBox komme“
Schau in der Dokumentation nach welches Ereignis beim Druck der Enter-Taste ausgelöst wird (ich vermute mal sowas wie OnKeyPress oder etwas ähnliches, als User der Borland-SDKs kann ich dazu leider nicht mehr sagen), im der zugewiesenen Ereignisbehandlungs prüfst Du dann ob der Wert &tl;=0 ist und gibst ggf. eine MsgBox aus...
Gruß
Borlander
T-Rex
martinrebmann
„VB - bei Eingabe einer "0" oder kleinerer Zahl soll msgBox komme“
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
