ESTOY HACIENDO UN PROGRAMA EN VISUAL BASIC 6
Y TIENE QUE TENER LAS SIGUIENTES VALIDACIONES.
- INGRESAR SOLO LETRAS EN UNA TEXTBOX
- INGRESAR UN NUMERO ENTRE 9 Y 12 SOLAMENTE.
- NO PODER ESCRIBIR NADA EN UN COMBOBOX
QUE SOLO ELIJA UNA OPCION QUE SE DESPLEGA.
Y POR ULTIMO VALIDAR UN R.U.T
.SI ALGUIEN SABE COMO SE LO AGRADECERIA MUCHO
YA QUE SOY UN NOVATO EN ESTO.
- OTRA COSA ,SI SE PUEDE PONER UN GIF ANIMADO
EN UN FORMULARIO. Y COMO LO AGO.
MI EMAIL ; TIKAL27@HOTMAIL.COM
VALIDACIONES DE DATOS EN VISUAL BASIC!
Moderador: Moderadores
Busca en un libro de programación que indique como hacer algo como eso, o en los buscadores para poder hacerlo que puede ser http://www.dobleu.com/computacion/tutorialymanuales
Busca en un libro de programación que indique como hacer algo como eso, o en los buscadores para poder hacerlo que puede ser http://www.dobleu.com/computacion/tutorialymanuales
para validar que el contenido de una caja de texto sea solo letras pregunta con un si condicional:
if IsNumeric(text1.text)= true then
sentencia
else
sentencia
end if.
para el caso del combo box, llenalo en la propiedad list del cuadro de propiedades con los valores que deseas mostrar y listo, al compilar el usuario no podra modificar ni añadir otros valores.
Cualquier otra cosa si quieres me escribes a jonas197@hotmail.com y si lo se con gusto te ayudo
if IsNumeric(text1.text)= true then
sentencia
else
sentencia
end if.
para el caso del combo box, llenalo en la propiedad list del cuadro de propiedades con los valores que deseas mostrar y listo, al compilar el usuario no podra modificar ni añadir otros valores.
Cualquier otra cosa si quieres me escribes a jonas197@hotmail.com y si lo se con gusto te ayudo
validaciones en visual basic
para poder ingresar solo letras te paso la siguiente funcion que la tienes que usar en el evento keypress y asignarle el valor ascii
Public Function SoloLetras(x As Integer) As Integer
If (x < 64 Or x > 90) And x <> 32 And x <> 8 Then
SoloLetras = 0
Else
SoloLetras = x
End If
End Function
entonces en el evento keypress te quedaria algo asi
Private Sub txtApellido_KeyPress(KeyAscii As Integer)
KeyAscii = SoloMayusculas(KeyAscii)
End Sub
para los numeros podes utilizar la siguiente funcion (aca valida del 0 al 9) modificala a tu gusto( y hacer lo mismo en el keypress
Public Function SoloNumeros(x As Integer) As Integer
'devuelve solo numeros y la tecla de retroceso
If (x < 48 Or x > 57) And x <> 8 Then
SoloNumeros = 0
Else
SoloNumeros = x
End If
End Function
para que el combo no pueda ser modificaco una vez que le seteaste los valores, tenes que modificarle la popriedad locked a true y ni mandrake lo va a poder modificar
Public Function SoloLetras(x As Integer) As Integer
If (x < 64 Or x > 90) And x <> 32 And x <> 8 Then
SoloLetras = 0
Else
SoloLetras = x
End If
End Function
entonces en el evento keypress te quedaria algo asi
Private Sub txtApellido_KeyPress(KeyAscii As Integer)
KeyAscii = SoloMayusculas(KeyAscii)
End Sub
para los numeros podes utilizar la siguiente funcion (aca valida del 0 al 9) modificala a tu gusto( y hacer lo mismo en el keypress
Public Function SoloNumeros(x As Integer) As Integer
'devuelve solo numeros y la tecla de retroceso
If (x < 48 Or x > 57) And x <> 8 Then
SoloNumeros = 0
Else
SoloNumeros = x
End If
End Function
para que el combo no pueda ser modificaco una vez que le seteaste los valores, tenes que modificarle la popriedad locked a true y ni mandrake lo va a poder modificar