Loop nos checkbox

[fekz 0]

E ai galera beleza?

Na facul comecei a mexer com VB e estou fazendo um programinha...

 

Tenho 9 checkbox um seguido do outro.

 

Queria rodar todos, saber quais estao marcados e pegar os valores...

 

Se fosse em javascript eu pegaria o id do formulario e faria:

document.forms[0].elements = x

for i = 0/ i<form.length/; i++ {

if(x.type == checkbox {

if(x.checked == true){

Controle += x.value

}

}

}

 

Queria algo deste tipo, so que pra VB....

 

Alguem me ajuda?

[Claudio Neto 3]

É bem diferente de javascript, mas a idéia é parecida, rodar todos os objetos e comparar um por um.

 

Use essa função:

 

private sub confereCheck
dim ctlcontrole as control

for each ctlcontrole in controls
   if typeo ctlcontrole is checkbox then
	  if ctlcnotrole.value = 1 then
		 'o que você precisa fazer se estiver marcado
	  end if
   end if
next

end sub

Boa sorte.

[fekz 0]

Po valeu, vou tentar...

 

Mas tipo, boto essa funcao fora das outras, ou tipo, clico 2x dentro do botao, e boto isso dentro da funcao click do botao?

 

Pq preciso que ele pegue os valores quando o usuario clicar no botao.

 

Obrigado pela atencao.

[Claudio Neto 3]

Tanto faz, pode colocar o código no evento click do botão ou pode criar uma outra função. Ai você precisa chamar essa função dentro do evento click do botão.