enable button

[EyeTalion]

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

[persianboy]

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 )

[The Phoenix]

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

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

[EyeTalion]

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

[dynamic_sysop]

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

[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]

[EyeTalion]

do I need to name each textbox here?

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?

[persianboy]

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 )

[EyeTalion]

in which event would the code go into?

[persianboy]

sorry didnt see the all your questions

where do I set the btnSave.enabled = true ?

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

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

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

[EyeTalion]

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

AddressOf txtBox_TextChanged

[persianboy]

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

   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

[EyeTalion]

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

[persianboy]

try this,

 For Each txt In GroupBox1.Controls

istead of

For Each tb In Controls

[EyeTalion]

thanks persian, that did it...