 Autor
|
Tema: Comprobar rango de números (Leído 3,201 veces)
|
rapbyone
 Desconectado
Mensajes: 173
|
Estimados, acudo a ustedes una ves más, el tema es el siguiente tengo un label que tendrá valores del 50 al 99 y quiero cambiar el color del fondo segun el rango en el que se encuentre ese valor.
Algo así
If label1.caption = 10 al 20 then
Label1.backcolor = &FFFFFF
end if
If label1.caption = 21 al 30 then
Label1.backcolor = &000000
end if
Pero no logro dar con el codigo para comprobar por rangos.
Espero su ayuda amigos
Muchas gracias
Enviado desde mi LG-D805 mediante Tapatalk
|
|
|
|
|
En línea
|
|
|
|
|
Shell Root
|
Private Sub CommandButton1_Click() If CInt(Me.Label1.Caption) >= 50 And CInt(Me.Label1.Caption) <= 60 Then Me.Label1.BackColor = RGB(255, 255, 0) End If End Sub
|
|
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
rapbyone
Desconectado
Mensajes: 173
|
Private Sub CommandButton1_Click() If CInt(Me.Label1.Caption) >= 50 And CInt(Me.Label1.Caption) <= 60 Then Me.Label1.BackColor = RGB(255, 255, 0) End If End Sub
estimado, muchas gracias por tu código, pero me da el error de "No coinciden los tipos"
|
|
|
|
|
En línea
|
|
|
|
HdM
Desconectado
Mensajes: 1.674
|
Comprueba 1º si el valor es correcto o no. If Not IsNumeric(Label1) Then Exit Sub End If Select Case CInt(Label1) Case 10 To 20 Label1.BackColor = &HFFFFFF Case 21 To 30 Label1.BackColor = &O0 'Case ... 'Case Else End Select
|
|
|
|
|
En línea
|
- Nice to see you again - |
|
|
rapbyone
Desconectado
Mensajes: 173
|
Gracias por la respuesta amigo, dejo el código con el que logré hacerlo por si a alguien más le funciona For i = 75 To 79 If TECH.Text = Val(i) Then TECH.BackColor = RGB(183, 255, 0) End If Next
Saludos |
|
|
|
|
En línea
|
|
|
|
pkj
Desconectado
Mensajes: 59
|
Para eso no hacen falta bucles:
If val(TECH.Text) > 74 and val(TECH.Text) < 80 Then TECH.BackColor = RGB(183, 255, 0)
Saludos
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
capicua de un rango de numeros
Programación C/C++
|
ryan parker
|
4
|
9,003
|
4 Junio 2011, 18:48 pm
por ryan parker
|
|
|
|
Limitar rango de numeros en funcion
Programación C/C++
|
luis456
|
1
|
3,331
|
15 Abril 2013, 20:58 pm
por leosansan
|
|
|
|
Como limitar rango de numeros en un texbox
« 1 2 »
Programación Visual Basic
|
luis456
|
14
|
6,792
|
23 Septiembre 2013, 16:01 pm
por luis456
|
|
|
|
[PYTHON]¿Cómo guardar datos de un rango de números que genero con un While?
Scripting
|
4T1L4
|
2
|
3,245
|
24 Octubre 2016, 15:23 pm
por 4T1L4
|
|
|
|
Convertir rango de números en binario con signo magnitud
Programación C/C++
|
djmorales
|
1
|
2,952
|
5 Junio 2017, 19:59 pm
por MAFUS
|
 |
