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 '在控件中，选中后触发一个事件： Private Sub Lv_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Lv.Click Me.CmbBox.Text = Me.Lv.SelectedItems(0).SubItems(_TBKeyWordIndex + 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("名称") 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 System.Object,ByVal e As System.EventArgs) Handles Button2.Click Me.MultiColumnComboBox1.Table = crtdset() Me.MultiColumnComboBox1.DisplayMember = "名称" Me.MultiColumnComboBox1.ColumnsToDisplay = New String() {"序号","名称","类型"} '//columns to display End Sub '窗体事件： Private Sub CmbBoxListView1_SelectedTextChanged(ByVal sender As Object,ByVal e As EventArgs) Handles CmbBoxListView1.SelectTextChanged MsgBox("你选择的是：" & Me.CmbBoxListView1.Text,"这是窗体里面的事件处理程序。" & Now.ToString) MsgBox("selectindex" & Me.CmbBoxListView1.SelectedIndex) End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!