evitar digitar caracteres como , . : - ?¿=) et

Esta funcion esta diseñada para ser parte de un control personalizado
puedes adaptarla o crear tu NumericTextBox y agregarsela.

Private Sub NumericTextBox_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
Dim KeyAscii As Integer
KeyAscii = Asc(e.KeyChar)
Select Case KeyAscii
Case 48 To 57, 8, 13
'Todo OK, No hacer nada pues se tratan de las teclas 0-9,BackSpace y
Enter
Case 45
'Un numero solamente puede tener un Signo Negativo
If InStr(Me.Text, "-") <> 0 Then
KeyAscii = 0
End If
'El Signo negativo debe estar al inicio
If Me.SelectionStart <> 0 Then
KeyAscii = 0
End If
Case 46
'Solamente se acepta un punto decimal
If InStr(Me.Text, ".") <> 0 Then
KeyAscii = 0
End If
Case Else
'No se admiten otras teclas
KeyAscii = 0
End Select
If KeyAscii = 0 Then
e.Handled = True
Else
e.Handled = False
End If

End Sub

<Chevy74> escribió en el mensaje
news:%

Hola grupo,


tengo un textbox y quiero evitar que el usuario escriba caracteres como
puntos , comas, guines etc. Solo debe permitir números


Eusebio

Alex wrote:

If Not Char.IsNumber(e.KeyChar) Then
e.Handled = True
End If

Mejor aún

if not char.IsNumber(e.keyChar) and Not char.IsContrl(e.keyChar) then
e.handled=true
end if

así te permite borrar y desplazarse con las flechas