[VB.NET] Rilevare cambiamenti su controlli di un Form per abilitare tasto "Applica"

[paolottino78]

Ho creato un form sul quale ho inserito un tasto Applica che alla sua pressione cambia i valori memorizzati in un file ini di configurazione in base ai valori delle textbox e dei campi all'interno del form.

Funziona tutto però....
Vorrei che quando viene modificato il valore all'interno di qualsiasi textbox o venga modificato lo stato di qualsiasi checkbox mi riabiliti il tasto "applica".

Lo so fare rilevando il cambiamento per ogni elemento..ma pensavo ci fosse un sistema per farlo a livello di cambiamento di un "dato","valore" o "settaggio" del form che contine tutti gli elementi... riducendo il codice al minimo.

Qualcuno mi sa aiutare..!?

Grazie..(alla fine programmo in VB.net da 7 giorni..con non poche difficoltà)

Paolo

[gibra]

Puoi creare un Handler per tutti i controlli che vuoi catturare, in pratica funziona come il il MultiCast in VB6.
Ovvero crei una routine per gestire l'evento, ed indirizzi gli eventi dei controlli a questa routine.
L'importante è che i parametri della routine corrispondano agli stessi parametri degli eventi catturati.

Esempio:

Private bValoreModificato as Boolean

Private Sub Form_Load()
    btnApply.Enabled = False
    AddHandler TextBox1.TextChanged, AddressOf ValoreModificato
    AddHandler chkProvaCheck.CheckedChanged, AddressOf ValoreModificato
    ' aggiungi gli altri controlli che vuoi 'catturare' 
End Sub

Private Sub ValoreModificato(ByVal sender As System.Object, ByVal e As System.EventArgs)
        bValoreModificato = True
        btnApply.Enabled = True
End Sub

Come vedi, posso catturare eventi diversi, ma se vai a controllare la firma di ogni evento, vedrai che sia TextChanged che CheckedChanged sono uguali, nel senso che hanno gli stesso parametri dello stesso tipo. Se fossero diverse viene generata un'eccezione.

[paolottino78]

ok...ora mi metto d'impegno e cerco prima di tradurlo e poi di applicarlo..almeno la teoria c'è..poi la metterò in pratica acquisito il significato della terminologia..
Son proprio agli inizi.. :+((

Grazie!!

[Jeremy75]

Ciao
Mi permetto di aggiungere che ..... qualora fosse necessario(per esempio i controlli sono tanti) è possibile fare tutto iterando la collezione Controls del Form ed aggiugendo l'Handler al diverso evento in base al Tipo di controllo.

Esempio ..... nel Load del Form

for each cnt as control in me.controls
if typeof cnt is textbox then
addhandler cnt.textchanged, addressof ValoreModificato
end if
if typeof cnt is checkbox then
addhandler cnt.checkedchanged, addressof ValoreModificato
end if
next

Ciao

[gibra]

Originariamente inviato da Jeremy75

for each cnt as control in me.controls
if typeof cnt is textbox then
addhandler cnt.textchanged, addressof ValoreModificato
end if
if typeof cnt is checkbox then
addhandler cnt.checkedchanged, addressof ValoreModificato
end if
next

Ciao

Hai provato? Prova, e vedrai che sul checkedchanged ti da errore:

Errore	1	'CheckedChanged' non è un evento di 'System.Windows.Forms.Control'.	
D:\Documenti\Visual Studio 2008\Projects\test_vari\test_vari\frmMain.vb

[Jeremy75]

Ciao

Giusto .... perchè l'evento CheckedChanged non fa parte della classe Control, pertanto, è necessario castare l'oggetto di tipo Control a CheckBox.
Il codice corretto sarebbe questo.

 For Each cnt As Control In Me.Controls
            If TypeOf cnt Is TextBox Then
                AddHandler cnt.TextChanged, AddressOf ValoreModificato
            End If
            If TypeOf cnt Is CheckBox Then
                AddHandler DirectCast(cnt, CheckBox).CheckedChanged, AddressOf ValoreModificato
            End If
        Next

Come è anche vero che, in questo caso, la routine ValoreModificato deve essere modificata in questo modo:

 Private Sub ValoreModificato(ByVal sender As Object, ByVal e As EventArgs)
bValoreModificato = True
        btnApply.Enabled = True
    End Sub

Grazie per l'osservazione .... ma, come avrai capito, avevo scritto al volo senza aiuto del compilatore

Ciao

[paolottino78]

Perfetto..il primo step fatto e funziona perfettamente..
ora cercherò di capire come far funzionare nel caso io abbia molti controlli..
Grazie ancora..

[gibra]

Originariamente inviato da Jeremy75
Come è anche vero che, in questo caso, la routine ValoreModificato deve essere modificata in questo modo:

 Private Sub ValoreModificato(ByVal sender As Object, ByVal e As EventArgs)
bValoreModificato = True
        btnApply.Enabled = True
    End Sub

Perchè? Funziona benissimo così com'è.

Originariamente inviato da Jeremy75
Grazie per l'osservazione .... ma, come avrai capito, avevo scritto al volo senza aiuto del compilatore

Sì, nessun problema. Ho solo ritenuto che fosse giusto dare l'indicazione corretta.
Di norma anch'io, quando scrivo al volo, commetto sempre qualche errore.

[Jeremy75]

Citazione:
Originariamente inviato da Jeremy75
Come è anche vero che, in questo caso, la routine ValoreModificato deve essere modificata in questo modo:

codice: Private Sub ValoreModificato(ByVal sender As Object, ByVal e As EventArgs)
bValoreModificato = True
btnApply.Enabled = True
End Sub

Perchè? Funziona benissimo così com'è.

:master: :master:
Perchè la firma del metodo deve corrispondere con il delegato EventHandler(sender as Object, e as EventArgs) ...... sbaglio ????

[Jeremy75]

Ooooppps .... che stupido.
Mi accorgo solo ora che avevo praticamente riscritto il codice che avevi già scritto tu.
Son proprio fuso .... ora è ufficiale.
Ciao