Ver Mensaje Individual
  #5 (permalink)  
Antiguo 28/08/2004, 15:05
Avatar de aavg
aavg
 
Fecha de Ingreso: abril-2002
Ubicación: Morelia México
Mensajes: 356
Antigüedad: 22 años
Puntos: 1
Jeje vaya respuesta la de arriba suena bastante bien pero el poder de las APIS de Windows es muy elevado a lo que Cacho_K nos pide, pero el Visual Basic es SENCILLO y tan sencillo es que aqui te pongo un ejemplo de como validar que un TextBox solamente reciba NUMEROS.

Suponiendo que el TextBox se llama TNumeros

'En el evento KeyPress esta la clave, aqui mando llamar un a funcion que yo escribi
'la funcion se llama Numeros
Private Sub TNumeros_KeyPress(KeyAscii As Integer)
KeyAscii = Numeros(KeyAscii)
End Sub

'Esta función solo copiala y pegala en tu codigo

Public Function Numeros(Tecla As Integer) As Integer
Dim strValido As String
'Esta es la cadena que contiene los caracteres aceptados en tu TextBox
'Asi que si en el número de telefono le quieres aceptar algun otro
'caracter lo puedes hacer tan solo con incluirlo en la cadena STRVALIDO
strValido = "0123456789"
If Tecla > 26 Then
If InStr(strValido, Chr(Tecla)) = 0 Then 'Aqui se checa si la tecla pulsada esta en la cadena de numeros si regresa 0 quiere decir que no fue un numero
Tecla = 0
End If
End If
Numeros = Tecla
End Function


Espero que te sirva, hasta pronto
__________________
Abraham Velasco
Usuario # 516 en los Foros del Web.
El hombre no vale por lo que sabe, sino por lo que transmite
C'est parce qu'il y a un Dieu que nous sommes libres