Visual Basic - texto solo numerico

Hola

cual es el código para que el usuario solo pueda insertar números mientras escribe?

gracias

Con el control Mask Edit se soluciona sin escribir código.

Como utilizo Mask Edit?

gracias

Lo primero es agregar el componente al proyecto, para eso pincha en el menu "Proyecto" y después "Componentes...", busca el que se llama Microsoft Mask Edit control, seleccionalo y pincha aceptar.

Una vez agregado ya lo puedes usar como cualquier otro control. Verás que es parecido a un textBox, pero tiene la propiedad Mask , que sirve para especificar la más cara de entrada.

La máscara es una cadena de texto donde el carácter "#" represinta una posición para un carácter numérico. De modo que si quieres que se puedan escribir sólo números pon una máscara hecha con el carácter "#".

Si no quieres usar el Mask Edit pon la propiedad KeyPreview del formulario a True e inserta este código:

Private Sub Form_KeyPress(KeyAscii As Integer)
If Me.ActiveControl Is Text1 Then
If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And (KeyAscii <> 8) Then KeyAscii = 0
End If
End Sub

Utiliza la siguientes líneas de código en el texto que quieres delimitar a numérico dentro del evento Key_Press
If (KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii = 8) Then
Else
KeyAscii = 0
End If