[VB6] checbox - disabilitare selezione multipla

[Marvellous]

Salve

ho la strana esigenza di diver disabilitare la selelezione multipla di un gruppo di checkbox.
Ovvero devo far comportare le check come se fossero OptionButton, quindi su N check ce ne può essere solo una spuntata.

Immagino ci sia un proprietà da settare, ma non risco ad individuarla.

Qulche suggerimento?

Grazie
MM

[orione91]

Io di solito scrivo nel codice "se questo e' TRUE quelli devono essere FALSE",
ma magari sono un po' grezzo...
...e scomodo se hai 1000mila checkbox!!

[Mabi]

Quando i controlli diventano molti e sotto la stessa gestione, puoi utilizzare le matrici di controlli.
Se vuoi ottenere lo stesso comportamento di un OptionButton ti basta un azzeramento:

Private Sub CheckGruppo1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each CheckBox In CheckGruppo1
  CheckBox.Value = vbUnchecked
Next
End Sub

Questo supponendo che la matrice si chiami CheckGruppo1

[Marvellous]

Grazie Mabi... la tua rispota è stata più che esaudiente.

Funziona alla grande

Saluti
MM

[Marvellous]

Ciao a tutti, sono di nuovo alle prese con questo particolare comportamento delle ChekBox.

Ho adottato la tecnica suggeritami da MABI. Con questa procedura però almeno una CheckBox della matrine rimane spuntata. Io invece vorrei ANCHE poter deselezionarle tutte.

Come posso fare?

Grazie
MM

[Mabi]

Il "problema" l'avevo già riscontrato:

Se vuoi ottenere lo stesso comportamento di un OptionButton...

Con una serie di OptionButton infatti, è impossibile ritrovarsi con nessun elemento selezionato.

[Luciano79]

fai così:

Private Sub CheckGruppo1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    For Each CheckBox In CheckGruppo1
        If CheckBox.Index <> Index Then
            CheckBox.Value = vbUnchecked
        End If
    Next
End Sub

[Marvellous]

Sei un grande

Grazie