Can I modify the existing textbox class?

[Guest cgchris99]

I have about 100 textboxes on a form and they are in various tabs.

I have had to add the following handlers to perform some code that I want on these events.

 

Is there a way to modify the existing Textbox class to include these changes so I don't have to add this code 100 times for each of the textboxes on the form?

 

You will notice the Procedure for TextBoxChanged is the same for every textbox on the form and so is TextBoxValidated, TextboxMouseDown, etc.

 

Thanks for any help

 

AddHandler txtTextBox1.TextChanged, AddressOf TextBoxChanged

AddHandler txtTextBox1.Validated, AddressOf TextBoxValidated

AddHandler txtTextBox1.MouseDown, AddressOf TextBoxMouseDown

AddHandler txtTextBox1.Leave, AddressOf TextBoxLeave

AddHandler txtTextBox1.KeyPress, AddressOf TextBoxKeypress

 

AddHandler txtTextBox2.TextChanged, AddressOf TextBoxChanged

AddHandler txtTextBox2.Validated, AddressOf TextBoxValidated

AddHandler txtTextBox2.MouseDown, AddressOf TextBoxMouseDown

AddHandler txtTextBox2.Leave, AddressOf TextBoxLeave

AddHandler txtTextBox2.KeyPress, AddressOf TextBoxKeypress

[Derek Stone]

Private Sub TextBoxChanged(..., ...) Handles txtTextBox1.TextChanged, txtTextBox2.TextChanged, txtTextBox3.TextChanged, ...
   'Code
End Sub

[duncallen]

Excuse my ignorance ,

but if it is a proprty you can just loop through the form's controls collection .

Dim ctr As Control
       For Each ctr In Me.Controls
           If TypeOf ctr Is Label Then
               ctr.Text = "Cool"
           End If
       Next

 

 

 

or now you can make a method in Net handle multiple events

 

Private Sub subforAllText(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
       Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress

       Dim txt As TextBox
       txt = sender
       
   End Sub

 

I apologize if I completely missed the point of your post, otherwise i hope this helps?!

[Bucky]

Your second suggestion is what Derek said, duncallen. Your

first idea can be modified, however, to add event handlers for all

the textboxes, because the other way would make for a

realllllllly long sub declaration.

 

   Dim ctl As Control
   Dim txt As TextBox

   For Each ctl In Me.Controls
     If TypeOf ctl Is TextBox Then
       txt = ctl
       AddHandler txt.TextChanged, AddressOf TextBoxChanged
       AddHandler txt.Validated, AddressOf TextBoxValidated
       AddHandler txt.MouseDown, AddressOf TextBoxMouseDown
       AddHandler txt.Leave, AddressOf TextBoxLeave
       AddHandler txt.KeyPress, AddressOf TextBoxKeypress
       ' etc etc
     End If
   Next

 

You will also have to add a For-Each loop for looping through

each TabPage, and then loop through its Controls collection.

[Guest cgchris99]

This looping routine to add to every textbox looks real interesting. That just might work perfectly for me.

 

Thanks

[Guest lepernet]

You can add a "user control" to your project.

 

This will appear like a borderless form in the designer.

 

Drop a text box onto it and resize as appropriate.

 

You can add whatever logic you want to the text box.

 

When compiled the new user control will appear in the toolbox and you will be able to drop it onto the form.

 

You can do the same with groups of controls.

[divil]

Or you could just inherit from the textbox to add whatever behaviour you need to it.