Função que percorre todos os checkbox

[*Thais* 0]

Oii Pessoal ,

 

Estou desenvolvendo um aplicativo que possui vários checkbox em um form .... gostaria de saber se algum de vcs conhece alguma função que percorra todos os checkbox de um form ???? assim fica bem mais fácil para selecionar ou naum todos eles ...

 

 

Obrigada

 

 

http://forum.imasters.com.br/public/style_emoticons/default/wub.gif

[cassitos 2]

Private Sub Command1_Click()

  Dim nCont         As Integer

 

  'use esta rotina caso os checkbox's não estejam indexados (array)

  For nCont = 0 To Me.Count - 1

    DoEvents

    If TypeOf Me.Controls(nCont) Is CheckBox Then

      Me.Controls(nCont).Value = 1

    End If

  Next nCont

 

  'use esta rotina caso os checkbox's estejam indexados

  For nCont = 0 To Check1.Count - 1

    DoEvents

    Check1(nCont).Value = 1

  Next nCont

End Sub

No VB6, quando você define um determinado objeto com o mesmo nome de um outro, o VB pergunta se deseja transformar em Array, neste caso os objetos com o mesmo nome serão diferenciados pelo índice (index) de cada um.

 

No exemplo tem duas opções, a primeira independe de estar em array ou não, a outra é p/ array.