Hola a todos los que hacen posible este foro.


Necesito saber como puedo hacerle para que cuando este mi programa en ejecucion el usuariosolo pueda escribir caracteres numericos en un textbox sin que le permita el programa escribir letras.


Gracias por su apoyo.


¡¡ Emocion por existir !!

En el evento OnKeyPress del Textbox colocas:


Select Case Keyascii
Case 8 'BackSpace
Keyascii = Keyascii
Case 13 'Enter
Keyascii = Keyascii
Case 27 'Escape
Keyascii = Keyascii
Case 46 'Punto
Keyascii = Keyascii
Case 48 to 57 'Numeros
Keyascii = Keyascii
Case Else
Keyascii = 0
End Select


-------------------


Y en el evento OnLostFocus pones esto otro para que te de un formato numerico con 2 decimales


formatnumber(Text1.Text,2)


Edited by: kortiz

En el evento KeyPress del TextBox:


If InStr("0123456789" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0


(Sólo admite números y la tecla de retroceso)



Saludos

El de Anibal es perfecto,otra opciónes pasar a cero cuando pulsan una tecla no válida:


Private Sub Text1_Change()
If IsNumeric(Text1) = False Then Text1 = 0
End Sub

Otra alternativa

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii <> 13 Then
 If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

Esa tambien Zitro, pero mejor en el "change" , por si "pegan" en lugar de apretar una tecla "key press"

Mas facil aun... en la propiedad KeyPress


Private Sub txtCuenta_KeyPress(KeyAscii As Integer)
If ((KeyAscii >= 48) And (KeyAscii <= 57) Or KeyAscii = 8) Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

Es buena tambien aegodoy., pero si copias o cortas texto y lo pegas en el texboxte da error (si hay una operación matamática de por medio). Para mi hay que usar el evento "change".