Limitar ingreso a un solo numero

[tazzmk]

Hola a todos
yo tengo algo alomejor te sirve

1.- como se puede limitar el ingreso a un Edit con un solo caracter o numero

crear un formulario, añadir un Edit y escribir el siguiente código:

Sub edit1_Keypress(KeyAscii As Integer)
    If KeyAscii <> Asc("9") Then
    'KeyAscii = 8 es el retroceso o BackSpace
       If KeyAscii <> 8 Then
           KeyAscii = 0
       End If
    End If
End Sub

Nuevo:

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

2.- como puedo hacer un salto, Luego que se ingresa ese unico caracter al Edit1 salta hacia el Edit2

Pasar de un edit a otro al pulsar Enter:

Insertar dos edit y escribir el siguiente código:

Private Sub edi1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Private Sub edi2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

eso seria