向DataGrid控件中添加ComboBox控件
来源:互联网 发布:搭建云计算平台步骤 编辑:程序博客网 时间:2024/04/29 08:56
在前面看到了很多关于怎样向DataGrid中添加ComboBox控件的方法。使用的方法全部都是在VB6.0中的方法。
我还是要说说在CSND中发贴的朋友。
现在所谓的.NET编程人员,不知道是怎么了呢!只是停留在使用.NET的编程环境中。并没有真正的了解面向对象的.NET编程思想。
我现在就利用继承DataGridColumnStyle完成向DataGrid中添加ComboBox。
希望这样有助于大家了解真正的面向对象编程的思想。不要只是认为利用VB6.0中的某些方法就是.NET高手了:)下面是实现代码:我使用的是VB.NET来完成的。
我熟悉C#,但是VB.NET只是大概了解一下。:)
由于时间关系没有协注释,请见谅!
Public Class DataGridComboColumn
Inherits DataGridColumnStyle
Public WithEvents DGCombo As ComboBox = New ComboBox
Private isEditing As Boolean
Private _strSelectedText As String
Public Sub New()
MyBase.New()
DGCombo.Visible = False
End Sub
Protected Overrides Sub Abort(ByVal rowNum As Integer)
isEditing = False
RemoveHandler DGCombo.SelectedValueChanged, AddressOf DGCombo_SelectedValueChanged
Invalidate()
End Sub
Protected Overrides Function Commit(ByVal dataSource As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Boolean
DGCombo.Bounds = Rectangle.Empty
AddHandler DGCombo.SelectedValueChanged, AddressOf DGCombo_SelectedValueChanged
If isEditing = False Then
Return True
End If
isEditing = False
Try
DGCombo.Text = DGCombo.Text
Catch ex As Exception
DGCombo.Text = String.Empty
End Try
Try
Dim value As String = _strSelectedText
SetColumnValueAtRow(dataSource, rowNum, value)
Catch ex As Exception
Abort(rowNum)
Return False
End Try
Invalidate()
Return True
End Function
Protected Overloads Overrides Sub Edit(ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)
Dim value As String
Try
value = CType(GetColumnValueAtRow(source, rowNum), String)
Catch ex As Exception
SetColumnValueAtRow(source, rowNum, DGCombo.Text)
End Try
value = CType(GetColumnValueAtRow(source, rowNum), String)
If (cellIsVisible) Then
DGCombo.Bounds = New Rectangle(bounds.X, bounds.Y, bounds.Width, bounds.Height)
DGCombo.Text = value
DGCombo.Visible = True
AddHandler DGCombo.SelectedValueChanged, AddressOf DGCombo_SelectedValueChanged
Else
DGCombo.Text = value
DGCombo.Visible = False
End If
If DGCombo.Visible = False Then
DataGridTableStyle.DataGrid.Invalidate(bounds)
End If
End Sub
Protected Overrides Function GetMinimumHeight() As Integer
End Function
Protected Overrides Function GetPreferredHeight(ByVal g As System.Drawing.Graphics, ByVal value As Object) As Integer
End Function
Protected Overrides Function GetPreferredSize(ByVal g As System.Drawing.Graphics, ByVal value As Object) As System.Drawing.Size
End Function
Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing.Graphics, ByVal bounds As System.Drawing.Rectangle, ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer)
Paint(g, bounds, source, rowNum, True)
End Sub
Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing.Graphics, ByVal bounds As System.Drawing.Rectangle, ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal alignToRight As Boolean)
Paint(g, bounds, source, rowNum, Brushes.Red, Brushes.Blue, alignToRight)
End Sub
Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing.Graphics, _
ByVal bounds As System.Drawing.Rectangle, _
ByVal source As System.Windows.Forms.CurrencyManager, _
ByVal rowNum As Integer, _
ByVal backBrush As System.Drawing.Brush, _
ByVal foreBrush As System.Drawing.Brush, _
ByVal alignToRight As Boolean)
Dim strDate As String
Dim rect As RectangleF
Try
strDate = DGCombo.Text
strDate = CType(GetColumnValueAtRow(source, rowNum), String)
Catch ex As Exception
SetColumnValueAtRow(source, rowNum, DGCombo.Text)
strDate = CType(GetColumnValueAtRow(source, rowNum), String)
End Try
rect.X = bounds.X
rect.Y = bounds.Y
rect.Height = bounds.Height
rect.Width = bounds.Width
g.FillRectangle(backBrush, rect)
rect.Offset(0, 2)
rect.Height -= 2
g.DrawString(strDate, Me.DataGridTableStyle.DataGrid.Font, foreBrush, rect)
End Sub
Protected Overrides Sub SetDataGridInColumn(ByVal value As DataGrid)
MyBase.SetDataGridInColumn(value)
If Not (DGCombo.Parent Is Nothing) Then
DGCombo.Parent.Controls.Remove(DGCombo)
End If
If Not (value Is Nothing) Then
value.Controls.Add(DGCombo)
End If
End Sub
Private Sub DGCombo_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGCombo.SelectedValueChanged
isEditing = True
MyBase.ColumnStartedEditing(DGCombo)
_strSelectedText = DGCombo.Text
If _strSelectedText Is Nothing Then
_strSelectedText = String.Empty
End If
End Sub
End Class
以下是使用方法!
Private Sub frmDataGrid_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call TEST()
End Sub
Private Sub TEST()
Dim DT As New DataTable("TEST")
DT.Columns.Add(New DataColumn("ID"))
DT.Columns.Add(New DataColumn("COMBO"))
Call AddGridStyle()
Call ADDDATA(DT)
DBGrid.DataSource = DT
End Sub
Private Sub AddGridStyle()
Dim DBGridStyle As DataGridTableStyle
Dim IDColumn As DataGridTextBoxColumn
Dim DCColumn As DataGridComboColumn
DBGridStyle = New DataGridTableStyle
DBGridStyle.MappingName = "TEST"
IDColumn = New DataGridTextBoxColumn
IDColumn.MappingName = "ID"
IDColumn.HeaderText = "ID"
IDColumn.Alignment = HorizontalAlignment.Center
IDColumn.Width = 50
DBGridStyle.GridColumnStyles.Add(IDColumn)
DCColumn = New DataGridComboColumn
Dim i As Integer
For i = 0 To 25
DCColumn.DGCombo.Items.Add((i + 1).ToString("00000"))
Next
DCColumn.DGCombo.DropDownWidth = 120
DCColumn.MappingName = "COMBO"
DCColumn.HeaderText = "COMBO"
DCColumn.Alignment = HorizontalAlignment.Center
DCColumn.Width = 60
DBGridStyle.GridColumnStyles.Add(DCColumn)
DBGrid.TableStyles.Add(DBGridStyle)
End Sub
Private Sub ADDDATA(ByRef DT As DataTable)
Dim DROW As DataRow
Dim intRow As Integer
For intRow = 0 To 9
DROW = DT.NewRow()
DROW.Item("ID") = Format(intRow + 1, "000")
DROW.Item("COMBO") = Format(intRow + 1, "00000")
DT.Rows.Add(DROW)
Next
DT.AcceptChanges()
End Sub
那么随时在DataGrid中所指定为Combo列中单击。Combo就出现了
- 向DataGrid控件中添加ComboBox控件
- 向 DataGrid Windows 控件中添加分页的步骤
- 将 ComboBox 控件添加到 Windows 窗体 DataGrid 控件
- 向DataGrid、DropDownList控件添加数据
- datagrid控件中添加checkbox控件列
- datagrid控件中添加checkbox控件列
- Datagrid 中添加ComboBox
- winform中comboBox控件添加value值
- 在 System.Windows.Forms.DataGrid中切入使用ComboBox控件
- 在DataGrid中使用下拉列表ComboBox控件
- 在datagrid中添加dropdownlist控件
- 使用 Columns 集合动态向 DataGrid 控件添加列。
- VB.NET Winform 中DATAGRID控件中添加COMBOXBOX控件
- datagrid控件中添加了checkbox控件的使用
- 为ComboBox控件添加图片
- MFC工具栏添加ComboBox控件
- 向日历控件中添加自定义内容
- 如何向编辑控件中添加文本
- 笋干炖排骨 [转自TK's Blog]
- 鸡蓉蛋花汤 [转自 TK's Blog]
- 生活随感 2005-05-15
- 韩式豆腐汤 [转自TK's Blog]
- 李敖大师的经典之语
- 向DataGrid控件中添加ComboBox控件
- oracle中实现主键的自动增加
- 在JBuilder+Tomcat下开发sturts
- JAVA开发者应该去的20个英文网站 [摘]
- sql server 和oracle 所用的sql 语法差别
- [爆笑网文]QQ聊天经典内幕
- CCNA资料简介
- 求教:刚开始学习VB.NET,如何在VB.NET添加WINSOCK控件??
- CCNA认证介绍