Hur gör jag för att det enbart ska gå att skriva siffror (0-9) i en Textbox
Och om man försöker skriva något annat så får man ett felmeddelande

Sören

Hej Ständigt denna fråga,lika gammal som detta Forum
Tror att det är 50 :e gången den besvaras. Använd Pelles sökmotor.
Men Ok en gång till.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 13,44,45,46,48 To 57
Case Else
KeyAscii = 0
MsgBox "Endast siffror tillåtna"
End Select

'Kommer att tillåta BackSpace Enter och minus punkt komma och siffror
Jag slog sökning på orden "bara siffror" det dök upp en bunt av svar
'/Sven

Dumt av mig
Men tack i alla fall...

Hej, har ett förslag:

Dim Svar As VbMsgBoxResult
Dim Noll As VbMsgBoxStyle
If IsNumeric(txtNumEtt.Text) = True Then
V = CDbl(txtNumEtt.Text)
Else
Svar = MsgBox("Du måste skriva in en siffra", vbOKOnly)
End If
If IsNumeric(txtNumTvå.Text) = True Then
M = CDbl(txtNumTvå.Text)
Else
Svar = MsgBox("Du måste skriva in en siffra", vbOKOnly)
End If
If V <> 0 Then
H = M / Sin(V * PI / 180)
Else
Noll = MsgBox("Du kan inte dividera med noll", vbOKOnly)
End If
lblTotal = CCur(H)

mvh
Ivan