Numbers Only and - Only

[sbarber007]

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

[MarkT]

The Ascii value for the minus sign is 45.

[morbid.ivan]

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

[SamOscarBrown]

Per Markt....example

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.

[Zvoni]

..... 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?

[sbarber007]

@zoni
How do you trap ctrl v

@Samoscarbrown

I will give that a try later thanks

[Zvoni]

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

[RhinoBull]

Take a good look at this submission by MartiLiss.