RegExp, kun tal

Dette stykke kode vil kun acceptere tal i text1.

Private Sub Text1_Change()
Dim intLength As Integer
If Not IsNumeric(Text1.Text) Then
MsgBox "Du må kun indtaste tal!"
End If
End Sub

Jeg skal bruge Regular Expressions til at fjerne andet end tal... eller evt. sætte et 1 tal i stedet for.

Jeg har fundet noget om det her, men kan ikke få det til at virke!
http://msdn.microsoft.com/library/periodic/period99/VB99I1.HTM

Du skal starte med sætte formens KeyPreview property til True! Dette gør at alt hvad der indtastes i kontroller på formen bliver smidt gennem formens KeyPress, KeyUp osv.

Herefter skrives følgende kode i formens KeyPress event metode!

Private Sub Form_KeyPress(KeyAscii As Integer)
  If (Not IsNumeric(Chr(KeyAscii))) Then
    'Ignore keyress -> Is not send to textbox
    KeyAscii = 0
  End If
End Sub

Should do the trick!

//Nolle_K

Du er nødt til at teste for backspace og i den dur hvis det skal være muligt at slette noget man har skrevet da det ovenstående eksempel KUN godtager TAL! Og KUN TAL!

//Nolle_K

nolle_k > Koden ser ud til at ville virke fint. Men hvordan får jeg slet til at virke (den omvendte af Delete, alså den hvor man står efter ordet og så sletter man én tilbage)

Desuden skal jeg også have TAB til at virke...

Jeg har desuden brugt koden direkte inde i Text1

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If (Not IsNumeric(Chr(KeyAscii))) Then
    'Ignore keyress -> Is not send to textbox
    KeyAscii = 0
  End If
End Sub

Mysteriet er løst...

Takker :o)

Backspace = 8 !

Velbekomme du!

Smart nok at smide koden ind i Textfeltet det tænkte jeg ikke lige på! Men det er smart med KeyPreview propertyen i formen hvis man vil have alle bogstaver der vises på en form store eller lign!