Oppure

Loading
08/06/09 14:53
mash_mash
Private Sub Inizializza()
Dim CheckBox As Object
Dim j As Integer
j = 0
For j = 0 To 5 Step 1 ' Ho 6 chk nel form5
UserForm5.CheckBox(j).unlocked = True
Next j
'
varAccessorio = ""
'
End Sub
'''''''''''''''''''''''''''''''''''''''''''''
Ragazzi , mi dite dove sbaglio ?
Mi da questo errore :
ERRORE DI COMPILAZIONE
Impossibile trovare il metodo o il membro dei dati

EDIT: titoli + significativi
Ultima modifica effettuata da GrG 08/06/09 15:50
aaa
08/06/09 15:02
antometal
non capisco a cosa serve la riga:
Dim CheckBox As Object
noncè bisogno di dichiarare gli oggetti che sono nei form
quindi prova col togliere quella dichiarazione e usa il nome della checkbox che usi nel from5

userform5.nome_chkbox(j).unloked=true
aaa
08/06/09 15:47
GrG
questa proprietà non esiste (credo):

UserForm5.CheckBox(j).unlocked = True

che vorresti fare? magari enabled = true?
aaa
09/06/09 6:27
mash_mash
Grazie ragazzi , ma il problema persiste sempre.
Ho provato con i vs sugerimenti , ma niente purtroppo.
Avete già fatto percaso qualcosa di simile ? e se si potete postare il codice completo in maniera tale che possa confrontarlo con quello che la mia "zucca" (bacata) ha sviluppato ?
Grazie.
aaa
09/06/09 7:33
GrG
credo che la proprietà unlocked non esista... che vuoi fare con quel codice?
aaa
09/06/09 8:26
mash_mash
Praticamente vorrei che alla pressione di un pulsante TUTTE le chkbox con lo spunto (quindi con valore TRUE) presenti nel form e nelle cornici dello stesso form mi si disispuntassero (valore FALSE).
Inizialmente vorrei fare questo lasciando il numero progressivo nelle chkbox in maniera tale che il contatore del ciclo FOR non avesse problemi , poi vorrei rinominare le chkbox e modificare il ciclo FOR con il nome delle chkbox , ma questo una volta capito dove CONTINUO A SBAGLIARE.
Ci sto PROPRIO picchiando la testa.
GRAZIE
aaa
09/06/09 8:46
ruggy94
Private Sub Inizializza()
Dim J As Integer
For J = 0 To 5
Check1(J).Value = 0
Next J
End Sub

Come puoi vedere nel codice, per deselezionare una CheckBox, basta assegnare alla sua proprietà Value il valore 0.
Per fare funzionare questo codice, sul tuo Form ci deve essere un'array di CheckBox, il cui massimo indice sarà 5 (dato che le CheckBox sono 6). Nel mio caso sono: Check1(0), Check1(1), Check1(2), Check1(3), Check1(4) e Check1(5). Tu puoi chiamare l'array come ti pare, basta che vai a modificare il nome nel codice :k:
aaa