enable button

I have a save button on a form with 20 textboxes. I have it set to enable = false till I detect some changes in the textboxes and then change it to enable = true...whats the most efficient way to do besides checking the change event for each textbox?

thanks

the way i would do it is to add a sub that handles the validated event of all the text boxes, and there enable and disable your save button

( and i would add a sub that handles all the validating event of the text boxes , and cancel bad data input there )

If you mean that a change in any of the the textboxes can activate the button, you could use something like this:

VB Code:

Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is TextBox Then
                If ctrl.Text <> Nothing Then
                    SaveButton.Enable = True
                End If
            End If
        Next

does that code in the text change event? place it in there and did not flag any activity for the textbox?

you need to add a handler for all textboxes ( maybe on form load ) eg:

VB Code:

[Color=Blue]Private[/COLOR] [Color=Blue]WithEvents[/COLOR] txtBox [Color=Blue]As[/COLOR] TextBox
 
    [Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] Form1_Load([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] System.Object, [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.EventArgs) [Color=Blue]Handles[/COLOR] [Color=blue]MyBase[/color].Load
        [Color=Blue]Dim[/COLOR] tb [Color=Blue]As[/COLOR] Control
        [Color=Blue]For[/COLOR] [Color=Blue]Each[/COLOR] tb [Color=Blue]In[/COLOR] Controls
        [Color=Blue]If[/COLOR] [Color=Blue]TypeOf[/COLOR] tb [Color=Blue]Is[/COLOR] TextBox [Color=Blue]Then
[/COLOR]                [Color=Blue]AddHandler[/COLOR] tb.TextChanged, [Color=Blue]AddressOf[/COLOR] txtBox_TextChanged
            [Color=Blue]End[/COLOR] [Color=Blue]If[/COLOR] 
        [Color=Blue]Next
[/COLOR]    [Color=Blue]End[/COLOR] [Color=Blue]Sub
 
[/COLOR]    [Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] txtBox_TextChanged([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] [Color=Blue]Object[/COLOR], [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.EventArgs) [Color=Blue]Handles[/COLOR] txtBox.TextChanged
        [Color=Green]'///[/COLOR] [Color=Green]all[/COLOR] [Color=Green]textboxes[/COLOR] [Color=Green]on[/COLOR] [Color=Green]this[/COLOR] [Color=Green]form[/COLOR] [Color=Green]now[/COLOR] [Color=Green]have[/COLOR] [Color=Green]the[/COLOR] [Color=Green]TextChanged[/COLOR] [Color=Green]event[/COLOR] [Color=Green]handled[/COLOR] [Color=Green]here.
[/COLOR]    [Color=Blue]End[/COLOR] [Color=Blue]Sub[/COLOR]

do I need to name each textbox here?

VB Code:

AddressOf txtBox_TextChanged

where do I set the btnSave.enabled = true?

in each txtbox change event? doesn't that defeat the purpose of creating a handler?

Code:

---

For Each tb In Controls
        If TypeOf tb Is TextBox Then
                AddHandler tb.TextChanged, AddressOf (any event handler )
            End If
        Next

---

no you dont need the name, when using the code above (as dynamic... wrote )

in which event would the code go into?

sorry didnt see the all your questions

Quote:

---

where do I set the btnSave.enabled = true ?

---

in the event handler
in case your using dynamic_sysop sample it would look like this

Code:

---

Private Sub txtBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBox.TextChanged
    btnSave.Enabled=True
    End Sub

---

Quote:

---

in each txtbox change event? doesn't that defeat the purpose of creating a handler?

---

didnt really understand what your asking, but here you just have 1 handler for all the text boxes

I meant I have 20 textboxes on my screen , so I would have to name each handler (textbox) here?

VB Code:

AddressOf txtBox_TextChanged

this is all you need, you dont have to add or remove anything ( you dont need the textbox names )

Code:

---

  Private WithEvents txtBox As TextBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tb As Control
        For Each tb In Controls
        If TypeOf tb Is TextBox Then
                AddHandler tb.TextChanged, AddressOf txtBox_TextChanged
            End If
        Next
    End Sub

    Private Sub txtBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBox.TextChanged
        BtnSave.Enabled=True
    End Sub

---

still not woeking...I have my textboxes in a groupbox...could this be why it's not being read as a control?

try this,

Code:

---

For Each txt In GroupBox1.Controls

---

istead of

Code:

---

For Each tb In Controls

---

thanks persian, that did it...