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

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

使用代码：

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

（编辑：李大同）

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