VB.Net程序设计:在DataGridView附加多列显示CombBox控件的代码段。

最新推荐文章于 2018-05-20 18:07:12 发布

原创最新推荐文章于 2018-05-20 18:07:12 发布 · 1.8k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #object #ui

2.VB.Net 专栏收录该内容

120 篇文章

订阅专栏

本文介绍了一个使用Visual Basic实现的控件界面UI实战案例。通过创建一个ComboBox组件并将其与DataGridView进行交互，实现了材料列表的选择功能。当点击DataGridView中特定单元格时，ComboBox将显示并允许用户从列表中选择布料名称。

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

多列显示的CombBox

使用代码：

Private WithEvents CmbBoxMaterialList As ControlLib.NeMoCmbBox = New ControlLib.NeMoCmbBox() Private Sub IniCmbListView() Me.CmbBoxMaterialList.Table = (New EvaMaterialClass).GetTableCN() Me.CmbBoxMaterialList.DisplayMember = "布料名称" Me.CmbBoxMaterialList.ValueMember = "布料名称" Me.CmbBoxMaterialList.LvWidth = 450 Me.CmbBoxMaterialList.LvHeight = 200 Me.CmbBoxMaterialList.Visible = False Me.DvMaterial.Controls.Add(CmbBoxMaterialList) End Sub Private Sub DvMaterial_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DvMaterial.CellClick '在第一行显示combox If Me.DvMaterial.CurrentCell.ColumnIndex = 1 Then '确定位置,显示combox Dim rect As Rectangle = Me.DvMaterial.GetCellDisplayRectangle(Me.DvMaterial.CurrentCell.ColumnIndex, Me.DvMaterial.CurrentCell.RowIndex, False) CmbBoxMaterialList.Left = rect.Left CmbBoxMaterialList.Top = rect.Top CmbBoxMaterialList.Width = rect.Width CmbBoxMaterialList.Height = rect.Height CmbBoxMaterialList.Visible = True Else CmbBoxMaterialList.Visible = False End If End Sub Private Sub CmbBoxMaterialList_AfterRowSelectEvent(ByVal sender As Object, ByVal e As ControlLib.SelectEventArgs) Handles CmbBoxMaterialList.AfterRowSelectEvent ''处理选择后的数据。把CombBoxListView里面的数据用到DataGridView里面。 Me.DvMaterial.CurrentCell.Value = CmbBoxMaterialList.Text Me.DvMaterial.Rows(Me.DvMaterial.CurrentRow.Index).Cells(5).Value = CmbBoxMaterialList.SelectedRow(2) 'Me.Text = String.Format("SelectedItemIndex:{0}", CmbBoxMaterialList.SelectedItemIndex) End Sub