Visual Basic para Aplicaciones - KeyPress

Life is soft - evento anual de software empresarial
 
Vista:

KeyPress

Publicado por Alexandre BRASIL (28 intervenciones) el 05/02/2002 17:00:36
Prezados Foristas:

El mi textbox no puede recibir letras y/o simbolos. Solo puede recibir números, del contrario el sistema causará un error.
¿Cúal es el código necesário para yo programar el evento Keypress, donde solo sea posíble digitar números?

Desde ya agradezco a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:KeyPress

Publicado por Paco (1 intervención) el 05/02/2002 19:15:53
Con el código siguiente, no podrás introducir letras ni caracteres que no sean números. Cuando pulses la tecla intro, realizará una operación que tú indiques.

Private Sub text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8
Case 9
Case 10
Case 13
If text1.Text = "" Then
text1.SetFocus
Else
'proceso a seguir una vez pulsado intro
End If
Case 1 To 47
KeyAscii = 0
Case 58 To 255
KeyAscii = 0
End Select
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:KeyPress

Publicado por jlcastro (23 intervenciones) el 06/02/2002 16:56:27
(Con este codigo solamente se admiten numeros y comas)

If KeyAscii <> 44 And (IsNumeric(Chr(KeyAscii))) = False And KeyAscii <> 8 Then
KeyAscii = 0 ' solo admite numeros y coma
Beep 'Sonido de error de entradaEnd If
End If

======================================================
(Con este codigo solamente se admiten numeros)

If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0 ' solo admite numeros
Beep 'Sonido de error de entrada
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar