正式使用这个控件界面:UI

使用代码：

Private WithEvents Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList As ControlLib.NeMoCmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> = New ControlLib.NeMoCmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>() Private Sub IniCmbListView() Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Table = (New EvaMaterialClass).GetTableCN() Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.DisplayMember = "布料<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>" Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.ValueMember = "布料<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>" Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.LvWidth = 450 Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.LvHeight = 200 Me.Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Visible = False Me.DvMaterial.Controls.Add(Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList) End Sub Private Sub DvMaterial_CellClick(ByVal sender As Object,ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DvMaterial.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.DvMaterial.CurrentCell.ColumnIndex = 1 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.DvMaterial.GetCellDisplayRectangle(Me.DvMaterial.CurrentCell.ColumnIndex,Me.DvMaterial.CurrentCell.RowIndex,False) Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Left = rect.Left Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Top = rect.Top Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Width = rect.Width Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Height = rect.Height Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Visible = True Else Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Visible = False End If End Sub Private Sub Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList_AfterRowSelectEvent(ByVal sender As Object,ByVal e As ControlLib.SelectEventArgs) Handles Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.AfterRowSelectEvent ''处理选择后的数据。把Comb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ListView里面的数据用到DataGridView里面。 Me.DvMaterial.CurrentCell.Value = Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.Text Me.DvMaterial.Rows(Me.DvMaterial.CurrentRow.Index).Cells(5).Value = Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.SelectedRow(2) 'Me.Text = String.Format("SelectedItemIndex:{0}",Cmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>MaterialList.SelectedItemIndex) End Sub