VB.Net程序设计：ComboBox下拉列表中显示多列数据-增加一个事件

VB.Net程序设计：ComboBox下拉列表中显示多列数据-增加一个事件。

自己写的一个控件：ComboBox下拉列表中显示多列数据(可以绑定数据表)
具体内容查看：
http://blog.csdn.net/linjimu/archive/2007/11/01/1861641.aspx

上面可以显示多列数据的控件在实际应用中遇到：当你选择一个项、改变文本后，要触发一个事件。做一些其他事情。
于是学习了一下委托和事件。给上面的空间加上一个事件:

'定义委托和事件。 Public Delegate Sub ChangedTextEvent(ByVal sender As Object,ByVal e As EventArgs) Public Event SelectTextChanged As ChangedTextEvent '在控件中，选中后触发<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>事件： Private Sub Lv_Click(ByVal sender As Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles Lv.Click Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Text = Me.Lv.SelectedItems(0).SubItems(_TBKeyWor<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex + 1).Text '触发SelectTextChanged事件。在用到这个控件的窗体中就用这个事件了。 RaiseEvent SelectTextChanged(Me,e) Me.HidenLV() End Sub

控件中有绑定函数：
BindDataTB(ByVal DataTB As DataTable,ByVal NewColumnsNameStr As String,ByVal KeyWordPosition As Integer)

在窗体中绑定数据如：Me.CmbBoxListView1.BindDataTB(Me.ADataSet.Dt,"你的;我的;他的;美的;好的",1)
参数：
Me.ADataSet.Dt 是：一个datatable
"你的;我的;他的;美的;好的"是：标题。
1是：关键数据位置第一列。即comBox的数值。

用这个事件例子:
Private Sub CmbBoxListView1_SelectedTextChanged(ByVal sender As Object,ByVal e As EventArgs) Handles CmbBoxListView1.SelectTextChanged
MsgBox("你选择的是：" & Me.CmbBoxListView1.Text,MsgBoxStyle.information,"这是窗体里面的事件处理程序。" & Now.ToString)
MsgBox("selectindex" & Me.CmbBoxListView1.Selectedindex)
End Sub

控件下载地址：

http://download.csdn.net/source/954311

例子：绑定数据，点击下拉按钮
http://album.hi.csdn.net/app_uploads/linjimu/20090109/111645903.png

选择第二个
http://album.hi.csdn.net/app_uploads/linjimu/20090109/111646028.png

选择第二个后的窗体事件
http://album.hi.csdn.net/app_uploads/linjimu/20090109/111646090.png

选择第二个后的窗体事件-selectIndex数据
http://album.hi.csdn.net/app_uploads/linjimu/20090109/111646153.png

窗体中的具体代码：

'创建数据DataTable: Function crtdset() As DataTable Dim tb As New DataTable tb.Columns.Add("序号") tb.Columns.Add("<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>") tb.Columns.Add("类型") tb.Rows.Add("1","aaaa","big") tb.Rows.Add("2","bbb","sml") tb.Rows.Add("3","ccc","sml") Return tb End Function '绑定数据: Private Sub Button2_Click(ByVal sender As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles Button2.Click Me.<a href="https://www.jb51.cc/tag/multicol/" target="_blank" class="keywords">multicol</a>umnCombo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>1.Table = crtdset() Me.<a href="https://www.jb51.cc/tag/multicol/" target="_blank" class="keywords">multicol</a>umnCombo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>1.<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>playMember = "<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>" Me.<a href="https://www.jb51.cc/tag/multicol/" target="_blank" class="keywords">multicol</a>umnCombo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>1.ColumnsTo<a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>play = New String() {"序号","<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>","类型"} '//columns to <a href="https://www.jb51.cc/tag/dis/" target="_blank" class="keywords">dis</a>play End Sub '窗体事件： Private Sub Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ListView1_SelectedTextChanged(ByVal sender As Object,ByVal e As EventArgs) Handles Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ListView1.SelectTextChanged Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("你选择的是：" & Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ListView1.Text,"这是窗体里面的事件处理程序。" & <a href="https://www.jb51.cc/tag/Now/" target="_blank" class="keywords">Now</a>.ToString) Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("selectindex" & Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ListView1.Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex) End Sub