Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/06/2011, 09:44
Avatar de psalm23
psalm23
 
Fecha de Ingreso: mayo-2011
Mensajes: 36
Antigüedad: 13 años, 7 meses
Puntos: 1
problema con beep

hola amigos tengo un problema aqui esta el codigo


Código:
Private Sub numvertice_KeyPress(KeyAscii As Integer)

If InStr("0123456789" & Chr(8) & Chr(13), Chr(KeyAscii)) = 0 Then KeyAscii = 0
If KeyAscii = 0 Then Beep
If KeyAscii = 13 Then
vertice.SetFocus
End If
End Sub
el codigo es para que un textbox solo acepte num enteros y si se preciona cualquier otra tecla mande un beep

lo que quiero es que al presionar enter no ocurra el beep ya que el codigo como esta hace que eso pase

ojala me puedan ayudar un saludo