Går det att få att bara tillåta numeriska värden i en InputBox

MVH

indurain

Hej
Tycker att InputBoxen är ganska värdelös.

Förslag att du designar en egen box med Frame1
och en TextBox som du lägger in i Framen

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
'8 backspace 13 Enter 44 komma 45 minustecken 46 punkt
'48 till 57 0 - 9
Case 8, 13, 44, 45, 46, 48 To 57
'Om du alltid vill ha punkt som decimalavskiljare
'annars tvärtom
If KeyAscii = 44 Then KeyAscii = 46
Case Else
KeyAscii = 0
End Select
End Sub

mvh
Sven