Question

我正在尝试创建一个菜单列表项，其中包含文本框和标签作为单个项目。在下面的代码中，我已经从ToolStripControlHost继承了必要的自定义控件类，并且在表单菜单中创建时，它的外观和行为与预期一致。

我遇到的问题是控件的事件没有触发处理程序例程。在下面的示例中，我期望发生的是当用户在文本框中键入消息时应该显示（其他事件具有相同的问题）。

谢谢。

控制类：

Public Class ToolStripTextBoxWithLabel
Inherits ToolStripControlHost



Public Sub New(Optional ByVal lblText As String = "label")
    MyBase.New(New ControlPanel(lblText))

End Sub

Public ReadOnly Property ControlPanelControl() As ControlPanel
    Get
        Return CType(Me.Control, ControlPanel)
    End Get
End Property

End Class


Public Class ControlPanel
Inherits Panel

Friend WithEvents txt As New TextBox
Friend WithEvents lbl As New Label

Public Sub New(ByVal lblText As String)

    Me.Height = 20

    lbl.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Bottom
    lbl.Text = lblText
    lbl.TextAlign = ContentAlignment.BottomLeft
    lbl.AutoSize = True
    lbl.Height = Me.Height
    lbl.Location = New Point(0, 3)
    lbl.Parent = Me

    txt.Anchor = AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
    txt.Location = New Point(lbl.Right + 3, 0)
    txt.Width = Me.Width - txt.Left
    txt.Parent = Me


End Sub

End Class

表格实施：

Public Class Form1

Friend tb_SearchBox As ToolStripTextBoxWithLabel



Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    tb_SearchBox = New ToolStripTextBoxWithLabel("Search:") With {.Name = "tb_SearchBox"}
    AddHandler tb_SearchBox.TextChanged, AddressOf tb_SearchBox_TextChanged

    Item1ToolStripMenuItem.DropDownItems.Add(tb_SearchBox)

End Sub

Private Sub tb_SearchBox_TextChanged(sender As Object, e As EventArgs)
    MsgBox("Success")
End Sub

End Class

Answer 1

在此实例中使用TextChanged的{{1}}事件是不合适的，因为只有在该对象的ToolStripTextBoxWithLabel属性发生更改时才会引发该事件，这在此处不会发生。您需要执行Plutonix建议的内容，但您也应该使用自己的自定义事件而不是主机的Text事件来执行此操作，例如。

TextChanged

我建议您创建一个用户控件并在设计器中添加子控件，而不是从Public Event TextBoxTextChanged As EventHandler Protected Overridable Sub OnTextBoxTextChanged(e As EventArgs) RaiseEvent TextBoxTextChanged(Me, e) End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged OnTextBoxTextChanged(EventArgs.Empty) End Sub派生ControlPanel类并在代码中创建子控件。然后，您将分两步使用我的答案，即用户控件将处理Panel的{{1}}事件，然后引发自己的事件，而事件将由{处理{1}}这将是它自己的事件。

Answer 2

感谢jmcilhinney和Plutonix，我已经把解决方案放在了一起。有关完整性和未来社区参考，完整解决方案如下。

用户控制：

Public Class CustomTextBox

Public Event TextBoxTextChanged As EventHandler

Protected Overridable Sub OnTextBoxTextChanged(e As EventArgs)
    RaiseEvent TextBoxTextChanged(Me, e)
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    OnTextBoxTextChanged(EventArgs.Empty)
End Sub

Public Sub New (lblText as string)
    InitializeComponent()
    Caption = lblText
End Sub

Public Property Caption() As String
Get
    Return Label1.Text
End Get
Set(ByVal value As String)
    Label1.Text = value
End Set
End Property
Public Overrides Property Text() As String
Get
    Return TextBox1.Text
End Get
Set(ByVal value As String)
    TextBox1.Text = value
End Set
End Property

Public Class

实现：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

    Dim SearchBox As New CustomTextBox("Search")
    Dim host As ToolStripControlHost = new ToolStripControlHost(windowNewMenu)
    AddHandler SearchBox.TextBoxTextChanged, AddressOf SearchBox_TextChanged
    ToolStripMenuItem1.DropDownItems.Add(host)

End Sub


Private Sub SearchBox_TextChanged(sender As Object, e As EventArgs)
    MsgBox(sender.Text)
End Sub

菜单项自定义控件事件

2 个答案: