Funzione per eliminare la spunta da un CheckBox

mercoledì 05 settembre 2007 - 09.54

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

mikon Profilo | Newbie

21 messaggi | Data Invio: mer 5 set 2007 - 09:54

Salve,

ho fatto una funzione per pulire alcuni controlli che ho su di una Form.

Sub pulisci(ByVal contenitore As Control)
Dim controllo As Control
For Each controllo In contenitore.Controls
If TypeOf controllo Is TextBox Then
controllo.Text = ""
ElseIf TypeOf controllo Is ComboBox Then
controllo.Text = ""
End If
Next
End Sub

siccome nella form ci sono anche 2 CheckBox vorrei che chiamando la funzione
pulisci(me) mi si levasse la spunta alle 2 caselle.

ho provato ad aggiungere:
ElseIf TypeOf controllo Is CheckBox Then
controllo.checked = FALSE

ma mi da errore.

Qualcuno puo' aiutarmi ?
Grazie :)

Faelar Profilo | Junior Member

71 messaggi | Data Invio: mer 5 set 2007 - 10:07

Questo perché il tipo Control non accetta la proprità Checked.

Ti basta sotituire la definizione dell'oggetto passando da Control a Object.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !