✔ Textbox prüfen

[CoderX]

Gute Nacht allerseits ,

also habe folgendes Problem, ich möchte das man in einem Textfeld nur Zahlen eingeben kann jedoch keine Buchstaben.

Ist das irgendwie möglich?
Und ja ich habe die Boardsuche genutzt, bloß nichts passendes gefunden.

Danke für eure Hilfe

 

[Da Hacker]

Hallo CoderX,

dafür kenne ich zwei Möglichkeiten.
Zum einen:

Private Sub txtSekunden_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8, 13
Case Else
KeyAscii = 0
End Select
End Sub

Abfrage durch KeyCodes. Nachteil: Es ist nicht möglich, ein Komma einzugeben. Vorteil: Man kann das aber ändern .
Das könnte dann also so wie in diesem Programm aussehen. (Rechtsklick - Ziel speichern unter...)
Zum anderen:

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
MsgBox "keine Nummer"
Else
MsgBox "Nummer"
End If
End Sub

Klappert die Zeichen in Text1 ab, ob Nummern dabei sind.
Meiner Meinung nach, etwas umständlich zu benutzen und sehr fehlerhaft. Kommt aber auch darauf an, wie gut man es codet.

Ich hoffe, ich konnte helfen.

Ciao:
Da' Hacker

 

[CoderX]

Danke für deine Hilfe, hat mir sehr geholfen.

 

[CoderX]

Sorry für Doppelbeitrag,

so da hätte ich aber noch eine Frage:

Habe immer noch eine Textbox und einen Button, so und ich versuche schon die ganze Zeit per: if then Anweisung was hinzubekommen leider ohne Erfolg,

Also ich möchte wenn man in der Textbox z.B 20 Eingibt, das er dann auf C:\ automatisch 20 Ordner erstellt, sobald man auf den Button klickt, wie die Ordner dann heißen ist mir egal bisher hab ich es so, bloß diese Anweisung hat keinen Einfluss auf die Texbox:

For i = 1 To 20
mkdir "C:\" & i
Next i

 

[Julian Maicher]

mhmhm, wo ist das Problem?

If isNumeric(Text1.Text) Then
  For i = 1 To CInt(Text1.Text)
    mkdir "C:\" & i
  Next i
End If

 

[CoderX]

So danke für eure Hilfe,

jetzt hat sich das Problem gelöst