Numbers Only and - Only

Hi All

I am try to only type numbers in a textbox and stop letters from going into textbox which works fine, But I also want ------- to appear in textbox I looked up on the internet and should be vbKeySubtract so I added to one of the case lines but don't work just beeps

Can someone please help me out with this thanks

http://msdn.microsoft.com/en-us/libr...(v=vs.60).aspx

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Accepts only numeric input

Select Case KeyAscii

Case vbKey0 To vbKey9

Case vbKeyBack, vbKeyClear, vbKeyDelete, vbKeySubtract

Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab

Case Else

KeyAscii = 0

Beep

End Select

End Sub

Kind Regards

Steve

The Ascii value for the minus sign is 45.

put it on keypress event

Const key = "1234567890"

If KeyAscii <> 0 Then

If InStr(key, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If

End If

Per Markt....example

Code:

---

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
  Case vbKey0 To vbKey9
 
  Case 45
 
  Case vbKeyBack, vbKeyClear, vbKeyDelete      ', vbKeySubtract---remove
 
  Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab

  Case Else
  KeyAscii = 0
  Beep
End Select
End Sub

---

EDIT: FYI, vbKeySubtract is applicable in either KeyDown or KeyUp events but not
on a KeyPress event.

..... and never forget, that in cases like this, a user still can copy&paste whatever characters he wishes into the Textbox......

How about trapping the CTRL+V-Combination?

@zoni
How do you trap ctrl v

@Samoscarbrown

I will give that a try later thanks

http://social.msdn.microsoft.com/For...-5fb51cb546cd/

Take a good look at this submission by MartiLiss.