Gambas-it

Gambas3 => Programmazione => Topic aperto da: doublemm - 12 Dicembre 2010, 15:02:25

Titolo: controllare se c'è almeno una checkbox true in un panel
Inserito da: doublemm - 12 Dicembre 2010, 15:02:25

ciao a tutti. Ho un panel contenente 7 checkbox (i sette giorni della settimana) quando vado a salvare i dati in un database devo fare un controllo che che almeno una checkbos sia attivata. C'è un modo per farlo velocemente senza fare tante if?

Titolo: Re: controllare se c'è almeno una checkbox true in un panel
Inserito da: perseo - 12 Dicembre 2010, 16:29:53

Prova con questo...

Codice: gambas [Seleziona]

Public Function controllocheckbox(pannello As Panel) As Boolean
Dim chb As Control
  For Each chb In pannello.Children
    If Object.Class(chb).Name = "CheckBox" Then
         if Object.GetProperty(chb, "Value", True) Then Return True
    Endif
  Next
End

Dal tuo codice basta richiamare la routine mettendo il nome del pannello che vuoi controllare...

If controllocheckbox(nome_del_pannello_che_vuoi_controllare) Then ....memorizza nel database

 ;)

Titolo: Re: controllare se c'è almeno una checkbox true in un panel
Inserito da: doublemm - 13 Dicembre 2010, 23:40:03

grazie appena ho 2 secondi provo