Question

Soon I asked for help to read properties of textbox which is inside usercontrol.
Accessing to control inside of usercontrol
As I have been suggested I make one very simple public class with name xTextBox and use it as textbox in my usercontrol. That work fine.

Public Class xTextBox
    Inherits TextBox
End Class

Now I can simply read a property on that xTextbox from main program which contain that usercontrol:

Dim s As Integer = myUserControl.xTextBox1.SelectionStart

But now is a problem that I can’t get events of that Textbox in main program.
Maybe I can declare ‘Shadows Event TextChanged…’ etc, but I will need more events in different situations where usercontrol would be, and intentionally raising every of them don’t look elegant in mean of practical programming.

How to get events of those xTextbox to main program?

Answer 1

If the your new UserControl has only one control and Inherits TextBox, then you can just attach the events like normal, either with the Property Editor, or Manually with AddHandler. If things are more complicated than that I would probably create a panel and put your new TextBox’s in it, then it will be a lot easier to access the events.

Public Class myUserControl
    Inherits TextBox

End Class


Public Class Form1

    Public Sub New()
        InitializeComponent()
        AddHandler MyUserControl1.TextChanged, AddressOf MyUserControl_textChanged
    End Sub

    Private Sub MyUserControl_textChanged(sender As Object, e As EventArgs)
        Throw New NotImplementedException
    End Sub

End Class

---

Or if your UserControl has Multiple Custom TextBox’s in it, you can create a Custom Event and fire that in a common TextChanged Event on your UserControl and handle that in your Main Form.

Public Class UserControl1
    Public Event TextChange(sender As Object, e As EventArgs)

    Private Sub MyUserControl_TextChanged(sender As System.Object, e As System.EventArgs) Handles MyUserControl1.TextChanged, MyUserControl2.TextChanged
        RaiseEvent TextChange(sender, e)
    End Sub
End Class

Public Class Form1
    Public Sub New()
        InitializeComponent()
End Sub
    Private Sub UserControl11_TextChange(sender As System.Object, e As System.EventArgs) Handles UserControl11.TextChange
        MsgBox(CType(sender, TextBox).Name, MsgBoxStyle.Information)
    End Sub
End Class