DataGridViewMultiColumnCombobox 代码

DataGridViewCells Control 包括三个部分东西.

 

Class : DataGridViewMultiColumnCombobox

Imports SystemImports System.Windows.FormsImports System.ComponentModelImports System.TextPublic Class DataGridViewMultiColumnCombobox Inherits DataGridViewColumn Public Sub New() MyBase.New(New DataGridViewMultiColumnComboboxCell()) End Sub Public Overloads Property CellTemplete() As DataGridViewCell Get Return MyBase.CellTemplate End Get Set(ByVal value As DataGridViewCell) If (value IsNot Nothing) AndAlso _ Not value.GetType().IsAssignableFrom(GetType(DataGridViewMultiColumnComboboxCell)) _ Then Throw New InvalidCastException("Must be a multi-column combobox cell") End If MyBase.CellTemplate = value End Set End Property#Region " Customize property " <Category("Lookup Grid")> _ Public Property BindingSource() As BindingSource Get Return MultiColumnComboboxCellTemplate.BindingSource End Get Set(ByVal value As BindingSource) MultiColumnComboboxCellTemplate.BindingSource = value End Set End Property <Category("Lookup Grid")> _ Public Property DropDownHeight() As Int32 Get Return MultiColumnComboboxCellTemplate.DropDownHeight End Get Set(ByVal value As Int32) MultiColumnComboboxCellTemplate.DropDownHeight = value End Set End Property <Category("Lookup Grid")> _ Public Property FlatStype() As FlatStyle Get Return MultiColumnComboboxCellTemplate.FlatStyle End Get Set(ByVal value As FlatStyle) MultiColumnComboboxCellTemplate.FlatStyle = value End Set End Property Private ReadOnly Property MultiColumnComboboxCellTemplate() As DataGridViewMultiColumnComboboxCell Get Return DirectCast(CellTemplate, DataGridViewMultiColumnComboboxCell) End Get End Property#End RegionEnd Class

 

Class : DataGridViewMulticolumnComboboxCell

Public Class DataGridViewMultiColumnComboboxCell Inherits DataGridViewTextBoxCell Public Sub New() MyBase.New() ' http://msdn.microsoft.com/zh-cn/library/7tas5c80.aspx '当从 DataGridViewCell 或 DataGridViewColumn 派生并向派生类添加新属性时， '请确保重写 Clone 方法以便在克隆操作期间复制新属性。还应调用基类的 Clone 方法， '以便将基类的属性复制到新的单元格或列中。 'MyBase.Clone() End Sub#Region "Customize property" Private bindingSourceValue As BindingSource Public Property BindingSource() As BindingSource Get Return bindingSourceValue End Get Set(ByVal value As BindingSource) bindingSourceValue = value End Set End Property Private dropDownHeightValue As Int32 = 1 Public Property DropDownHeight() As Int32 Get Return dropDownHeightValue End Get Set(ByVal value As Int32) dropDownHeightValue = value End Set End Property Private flatStyleValue As FlatStyle Public Property FlatStyle() As FlatStyle Get Return flatStyleValue End Get Set(ByVal value As FlatStyle) flatStyleValue = value End Set End Property Public Overloads Overrides Function Clone() As Object Dim cell As DataGridViewMultiColumnComboboxCell = _ TryCast(MyBase.Clone(), DataGridViewMultiColumnComboboxCell) cell.BindingSource = Me.BindingSource Return cell End Function#End Region Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, _ ByVal initialFormattedValue As Object, _ ByVal dataGridViewCellStyle As System.Windows.Forms.DataGridViewCellStyle) MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle) Dim ctrl As DataGridViewMultiColumnComboboxEditingControl = _ CType(DataGridView.EditingControl, _ DataGridViewMultiColumnComboboxEditingControl) ctrl.Text = Me.Value ctrl.FlatStyle = Me.FlatStyle ctrl.DropDownHeight = Me.DropDownHeight ctrl.BindingSource = Me.BindingSource End Sub Public Overrides ReadOnly Property EditType() As System.Type Get Return GetType(DataGridViewMultiColumnComboboxEditingControl) End Get End Property Public Overrides ReadOnly Property ValueType() As System.Type Get Return GetType(String) End Get End Property Public Overrides ReadOnly Property DefaultNewRowValue() As Object Get Return "" End Get End PropertyEnd Class

 

