Totalt hjärnsläpp, hur f-n skriver man in att man bara skall kunna skriva siffor i en textbox? Tacksam för svar....."trött man som har fått hjärnsläpp"

det här funkar:
<code>
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
</code>

Det kanske finns nåt bättre sätt, men det här var det bästa jag kunde komma på just för tillfället.

Jag brukar skriva så här om jag bara vill att man ska kunna skriva siffror och space samt den knapp man suddar med(kom inte på vad den heter, lite trött just nu det är det ända jag kan skylla på).

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Or KeyAscii = 32 Then
Exit Sub
Else
KeyAscii = 0
End If
End sub

Eller så kan man skriva så här om man istället vill använda värdena på ascii tecknen:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 32 Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

//Petter

Hej
>Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 32 Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

Undrar vad Exit Sub gör för nytta här ??

Undrar nyfiken
Sven

> Undrar vad Exit Sub gör för nytta här ??

Sven, du har rätt Exit sub behövs inte för nu när jag testade källkoden så märkte jag att det funkar utan, men jag skrev detta utan att sitta i VB så jag visste inte exakt om det skulle bli error om man inte hade det där. För det funkar både om man har Exit sub där eller inte har det där.

//Petter