给combox添加自定义事件

给combox添加一个AddItem事件，当增加item时引发该事件！处理该事件下的程序.
1.先建立一个combox组件,把事件加入进去.代码如下

 1Public Class ExtendComboxClass ExtendCombox
 2    Inherits ComboBox
 3
 4组件设计器生成的代码#Region " 组件设计器生成的代码 "
 5
 6    Public Sub New()Sub New(ByVal Container As System.ComponentModel.IContainer)
 7        MyClass.New()
 8
 9        'Windows.Forms 类撰写设计器支持所必需的
10        Container.Add(Me)
11    End Sub
12
13    Public Sub New()Sub New()
14        MyBase.New()
15
16        '该调用是组件设计器所必需的。
17        InitializeComponent()
18
19        '在 InitializeComponent() 调用之后添加任何初始化
20
21    End Sub
22
23    '组件重写 dispose 以清理组件列表。
24    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
25        If disposing Then
26            If Not (components Is Nothing) Then
27                components.Dispose()
28            End If
29        End If
30        MyBase.Dispose(disposing)
31    End Sub
32
33    '组件设计器所必需的
34    Private components As System.ComponentModel.IContainer
35
36    '注意: 以下过程是组件设计器所必需的
37    '可以使用组件设计器修改此过程。
38    '不要使用代码编辑器修改它。
39    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
40        components = New System.ComponentModel.Container
41    End Sub
42
43#End Region
44
45    Public Event ItemAdded(ByVal strValue As String)
46    Public Function AddDataItem()Function AddDataItem(ByVal strValue As String)
47        ' 当用户选择添加项时唤起 ItemAdded
48        RaiseEvent ItemAdded(strValue)
49    End Function
50
51
52
53
54End Class
55

2.添加一个窗体，加入一个combox继承于上面的ExtendCombox类,另外再加上一个textBox,和一个button,
源代码如下

 1Public Class Form1Class Form1
 2    Inherits System.Windows.Forms.Form
 3
 4Windows 窗体设计器生成的代码#Region " Windows 窗体设计器生成的代码 "
 5
 6    Public Sub New()Sub New()
 7        MyBase.New()
 8
 9        '该调用是 Windows 窗体设计器所必需的。
10        InitializeComponent()
11
12        '在 InitializeComponent() 调用之后添加任何初始化
13
14    End Sub
15
16    '窗体重写 dispose 以清理组件列表。
17    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
18        If disposing Then
19            If Not (components Is Nothing) Then
20                components.Dispose()
21            End If
22        End If
23        MyBase.Dispose(disposing)
24    End Sub
25
26    'Windows 窗体设计器所必需的
27    Private components As System.ComponentModel.IContainer
28
29    '注意: 以下过程是 Windows 窗体设计器所必需的
30    '可以使用 Windows 窗体设计器修改此过程。
31    '不要使用代码编辑器修改它。
32    Friend WithEvents ComboBox1 As ExtendCombox
33    Friend WithEvents btnAdd As System.Windows.Forms.Button
34    Friend WithEvents txtValue As System.Windows.Forms.TextBox
35    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
36        Me.components = New System.ComponentModel.Container
37        Me.btnAdd = New System.Windows.Forms.Button
38        Me.txtValue = New System.Windows.Forms.TextBox
39        Me.ComboBox1 = New userCombox.ExtendCombox(Me.components)
40        Me.SuspendLayout()
41        '
42        'btnAdd
43        '
44        Me.btnAdd.Location = New System.Drawing.Point(72, 128)
45        Me.btnAdd.Name = "btnAdd"
46        Me.btnAdd.TabIndex = 1
47        Me.btnAdd.Text = "增加"
48        '
49        'txtValue
50        '
51        Me.txtValue.Location = New System.Drawing.Point(72, 80)
52        Me.txtValue.Name = "txtValue"
53        Me.txtValue.Size = New System.Drawing.Size(72, 21)
54        Me.txtValue.TabIndex = 2
55        Me.txtValue.Text = "张三"
56        '
57        'ComboBox1
58        '
59        Me.ComboBox1.Location = New System.Drawing.Point(168, 80)
60        Me.ComboBox1.Name = "ComboBox1"
61        Me.ComboBox1.Size = New System.Drawing.Size(121, 20)
62        Me.ComboBox1.TabIndex = 3
63        '
64        'Form1
65        '
66        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
67        Me.ClientSize = New System.Drawing.Size(352, 181)
68        Me.Controls.Add(Me.ComboBox1)
69        Me.Controls.Add(Me.txtValue)
70        Me.Controls.Add(Me.btnAdd)
71        Me.Name = "Form1"
72        Me.Text = "自定义Combox事件"
73        Me.ResumeLayout(False)
74
75    End Sub
76
77#End Region
78
79
80    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
81        Dim str As String = Me.txtValue.Text.Trim()
82        ComboBox1.AddDataItem(str)
83
84    End Sub
85
86    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
87
88    End Sub
89
90    Private Sub ComboBox1_ItemAdded()Sub ComboBox1_ItemAdded(ByVal strValue As String) Handles ComboBox1.ItemAdded
91
92        Dim str As String = Me.txtValue.Text.Trim()
93        If (Me.ComboBox1.Items.IndexOf(str) = -1) Then
94            Me.ComboBox1.Items.Add(str)
95            Me.ComboBox1.SelectedIndex = Me.ComboBox1.Items.IndexOf(str)
96        End If
97    End Sub
98End Class
99

最后运行显示