Class : DataGridViewMultiColumnComboboxEditingControl

Class DataGridViewMultiColumnComboboxEditingControl Inherits MultiColumnCombobox Implements IDataGridViewEditingControl Private dataGridViewControl As DataGridView Private valueIsChanged As Boolean = False Private rowIndexNum As Integer Public Sub ApplyCellStyleToEditingControl( _ ByVal dataGridViewCellStyle As System.Windows.Forms.DataGridViewCellStyle) _ Implements System.Windows.Forms.IDataGridViewEditingControl.ApplyCellStyleToEditingControl Me.Font = dataGridViewCellStyle.Font Me.ForeColor = dataGridViewCellStyle.ForeColor Me.BackColor = dataGridViewCellStyle.BackColor End Sub Public Property EditingControlDataGridView() As System.Windows.Forms.DataGridView _ Implements System.Windows.Forms.IDataGridViewEditingControl.EditingControlDataGridView Get Return dataGridViewControl End Get Set(ByVal value As System.Windows.Forms.DataGridView) dataGridViewControl = value End Set End Property Public Property EditingControlFormattedValue() As Object _ Implements System.Windows.Forms.IDataGridViewEditingControl.EditingControlFormattedValue Get Return Me.Text End Get Set(ByVal value As Object) Me.Text = value.ToString End Set End Property Public Property EditingControlRowIndex() As Integer _ Implements System.Windows.Forms.IDataGridViewEditingControl.EditingControlRowIndex Get Return rowIndexNum End Get Set(ByVal value As Integer) rowIndexNum = value End Set End Property Public Property EditingControlValueChanged() As Boolean _ Implements System.Windows.Forms.IDataGridViewEditingControl.EditingControlValueChanged Get Return valueIsChanged End Get Set(ByVal value As Boolean) valueIsChanged = value End Set End Property Public Function EditingControlWantsInputKey(ByVal keyData As System.Windows.Forms.Keys, _ ByVal dataGridViewWantsInputKey As Boolean) As Boolean _ Implements System.Windows.Forms.IDataGridViewEditingControl.EditingControlWantsInputKey Select Case keyData And Keys.KeyCode Case Keys.Left, _ Keys.Up, _ Keys.Down, _ Keys.Right, _ Keys.Home, _ Keys.End, _ Keys.PageDown, _ Keys.PageUp Return True Case Else Return Not dataGridViewWantsInputKey End Select End Function Public ReadOnly Property EditingPanelCursor() As System.Windows.Forms.Cursor _ Implements System.Windows.Forms.IDataGridViewEditingControl.EditingPanelCursor Get Return MyBase.Cursor End Get End Property Public Function GetEditingControlFormattedValue( _ ByVal context As System.Windows.Forms.DataGridViewDataErrorContexts) As Object _ Implements System.Windows.Forms.IDataGridViewEditingControl.GetEditingControlFormattedValue Return Me.Text End Function Public Sub PrepareEditingControlForEdit(ByVal selectAll As Boolean) _ Implements System.Windows.Forms.IDataGridViewEditingControl.PrepareEditingControlForEdit End Sub Public ReadOnly Property RepositionEditingControlOnValueChange() As Boolean _ Implements System.Windows.Forms.IDataGridViewEditingControl.RepositionEditingControlOnValueChange Get Return False End Get End Property Protected Overrides Sub OnTextChanged(ByVal eventargs As System.EventArgs) MyBase.OnTextChanged(eventargs) NotifyDataGridViewOfValueChange() End Sub Private Sub NotifyDataGridViewOfValueChange() valueIsChanged = True dataGridViewControl.NotifyCurrentCellDirty(True) End SubEnd Class