Ir para o conteúdo
ber0x88

[vb 6.0] intervalos com select case

Mensagens Recomendadas

ber0x88    0
ber0x88

Boas, alguém sabe como definir intervalos com a select case?!?!

estou como seguinte código:

 Select Case dblTotal
    
    Case Is < 18, 5
        lbl2.Visible = True
    Case Is > 18, 5, Is < 24, 9
        lbl3.Visible = True
    Case Is > 25, Is < 29, 9
        lbl4.Visible = True
    Case Is > 30, Is < 34, 9
        lbl5.Visible = True
    Case Is > 35, Is < 39, 9
        lbl6.Visible = True
    Case Is > 40
        lbl7.Visible = True

End Select 

mas não funciona... se a variável dblTotal for maior que 18,5 seja ela qual for, nem que seja 50 ele para sempre no segundo case:

    Case Is > 18, 5, Is < 24, 9
        lbl3.Visible = True

Cumps...

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Kyu    0
Kyu

é um tiro no escuro, mas tira os espaços nos números (18, 5 -> 18,5)

se não funcionar então substitui pelo seguinte código:

Select Case dblTotal
    
    Case Is < 18, 5
        lbl2.Visible = True
    Case 18,5 to 24, 9
        lbl3.Visible = True

     ........     

    Case Is > 40
        lbl7.Visible = True
End Select

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ber0x88    0
ber0x88

Tens razão Kyu!!!  :)

Estive a ver e não tinha tirado o "Is" a seguir ao case... quando inseri o "to"...

Select Case dblTotal
    
    Case Is < 18, 5
        lbl2.Visible = True
    Case 18, 5 To 24, 9
        lbl3.Visible = True
    Case 25 To 29, 9
        lbl4.Visible = True
    Case 30 To 34, 9
        lbl5.Visible = True
    Case 35 To 39, 9
        lbl6.Visible = True
    Case Is > 40
        lbl7.Visible = True

End Select

Obrigado!!!  :P

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade