Comprobar rango de números

[rapbyone]

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

[Shell Root]

Código (vb) [Seleccionar] Expandir

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

[rapbyone]

Código (vb) [Seleccionar] Expandir

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"

[HdM]

Comprueba 1º si el valor es correcto o no.

Código (vb) [Seleccionar] Expandir


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

[rapbyone]

Gracias por la respuesta amigo, dejo el código con el que logré hacerlo por si a alguien más le funciona

Código (vb) [Seleccionar] Expandir

For i = 75 To 79
If TECH.Text = Val(i) Then
TECH.BackColor = RGB(183, 255, 0)
End If
Next

Saludos

[pkj]

Para eso no hacen falta bucles:

If val(TECH.Text) > 74 and val(TECH.Text) < 80 Then TECH.BackColor = RGB(183, 255, 0)

Saludos