Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
91
Assunto : Visual Basic
Titulo: Forma rápida de identificar um option button selecionado

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon


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.

Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 12/17/2015 10:21:00 AM
nome: luis
email: ladgodoy@gmail.com
comentário:
bom dia,

você poderia por favor me ajudar ?
como eu faço para usar o optionbutton que foi o resultado da operação acima?
por exemplo considerandoque o intselected = 3.

pois o resultado é um numero como eu usaria por exemplo

wkbO.Worksheets("Plan1").OptionButton3.Caption?

agradeço desde ja a ajuda .

at.

luis


 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br