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

大佬教程收集整理的这篇文章主要介绍了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 Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct,ByVal e As EventArgs) Public Event <a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctTextChanged As ChangedTextEvent '在控件中，选中后触发一个事件： Private Sub Lv_Click(ByVal sender As Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct,ByVal e As Syste<a href="http://code.js-code.com/tag/m/" target="_blank" class="keywords">m.</a>EventArgs) Handles Lv.Click Me.CmbBox.Text = Me.Lv.<a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctedItems(0).SubItems(_TBKeyWordIndex + 1).Text '触发<a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctTextChanged事件。在用到这个控件的窗体中就<a href="http://code.js-code.com/tag/yongzhege/" target="_blank" class="keywords">用这个</a>事件了。 RaiseEvent <a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctTextChanged(Me,<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E)</a> 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.<a href="http://code.js-code.com/tag/colum/" target="_blank" class="keywords">colum</a>n<a href="http://code.js-code.com/tag/s/" target="_blank" class="keywords">s.</a>Add("序号") tb.<a href="http://code.js-code.com/tag/colum/" target="_blank" class="keywords">colum</a>n<a href="http://code.js-code.com/tag/s/" target="_blank" class="keywords">s.</a>Add("名称") tb.<a href="http://code.js-code.com/tag/colum/" target="_blank" class="keywords">colum</a>n<a href="http://code.js-code.com/tag/s/" target="_blank" class="keywords">s.</a>Add("类型") tb.Row<a href="http://code.js-code.com/tag/s/" target="_blank" class="keywords">s.</a>Add("1","aaaa","big") tb.Row<a href="http://code.js-code.com/tag/s/" target="_blank" class="keywords">s.</a>Add("2","bbb","sml") tb.Row<a href="http://code.js-code.com/tag/s/" target="_blank" class="keywords">s.</a>Add("3","ccc","sml") Return tb End Function '绑定数据: Private Sub Button2_Click(ByVal sender As Syste<a href="http://code.js-code.com/tag/m/" target="_blank" class="keywords">m.</a>Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct,ByVal e As Syste<a href="http://code.js-code.com/tag/m/" target="_blank" class="keywords">m.</a>EventArgs) Handles Button2.Click Me.Multi<a href="http://code.js-code.com/tag/colum/" target="_blank" class="keywords">colum</a>nComboBox1.Table = crtdset() Me.Multi<a href="http://code.js-code.com/tag/colum/" target="_blank" class="keywords">colum</a>nComboBox1.Displa<a href="http://code.js-code.com/tag/ym/" target="_blank" class="keywords">ym</a>ember = "名称" Me.Multi<a href="http://code.js-code.com/tag/colum/" target="_blank" class="keywords">colum</a>nComboBox1.<a href="http://code.js-code.com/tag/colum/" target="_blank" class="keywords">colum</a>nsToDisplay = <a href="http://code.js-code.com/tag/newString/" target="_blank" class="keywords">new String</a>() <a href="http://code.js-code.com/tag/" target="_blank" class="keywords">{</a>"序号","名称","类型"} '//<a href="http://code.js-code.com/tag/colum/" target="_blank" class="keywords">colum</a>ns to display End Sub '窗体事件： Private Sub CmbBoxListView1_<a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctedTextChanged(ByVal sender As Ob<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct,ByVal e As EventArgs) Handles CmbBoxListView1.<a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctTextChanged MsgBox("你选择的是：" & Me.CmbBoxListView1.Text,"这是窗体里面的事件处理程序。" & Now.To<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng) MsgBox("<a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>c<a href="http://code.js-code.com/tag/Tin/" target="_blank" class="keywords">Tin</a>dex" & Me.CmbBoxListView1.<a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctedInde<a href="http://code.js-code.com/tag/X/" target="_blank" class="keywords">X)</a> End Sub

大佬总结

以上是大佬教程为你收集整理的VB.Net程序设计：ComboBox下拉列表中显示多列数据-增加一个事件。全部内容，希望文章能够帮你解决VB.Net程序设计：ComboBox下拉列表中显示多列数据-增加一个事件。所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。