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

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Forma rápida de identificar um option button selecionado
Postada em 1/9/2003 por Ð@®l@n            
Quando se utiliza options buttons em um form eles normalmente estão contidos em um control array. Existe uma formula simples que nos permite descobrir qual option button encontra-se marcado sem a necessidade de fazermos diversos IF's ou utilizar select case.

Veja :

intselected = optteste(0).Value * 0 - optteste(1).Value * 1 - optteste(2).Value * 2 - optteste(3).Value * 3 - optteste(4).Value * 4 - optteste(5).Value * 5

O valor true é visto pelo VB como -1, enquanto que false é visto como 0. Assim sendo, a multiplicação o value do option que está marcado pelo seu peso gera o valor do option marcado, só que negativo.

Todos os outros calculos vão gerar 0. Supondo que o option marcado não seja o primeiro então a conta final ficará algo como 0 - (-3) (exemplo). A subtração de um valor negativo inverte a operação (0+3) e obtem-se o valor do option selecionado.

Caso seja o 1o, a operação será 0-0, que irá gerar 0, o índice do 1o que encontra-se marcado.

Essa fórmula ainda pode ser simplificada, já que a 1a operação irá sempre gerar 0. Veja :

intselected = -optteste(1).Value * 1 - optteste(2).Value * 2 - optteste(3).Value * 3 - optteste(4).Value * 4 - optteste(5).Value * 5

O sinal (-) é mantido no inicio do calculo para garantir que o resultado seja invertido de sinal.
 


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