USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ajuda em lógica boolena?
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 09/11/2005 14:09 hs         
Olá,
Eu tenho 3 menus(mnuOfertaNormal, mnuOfertaAcumulada e mnuOfertaGrupo) e minha lógica abaixo não está dando certo para
que apenas um dos 3 menus fique checado(.checked = true) em cada vez que uma rotina form_keyup for chamada, por exemplo!
Ao carregar o form pelo menos um destes 3 menus estará checado.

É possível fazer isto que desejo da forma proposta? Já tentei fazer umas mudanças, mas não ficou exatamente do jeito que eu preciso!

Rotina:
mnuOfertaNormal.Checked = (Not mnuOfertaNormal.Checked And Not mnuOfertaAcumulada.Checked And Not mnuOfertaGrupo.Checked) '1º menu
mnuOfertaAcumulada.Checked = (Not mnuOfertaNormal.Checked And Not mnuOfertaAcumulada.Checked And Not mnuOfertaGrupo.Checked) '2º menu
mnuOfertaGrupo.Checked = (Not mnuOfertaNormal.Checked And Not mnuOfertaAcumulada.Checked And Not mnuOfertaGrupo.Checked) '3º menu
 
Grato

http://www.vilmarbro.com.br
     
Erico
SALVADOR
BA - BRASIL
Postada em 09/11/2005 14:53 hs            
Tenta assim:
 
mnuOfertaNormal.Checked = Not (mnuOfertaNormal.Checked or mnuOfertaAcumulada.Checked or mnuOfertaGrupo.Checked) '1º menu

A.Erico S.Peixoto
--------------------
Analista de Sistemas
     
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 09/11/2005 15:11 hs         
Erico,
Não deu certo Emoções
 
 

http://www.vilmarbro.com.br
     
VACA
LIMEIRA
SP - BRASIL
Postada em 09/11/2005 15:28 hs            
sinto muito vilmarbr mais axo q naum tem jeito de melhorar isso, saum todos and's dessa forma naum tem o q mexer, se tivesse algum or no meio talvez mais assim eh o mais enxuto possivel

"Quando estou fraco, aí então é que sou Poderoso"
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página