Ciao,
Visto che tutti i cambiamenti di stato lanciano la stessa funzione
subManageCheckBoxStateChange( ... )
Sono convinto che esiste un metodo piu' intelligente per gestire la cosa,
solo che non so quale sia :-)
Credo che tu possa provare qualcosa di questo tipo:
Sub subCheckBoxStateChanged(oEvent as object)
Dim oForm As Object
Dim oChkBox As Object
N = right(oEvent.source.model.name,1)
subManageCheckBoxStateChange( N, oEvent.source.state )
End Sub
ed assegnare la sub (sempre la stessa, senza necessità di duplicarla) a
tutti i tuoi checkbox, dovrebbe fare quello che vuoi.
Il limite sta nel fatto che per come l'ho scritta, N è sempre di una
sola cifra, se hai valori di N > 10, dovrai elaborare qualcosa di un po'
più elegante per ricavarli.
Dimenticavo, non so se subManageCheckBoxStateChange si accontenta di
ricevere per N una stringa o meno.
In caso voglia un numero potrai sempre usare cInt(N) o cLng(N) quando la
chiami.
Ciao!
Emanuele.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
