Visual Basic 6 - azzeramento valori

Forum - Visual Basic 6 - azzeramento valori

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 16:45
Mercoledì, 10/06/2009

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 .

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 17:23
Mercoledì, 10/06/2009

Codice sorgente - presumibilmente VB.NET

For Each chk In UserForm5.Controls
        chk.Value = [b]vbUnchecked[/b]
    Next

Ultima modifica effettuata da theprogrammer il 10/06/2009 alle 17:25

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 17:33
Mercoledì, 10/06/2009

Ciao mash_mash,
prova in questo modo:

Codice sorgente - presumibilmente VB.NET

' 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

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 17:37
Mercoledì, 10/06/2009

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

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 17:43
Mercoledì, 10/06/2009

Testo quotato

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 ...

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 8:18
Giovedì, 11/06/2009

Grazie a tutti , siete veramenti fantastici.