Ciao a tutti,
in un sub Load lancio una funzione che mi cicla tutti i controlli contenuti in un panel e gli aggiunge un evento contenuto in una Sub.
Gli eventi non vengono scatenati perchè secondo voi?
Qui di seguito il codice fondamentale:
codice:Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If IsPostBack Then Else AddChangingEvent(True) Me.ViewState("DataChanged") = "0" btnSalva.Enabled = False End If End Sub Private Sub AddChangingEvent(ByVal AggiungiEvento As Boolean) Dim Panel As Control Dim Ctrl As Control Dim C As CheckBox Dim R As RadioButton For Each Panel In MainPanel.Controls For Each Ctrl In Panel.Controls If TypeOf Ctrl Is CheckBox Then C = Ctrl If AggiungiEvento Then AddHandler C.CheckedChanged, AddressOf DataChanged Else RemoveHandler C.CheckedChanged, AddressOf DataChanged ElseIf TypeOf Ctrl Is RadioButton Then R = Ctrl If AggiungiEvento Then AddHandler R.CheckedChanged, AddressOf DataChanged Else RemoveHandler R.CheckedChanged, AddressOf DataChanged End If Next Next End Sub Protected Sub DataChanged(ByVal sender As Object, ByVal e As System.EventArgs) If Me.ViewState("DataChanged") = "0" Then AddChangingEvent(False) End If Me.ViewState("DataChanged") = "1" btnSalva.Enabled = True End Sub
Perchè non mi funzionano sti eventi benedettiiiiii![]()
![]()
grazie grazie

Rispondi quotando
