DataGridViewComboBox一些例子

参考网络某些程序，修改，测试界面：

PS 改用自定义控件界面：

修改后的代码：

Public Class Form1 'Private cmb As Combo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> = New Combo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> 'cmb这里准备采用<a href="https://www.jb51.cc/tag/zidingyi/" target="_blank" class="keywords">自定义</a>的多列的com<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Private WithEvents cmb As NeMoCmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> = New NeMoCmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>() 'cmb这里准备采用<a href="https://www.jb51.cc/tag/zidingyi/" target="_blank" class="keywords">自定义</a>的多列的NeMoCmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click '参考网络某些程序，<a href="https://www.jb51.cc/tag/xiugai/" target="_blank" class="keywords">修改</a>，测试 Dim column As New DataGridViewCombo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Column() '在Combo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>的List中表示指定的项目 column.Items.Add("星期日") column.Items.Add("星期一") column.Items.Add("星期二") column.Items.Add("星期三") column.Items.Add("星期四") column.Items.Add("星期五") column.Items.Add("星期六") column.DataPropertyName = "Week" column.DisplayStyleForCurrentCellOnly = True column.Name = "Week" 'Combo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>列代替"Week"列表示 DataGridView1.Columns.Add(column) '插入到某一列的前面 'DataGridView1.Columns.Insert(index,column) '上面的例子中使用了Items<a href="https://www.jb51.cc/tag/shuxing/" target="_blank" class="keywords">属性</a>设定， '下面介绍的是使用DataSource<a href="https://www.jb51.cc/tag/shuxing/" target="_blank" class="keywords">属性</a>设定在Combo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>中表示的项目。 '在Combo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>中表示的List作成 Dim weekTable As New DataTable("WeekTable") weekTable.Columns.Add("Display",GetType(String)) weekTable.Columns.Add("Value",GetType(Integer)) weekTable.Rows.Add("星期日",0) weekTable.Rows.Add("星期一",1) weekTable.Rows.Add("星期二",2) weekTable.Rows.Add("星期三",3) weekTable.Rows.Add("星期四",4) weekTable.Rows.Add("星期五",5) weekTable.Rows.Add("星期六",6) 'DataGridViewCombo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Column作成 Dim col As New DataGridViewCombo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Column() '在"Week"列中表示被Bind的数据 col.DataPropertyName = "WeekS" 'DataGridViewCombo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Column的DataSource设定 col.DataSource = weekTable '实际值为"Value"列，表示文本的为"Display"列 col.ValueMember = "Value" col.DisplayMember = "Display" col.Name = "DataSource" '设置一些<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>样式。 col.DisplayStyleForCurrentCellOnly = True col.DisplayStyle = DataGridViewCombo<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DisplayStyle.Nothing '向DataGridView1追加 DataGridView1.Columns.Add(col) End Sub Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load '插入两个行。 Dim c As New DataGridViewText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Column c.Name = "text<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>" DataGridView1.Columns.Add(c) c = New DataGridViewText<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Column c.Name = "c<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>" DataGridView1.Columns.Add(c) '--初始化com<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>的数据项 'cmb.Items.Add("aaaa") 'cmb.Items.Add("bbbb") 'cmb.Items.Add("cccc") 'cmb.Items.Add("dddd") 'cmb.Items.Add("5555") '--- cmb.Table = NewTB() cmb.DisplayMember = "<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>" cmb.ValueMember = "类型" cmb.LvWidth = 250 '--- cmb.Visible = False '加入com<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>的事件，并加入到DataGridView1 Me.DataGridView1.Controls.Add(cmb) '-- Me.DataGridView1.ClearSelection() End Sub Private Sub Button2_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button2.Click Message<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Show(Me.DataGridView1.RowCount) End Sub Private Sub cmb_SelectedIndexChanged(ByVal sender As Object,ByVal e As EventArgs) Handles cmb.SelectedIndexChanged '此事件处理无效，因为index 一直都是-1 'Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>(Me.cmb.SelectedIndex) 'Me.DataGridView1.CurrentCell.Value = cmb.Text ' Me.DataGridView1.Rows(Me.DataGridView1.CurrentRow.Index).Cells(1).Value = cmb.SelectedIndex End Sub Private Sub cmb_AfterRowSec(ByVal sender As Object,ByVal e As SelectEventArgs) Handles cmb.AfterRowSelectEvent Me.DataGridView1.CurrentCell.Value = cmb.Text Me.DataGridView1.Rows(Me.DataGridView1.CurrentRow.Index).Cells(1).Value = cmb.SelectedRow(2) Me.Text = String.Format("SelectedItemIndex:{0}",cmb.SelectedItemIndex) End Sub Private Sub DataGridView1_CellClick(ByVal sender As System.Object,ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick '在第一行<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>com<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> If Me.DataGridView1.CurrentCell.ColumnIndex = 0 Then '确定位置,<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>com<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Dim rect As Rectangle = Me.DataGridView1.GetCellDisplayRectangle(Me.DataGridView1.CurrentCell.ColumnIndex,Me.DataGridView1.CurrentCell.RowIndex,False) cmb.Left = rect.Left cmb.Top = rect.Top cmb.Width = rect.Width cmb.Height = rect.Height cmb.Visible = True Else cmb.Visible = False End If End Sub Function NewTB() 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","aaa","biggggggggggsssssss") tb.Rows.Add("2","bbb","smlllllllllllll") tb.Rows.Add("3","ccc","dogsssssssssssssssss") Return tb End Function Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.Click My.Forms.Form2.Show() End Sub End Class

正式使用这个控件过程发现：多列现实的CombBox，数据量太大显示慢。每次点击combBox都要刷新网格，影响编辑效率，改回用其他方法。

如果数据量小。还是可以用这个控件的。