Tema Anterior Siguiente Tema

Condiciones en Visual Basic

Cerrado
Mario - 19 nov 2011 a las 20:02
dark_zen Mensajes enviados 152 Fecha de inscripción lunes, 6 de septiembre de 2010 Estatus Miembro Última intervención martes, 3 de enero de 2012 - 29 nov 2011 a las 20:14
Hola,

Estoy haciendo un programa de almacenamiento de datos en VB con el almacenamiento en Microsoft Access, y quiero ponerle condiciones, por ejemplo que en un texbox de almacenamiento solo pueda meter números hasta el 14, a mi se me ocurrio declararlo asi:

If Text1 < "14" Then
Text1.ForeColor = vbBlack
Else
Text1.ForeColor = vbREd
End If

pero no me funciona, me pone rojos los valores dentro de el text. Me gustaría saber si existe otra forma de declararlo??


Gracias

2 respuestas

Respuesta 1 / 2
dark_zen Mensajes enviados 152 Fecha de inscripción lunes, 6 de septiembre de 2010 Estatus Miembro Última intervención martes, 3 de enero de 2012 107
21 nov 2011 a las 15:31
'Para visual basic 6.0

If IsNumeric(Text1.Text) Then
If CInt(Text1.Text) < 14 Then
Text1.ForeColor = vbBlack
Else
Text1.ForeColor = vbRed
Text1.SetFocus

'Text1.SelStart = 0
'Text1.SelLength = Len(Text1.Text)
End If
End If
0
Respuesta 2 / 2
Linncon
22 nov 2011 a las 16:38
Gracias es lo que necesitaba. El otro código se lo agregue a un boton que me valide todo así controlo mas la información
0
dark_zen Mensajes enviados 152 Fecha de inscripción lunes, 6 de septiembre de 2010 Estatus Miembro Última intervención martes, 3 de enero de 2012 107
29 nov 2011 a las 19:49
bueno lo mas comun es agregar un "Asterisco" de color ROJO alado del campo que contiene el error...



si as notado en los FORMULARIOS ONLINE.
0
dark_zen Mensajes enviados 152 Fecha de inscripción lunes, 6 de septiembre de 2010 Estatus Miembro Última intervención martes, 3 de enero de 2012 107
29 nov 2011 a las 19:50
antes no tenia 6.0 pero ahora ya tengo instaldo el 6.0 y el 2010 asi que ya puedo atender preguntas sobre esa plataforma....
0
Mario
29 nov 2011 a las 19:59
Gracias amigo me ha servido de mucho tambien lo de agregarlo al boton. oye dark_zen como le dices a un textbox que solo le pueden entrar estos caracteres 1,2,3,4,5,96,97,98,99 y no te deje pasar al siguiente textbox. Solo esos como su valor lo indica ni uno mas

Gracias
0
dark_zen Mensajes enviados 152 Fecha de inscripción lunes, 6 de septiembre de 2010 Estatus Miembro Última intervención martes, 3 de enero de 2012 107
29 nov 2011 a las 20:13
ahi muchas maneras... para ello podrias usar ...hummm
algo realmente simple como un

private function valirar_rangos(byval numero as integer) as boolean
select case numero
case 1 to 5
return true
case 96 to 99
return true
else case
return false
end select
end function


y en tu textbox o lo que sea

if valirar_rangos(textbox.text)=false then
msgbox "valor no admitido"
else
' inicia procedemiento sie s que lo ahi!
end if
0
dark_zen Mensajes enviados 152 Fecha de inscripción lunes, 6 de septiembre de 2010 Estatus Miembro Última intervención martes, 3 de enero de 2012 107
29 nov 2011 a las 20:14
disculpa falto ...
if valirar_rangos(cint(textbox.text))=false then....
0

Discusiones similares

¿Cómo usar códigos de Gameshark en VisualBoyAdvance?
Nykel -
miguel -

4 respuestas
Como multiplicar dos celdas a partir de una condición
nanda042 -
eudogonzalez -

2 respuestas