[vb.2005]Controllare CheckBox

[spider13]

Ciao a tutti!!!Il mio problema è ke nel mio form ho una serie oggetti tra cui delle CheckBox ed è proprio da queste ke nasce il mio problema,vorrei fare un controllo di tutte le checkBox per vedere se sono selezionate e se lo sono trasferirle ognuna in una label diversa!!!!Vi ringrazio!!!!

[chipdb]

Basta che fai un ciclo sulla proprietà Controls della form:

    For Each ctrl As Control In Me.Controls
        If TypeOf ctrl Is CheckBox Then
            'è una checkbox
        Else
            'non è una checkbox
        End If
    Next

[spider13]

Grazie per la risposta!!!Però come faccio x vedere se è selezionata?????e se è selezionata come faccio a metterli in label???
Scusa tutte queste domande ma nonostante abbia letto su manuali if funzionamento del ciclo for each nn mi è molto chiaro....GRAZIE!!!!!!

[MItaly]

Francamente non ho capito cosa tu intenda per "trasferirle ognuna in una label diversa".

    For Each ctrl As Control In Me.Controls
        If TypeOf ctrl Is CheckBox Then
            'è una checkbox
            If DirectCast(ctrl,CheckBox).CheckState = CheckState.Checked Then
                'fa quello che deve fare
            End If
        Else
            'non è una checkbox
        End If
    Next

[spider13]

Praticamente ogni testo di una checkbox selezionata vorrei metterla in una label diversa!!!

[MItaly]

E in base a cosa si determina in quale label mettere il testo?

[spider13]

In base all'ordine delle checbox cioè la prima checkbox selezionata ke trovo nel form nella prima label ke trovo nel for e così via!!!!

[chipdb]

Associa ad ogni check box una label nella proprietà Tag nel costruttore della form:

checkbox1.Tag = label1;
checkbox2.Tag = label2;
checkbox3.Tag = label3;

[...]

Poi nel codice:

    For Each ctrl As Control In Me.Controls
        If TypeOf ctrl Is CheckBox Then
            'è una checkbox
            Dim check As CheckBox = DirectCast(ctrl,CheckBox)
            If check.CheckState = CheckState.Checked Then
                DirectCast(check.Tag, Label).Text = check.Text
            End If
        Else
            'non è una checkbox
        End If
    Next

[spider13]

Grazie mille a tutti!!!!Mi siete stati di grande aiuto!!!!

[spider13]

Un ultimissima cosa vorrei ancora chiedervi...Così funziona perfettamente,ma come dovrei fare se io volessi migliorare ulteriormente
in modo che la propietà testo della 1°checkbox selezionata(ke nn è necessariamente la 1° chekbox che trovo nel form)
mi venga assegnata alla 1° label ke trovo ne forum,la seconda checbox selezionata alla 2° label ecc...Grazie ancora!!!