Oppure

Loading
10/06/09 14:45
mash_mash
Ciaoa a tutti quanti , dopo aver risolto in maniera brillante (SOLO GRAZIE AL VS AIUTO) il dilemma precedente , eccomi qua con un altro :
E' possibile con un unico comando assegnare il valore FALSE a TUTTE le chkbox (anche a quelle non comprese in un array) presenti nel FORM ?
Io pensavo ad una cosa del genere :

For Each chk In UserForm5.Controls
chk.Value = False
Next

MA PURTROPPO NON GIRA .
aaa
10/06/09 15:23
theprogrammer
    For Each chk In UserForm5.Controls
        chk.Value = [b]vbUnchecked[/b]
    Next
Ultima modifica effettuata da theprogrammer 10/06/09 15:25
aaa
10/06/09 15:33
Louis
Ciao mash_mash,
prova in questo modo:

' Attenzione le possibili impostazioni di valore sono:
' Controllo CheckBox. L'impostazione predefinita 0 indica che il controllo non è selezionato,
' 1 che è selezionato e 2 che non è disponibile.

Private Sub Command1_Click()
    Dim Chk As Control
    For Each Chk In Me.Controls
        'Seleziona False:
        If TypeOf Chk Is CheckBox Then Chk.Value = 0
    Next
End Sub


:k:
aaa
10/06/09 15:37
Louis
theprogrammer,
vedo che ci siamo incrociati con le risposte; il codice pare sostanzialmente uguale. Quando ho postato non era presente alcuna risposta.
aaa
10/06/09 15:43
theprogrammer
Postato originariamente da Louis:

theprogrammer,
vedo che ci siamo incrociati con le risposte; il codice pare sostanzialmente uguale. Quando ho postato non era presente alcuna risposta.


Nessun problema ... meglio due risposte di una ...

aaa
11/06/09 6:18
mash_mash
Grazie a tutti , siete veramenti fantastici.
aaa