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

来源：互联网发布：淘宝为什么流量打不开编辑：程序博客网时间：2024/04/30 09:43

自己写的一个控件：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, MsgBoxStyle.Information, "这是窗体里面的事件处理程序。" & Now.ToString) MsgBox("selectindex" & Me.CmbBoxListView1.SelectedIndex) End Sub