vb.net datagridview 使用方法

vb.net datagridview 使用方法,第1张

概述目录: 1、 取得或者修改当前单元格的内容 2、 设定单元格只读 3、 不显示最下面的新行 4、 判断新增行 5、 行的用户删除 *** 作的自定义 6、 行、列的隐藏和删除 7、 禁止列或者行的Resize 8、 列宽和行高以及列头的高度和行头的宽度的自动调整 9、 冻结列或行 10、 列顺序的调整 11、 行头列头的单元格 12、 剪切板的 *** 作 13、 单元格的ToolTip的设置 14、 右键菜单(

目录:
1、 取得或者修改当前单元格的内容
2、 设定单元格只读
3、 不显示最下面的新行
4、 判断新增行
5、 行的用户删除 *** 作的自定义
6、 行、列的隐藏和删除
7、 禁止列或者行的Resize
8、 列宽和行高以及列头的高度和行头的宽度的自动调整
9、 冻结列或行
10、 列顺序的调整
11、 行头列头的单元格
12、 剪切板的 *** 作
13、 单元格的tooltip的设置
14、 右键菜单(ContextMenuStrip)的设置
15、 单元格的边框、 网格线样式的设定
16、 单元格表示值的设定
17、 用户输入时,单元格输入值的设定
18、 设定新加行的默认值

1、 DataGrIDVIEw 取得或者修改当前单元格的内容:

当前单元格指的是 DataGrIDVIEw 焦点所在的单元格,它可以通过 DataGrIDVIEw 对象的 CurrentCell 属性取得。如果当前单元格不存在的时候,返回nothing(C#是null)
[VB.NET]
' 取得当前单元格内容
Console.Writeline(DataGrIDVIEw1.CurrentCell.Value)
' 取得当前单元格的列 Index
Console.Writeline(DataGrIDVIEw1.CurrentCell.ColumnIndex)
' 取得当前单元格的行 Index
Console.Writeline(DataGrIDVIEw1.CurrentCell.RowIndex)

另外,使用 DataGrIDVIEw.CurrentCellAddress 属性(而不是直接访问单元格)来确定单元格所在的行:DataGrIDVIEw.CurrentCellAddress.Y 和列: DataGrIDVIEw.CurrentCellAddress.X 。这对于避免取消共享行的共享非常有用。

当前的单元格可以通过设定 DataGrIDVIEw 对象的 CurrentCell 来改变。可以通过 CurrentCell 来设定
DataGrIDVIEw 的激活单元格。将 CurrentCell 设为 nothing(null) 可以取消激活的单元格。

[VB.NET]
' 设定 (0,0) 为当前单元格
DataGrIDVIEw1.CurrentCell = DataGrIDVIEw1(0,0)


--------------------------------------------------------------------------------
2、 DataGrIDVIEw 设定单元格只读:

1) 使用 Readonly 属性
 如果希望,DataGrIDVIEw 内所有单元格都不可编辑, 那么只要:
[VB.NET]
' 设置 DataGrIDVIEw1 为只读
DataGrIDVIEw1.Readonly = True

 如果希望,DataGrIDVIEw 内某个单元格不可编辑, 那么只要:
[VB.NET]
' 设置 DataGrIDVIEw1 的第2列整列单元格为只读
DataGrIDVIEw1.Columns(1).Readonly = True

' 设置 DataGrIDVIEw1 的第3行整行单元格为只读
DataGrIDVIEw1.Rows(2).Readonly = True

' 设置 DataGrIDVIEw1 的[0,0]单元格为只读
DataGrIDVIEw1(0,0).Readonly = True

2) 使用 EditMode 属性
DataGrIDVIEw.EditMode 属性被设置为 DataGrIDVIEwEditMode.EditProgrammatically 时,用户就不能手动编辑单元格的内容了。但是可以通过程序,调用 DataGrIDVIEw.BeginEdit 方法,使单元格进入编辑模式进行编辑。
[VB.NET]
DataGrIDVIEw1.EditMode = DataGrIDVIEwEditMode.EditProgrammatically

3) 根据条件设定单元格的不可编辑状态
当一个一个的通过单元格坐标设定单元格 Readonly 属性的方法太麻烦的时候,你可以通过 CellBeginEdit 事件来取消单元格的编辑。
[VB.NET]
'CellBeginEdit 事件处理方法
Private Sub DataGrIDVIEw1_CellBeginEdit(ByVal sender As Object,_
ByVal e As DataGrIDVIEwCellCancelEventArgs) _
Handles DataGrIDVIEw1.CellBeginEdit
Dim dgv As DataGrIDVIEw = CType(sender,DataGrIDVIEw)
' 是否可以进行编辑的条件检查
If dgv.Columns(e.ColumnIndex).name = "Column1" AndAlso _
Not CBool(dgv("Column2",e.RowIndex).Value) Then
' 取消编辑
e.Cancel = True
End If
End Sub
--------------------------------------------------------------------------------
3、 DataGrIDVIEw 不显示最下面的新行:

通常 DataGrIDVIEw 的最下面一行是用户新追加的行(行头显示 * )。如果不想让用户新追加行即不想显示该新行,可以将 DataGrIDVIEw 对象的 AllowUserToAddRows 属性设置为 False。
[VB.NET]
' 设置用户不能手动给 DataGrIDVIEw1 添加新行
DataGrIDVIEw1.AllowUserToAddRows = False

补足: 如果 DataGrIDVIEw 的 DataSource 绑定的是 DataVIEw,还可以通过设置 DataVIEw.AllowAdd
属性为 False 来达到同样的效果。


--------------------------------------------------------------------------------
4、 DataGrIDVIEw 判断新增行:

DataGrIDVIEw的AllowUserToAddRows属性为True时也就是允许用户追加新行的场合下,DataGrIDVIEw的最后一行就是新追加的行(*行)。使用 DataGrIDVIEwRow.IsNewRow 属性可以判断哪一行是新追加的行。另外,通过DataGrIDVIEw.NewRowIndex 可以获取新行的行序列号。在没有新行的时候,NewRowIndex = -1。[VB.NET]
If DataGrIDVIEw1.CurrentRow.IsNewRow Then
Console.Writeline("当前行为新追加行。")
Else
Console.Writeline("当前行不是新追加行。")
End If

--------------------------------------------------------------------------------
5、 DataGrIDVIEw 行的用户删除 *** 作的自定义:

1) 无条件的限制行删除 *** 作。
默认时,DataGrIDVIEw 是允许用户进行行的删除 *** 作的。如果设置 DataGrIDVIEw对象的AllowUserToDeleteRows属性为 False 时, 用户的行删除 *** 作就被禁止了。
[VB.NET]
' 禁止DataGrIDVIEw1的行删除 *** 作。
DataGrIDVIEw1.AllowUserToDeleteRows = False

但是,通过 DataGrIDVIEwRowCollection.Remove 还是可以进行行的删除。
补足: 如果 DataGrIDVIEw 绑定的是 DataVIEw 的话,通过 DataVIEw.AllowDelete 也可以控制行的删除。

2) 行删除时的条件判断处理。
用户在删除行的时候,将会引发 DataGrIDVIEw.UserDeletingRow 事件。 在这个事件里,可以判断条件并取消删除 *** 作。
[VB.NET]
' DataGrIDVIEw1 的 UserDeletingRow 事件
Private Sub DataGrIDVIEw1_UserDeletingRow(ByVal sender As Object,_
ByVal e As DataGrIDVIEwRowCancelEventArgs) _
Handles DataGrIDVIEw1.UserDeletingRow
' 删除前的用户确认。
If MessageBox.Show("确认要删除该行数据吗?","删除确认",_
MessageBoxbuttons.OKCancel,MessageBoxIcon.Question) <> _
windows.Forms.DialogResult.OK Then
' 如果不是 OK,则取消。
e.Cancel = True
End If
End Sub
--------------------------------------------------------------------------------
6、 DataGrIDVIEw 行、列的隐藏和删除:

1) 行、列的隐藏
[VB.NET]
' DataGrIDVIEw1的第一列隐藏
DataGrIDVIEw1.Columns(0).Visible = False
' DataGrIDVIEw1的第一行隐藏
DataGrIDVIEw1.Rows(0).Visible = False

2) 行头、列头的隐藏
[VB.NET]
' 列头隐藏
DataGrIDVIEw1.ColumnheadersVisible = False
' 行头隐藏
DataGrIDVIEw1.RowheadersVisible = False

3) 行和列的删除
[VB.NET]
' 删除名为"Column1"的列
DataGrIDVIEw1.Columns.Remove("Column1")
' 删除第一列
DataGrIDVIEw1.Columns.RemoveAt(0)
' 删除第一行
DataGrIDVIEw1.Rows.RemoveAt(0)

4) 删除选中行
[VB.NET]
For Each r As DataGrIDVIEwRow In DataGrIDVIEw1.SelectedRows
If Not r.IsNewRow Then
DataGrIDVIEw1.Rows.Remove(r)
End If
Next

--------------------------------------------------------------------------------
7、 DataGrIDVIEw 禁止列或者行的Resize:

1) 禁止所有的列或者行的Resize
[VB.NET]
' 禁止用户改变DataGrIDVIEw1的所有列的列宽
DataGrIDVIEw1.AllowUserToResizeColumns = False

'禁止用户改变DataGrIDVIEw1の所有行的行高
DataGrIDVIEw1.AllowUserToResizeRows = False


2) 禁止指定行或者列的Resize
[VB.NET]
' 禁止用户改变DataGrIDVIEw1的第一列的列宽
DataGrIDVIEw1.Columns(0).Resizable = DataGrIDVIEwTriState.False

' 禁止用户改变DataGrIDVIEw1的第一列的行宽
DataGrIDVIEw1.Rows(0).Resizable = DataGrIDVIEwTriState.False

关于 NoSet

当 Resizable 属性设为 DataGrIDVIEwTriState.NotSet 时, 实际上会默认以 DataGrIDVIEw 的 AllowUserToResizeColumns 和 AllowUserToResizeRows 的属性值进行设定。比如: DataGrIDVIEw.AllowUserToResizeColumns = False 且 Resizable 是 NoSet 设定时,Resizable = False 。


判断 Resizable 是否是继承设定了 DataGrIDVIEw 的 AllowUserToResizeColumns 和 AllowUserToResizeRows 的属性值, 可以根据 State 属性判断。如果 State 属性含有 ResizableSet,那么说明没有继承设定。


3) 列宽和行高的最小值的设定
[VB.NET]
' 第一列的最小列宽设定为 100
DataGrIDVIEw1.Columns(0).MinimumWIDth = 100

' 第一行的最小行高设定为 50
DataGrIDVIEw1.Rows(0).MinimumHeight = 50

4) 禁止用户改变行头的宽度以及列头的高度
[VB.NET]
' 禁止用户改变列头的高度
DataGrIDVIEw1.ColumnheadersHeightSizeMode = _
DataGrIDVIEwColumnheadersHeightSizeMode.disableResizing

' 禁止用户改变行头的宽度
DataGrIDVIEw1.RowheadersWIDthSizeMode = _
DataGrIDVIEwRowheadersWIDthSizeMode.EnableResizing

--------------------------------------------------------------------------------
8、 DataGrIDVIEw 列宽和行高自动调整的设定:

1) 设定行高和列宽自动调整
[VB.NET]
' 设定包括header和所有单元格的列宽自动调整
DataGrIDVIEw1.autoSizeColumnsMode = DataGrIDVIEwautoSizeColumnsMode.AllCells

' 设定包括header和所有单元格的行高自动调整
DataGrIDVIEw1.autoSizeRowsMode = DataGrIDVIEwautoSizeRowsMode.AllCells

2)指定列或行自动调整
[VB.NET]
' 第一列自动调整
DataGrIDVIEw1.Columns(0).autoSizeMode = _
DataGrIDVIEwautoSizeColumnMode.displayedCells

3) 设定列头的高度和行头的宽度自动调整[VB.NET]
' 设定列头的宽度可以自由调整
DataGrIDVIEw1.ColumnheadersHeightSizeMode = _
DataGrIDVIEwColumnheadersHeightSizeMode.autoSize

' 设定行头的宽度可以自由调整
DataGrIDVIEw1.RowheadersWIDthSizeMode = _
DataGrIDVIEwRowheadersWIDthSizeMode.autoSizetoAllheaders

4) 随时自动调整
a, 临时的,让列宽自动调整,这和指定autoSizeColumnsMode属性一样。[VB.NET]
' 让 DataGrIDVIEw1 的所有列宽自动调整一下。
DataGrIDVIEw1.autoResizeColumns(DataGrIDVIEwautoSizeColumnsMode.AllCells)

' 让 DataGrIDVIEw1 的第一列的列宽自动调整一下。
DataGrIDVIEw1.autoResizeColumn(0,DataGrIDVIEwautoSizeColumnMode.AllCells)

b,临时的,让行高自动调整
[VB.NET]
' 让 DataGrIDVIEw1 的所有行高自动调整一下。
DataGrIDVIEw1.autoResizeRows(DataGrIDVIEwautoSizeRowsMode.AllCells)

' 让 DataGrIDVIEw1 的第一行的行高自动调整一下。
DataGrIDVIEw1.autoResizeRow(0,DataGrIDVIEwautoSizeRowMode.AllCells)

c,临时的,让行头和列头自动调整
[VB.NET]
' 列头高度自动调整
DataGrIDVIEw1.autoResizeColumnheadersHeight()

' 行头宽度自动调整
DataGrIDVIEw1.autoResizeRowheadersWIDth( _
DataGrIDVIEwRowheadersWIDthSizeMode.autoSizetoAllheaders)

关于性能:
通过 autoSizeColumnsMode 或者 autoSizeRowsMode 属性所指定的单元格进行自动调整时,如果调整次数过于多那么将可能导致性能下降,尤其是在行和列数比较多的情况下。在这时用 displayedCells 代替 AllCells 能减少非所见的单元格的调整,从而提高性能。

--------------------------------------------------------------------------------
9、 DataGrIDVIEw 冻结列或行

1) 列冻结
DataGrIDVIEwColumn.FroZen 属性为 True 时, 该列左侧的所有列被固定, 横向滚动时固定列不随滚动条滚动而左右移动。这对于重要列固定显示很有用。

[VB.NET]
' DataGrIDVIEw1的左侧2列固定
DataGrIDVIEw1.Columns(1).FroZen = True

2) 行冻结
DataGrIDVIEwRow.FroZen 属性为 True 时, 该行上面的所有行被固定, 纵向滚动时固定行不随滚动条滚动而上下移动。
[VB.NET]
' DataGrIDVIEw1 的上3行固定
DataGrIDVIEw1.Rows(2).FroZen = True

--------------------------------------------------------------------------------
10、 DataGrIDVIEw 列顺序的调整

设定 DataGrIDVIEw 的 AllowUserToOrderColumns 为 True 的时候, 用户可以自由调整列的顺序。
当用户改变列的顺序的时候,其本身的 Index 不会改变,但是 displayIndex 改变了。你也可以通过程序改变 displayIndex 来改变列的顺序。 列顺序发生改变时会引发 ColumndisplayIndexChanged 事件:
[VB.NET]
' DataGrIDVIEw1的ColumndisplayIndexChanged事件处理方法
Private Sub DataGrIDVIEw1_ColumndisplayIndexChanged(ByVal sender As Object,_
ByVal e As DataGrIDVIEwColumnEventArgs) _
Handles DataGrIDVIEw1.ColumndisplayIndexChanged
Console.Writeline("{0} 的位置改变到 {1} 。",_
e.Column.name,e.Column.displayIndex)
End Sub

--------------------------------------------------------------------------------
11、 DataGrIDVIEw 行头列头的单元格

[VB.NET]
' DataGrIDVIEw1的第一列列头内容
DataGrIDVIEw1.Columns(0).headerCell.Value = "第一列"

' DataGrIDVIEw1的第一行行头内容
DataGrIDVIEw1.Rows(0).headerCell.Value = "第一行"

' DataGrIDVIEw1的左上头部单元内容
DataGrIDVIEw1.topleftheaderCell.Value = "左上"

[VB.NET]
' 改变DataGrIDVIEw1的第一列列头内容
DataGrIDVIEw1.Columns(0).headerText = "第一列"

--------------------------------------------------------------------------------
12、 DataGrIDVIEw 剪切板的 *** 作

DataGrIDVIEw.ClipboardcopyMode 属性被设定为 DataGrIDVIEwClipboardcopyMode.disable 以外的情况时,「Ctrl + C」 按下的时候,被选择的单元格的内容会拷贝到系统剪切板内。格式有: Text, UnicodeText,HTML, CommaSeparatedValue。可以直接粘贴到 Excel 内。

ClipboardcopyMode 还可以设定 header部分是否拷贝: EnableAlwaysIncludeheaderText 拷贝header部分、EnableWithoutheaderText 则不拷贝。默认是 EnableWithautoheaderText , header 如果选择了的话,就拷贝。

1) 编程方式实现剪切板的拷贝

Clipboard.SetDataObject(DataGrIDVIEw1.GetClipboardContent())

2) DataGrIDVIEw 的数据粘贴

实现剪切板的拷贝比较容易,但是实现 DataGrIDVIEw 的直接粘贴就比较难了。「Ctrl + V」按下进行粘贴时,DataGrIDVIEw 没有提供方法,只能自己实现。

以下,是粘贴时简单的事例代码,将拷贝数据粘贴到以选择单元格开始的区域内。
[VB.NET]
' 当前单元格是否选择的判断
If DataGrIDVIEw1.CurrentCell Is nothing Then
Return
End If
Dim insertRowIndex As Integer = DataGrIDVIEw1.CurrentCell.RowIndex

' 获取剪切板的内容,并按行分割
Dim pasteText As String = Clipboard.GetText()
If String.IsNullOrEmpty(pasteText) Then
Return
End If
pasteText = pasteText.Replace(vbCrLf,vbLf)
pasteText = pasteText.Replace(vbCr,vbLf)
pasteText.TrimEnd(New Char() {vbLf})
Dim lines As String() = pasteText.Split(vbLf)

Dim isheader As Boolean = True
For Each line As String In lines
' 是否是列头
If isheader Then
isheader = False
Else
' 按 Tab 分割数据
Dim vals As String() = line.Split(ControlChars.Tab)
' 判断列数是否统一
If vals.Length - 1 <> DataGrIDVIEw1.ColumnCount Then
Throw New ApplicationException("粘贴的列数不正确。")
End If
Dim row As DataGrIDVIEwRow = DataGrIDVIEw1.Rows(insertRowIndex)
' 行头设定
row.headerCell.Value = vals(0)
' 单元格内容设定
Dim i As Integer
For i = 0 To row.Cells.Count - 1
row.Cells(i).Value = vals((i + 1))
Next i

' DataGrIDVIEw的行索引+1
insertRowIndex += 1
End If
Next line

--------------------------------------------------------------------------------
13、 DataGrIDVIEw 单元格的tooltip的设置

DataGrIDVIEw.ShowCelltooltips = True 的情况下, 单元格的 tooltip 可以表示出来。对于单元格窄小,无法完全显示的单元格, tooltip 可以显示必要的信息。

1) 设定单元格的tooltip内容
[VB.NET]
' 设定单元格的tooltip内容
DataGrIDVIEw1(0,0).tooltipText = "该单元格的内容不能修改"

' 设定列头的单元格的tooltip内容
DataGrIDVIEw1.Columns(0).tooltipText = "该列只能输入数字"

' 设定行头的单元格的tooltip内容
DataGrIDVIEw1.Rows(0).headerCell.tooltipText = "该行单元格内容不能修改"

2) CelltooltipTextNeeded 事件
在批量的单元格的 tooltip 设定的时候,一个一个指定那么设定的效率比较低, 这时候可以利用 CelltooltipTextNeeded 事件。当单元格的 tooltipText 变化的时候也会引发该事件。但是,当DataGrIDVIEw的DataSource被指定且VirualMode=True的时候,该事件不会被引发。

[VB.NET]
' CelltooltipTextNeeded事件处理方法
Private Sub DataGrIDVIEw1_CelltooltipTextNeeded(ByVal sender As Object,_
ByVal e As DataGrIDVIEwCelltooltipTextNeededEventArgs) _
Handles DataGrIDVIEw1.CelltooltipTextNeeded
e.tooltipText = e.ColumnIndex.ToString() + "," + e.RowIndex.ToString()
End Sub

--------------------------------------------------------------------------------
14、 DataGrIDVIEw 的右键菜单(ContextMenuStrip)

DataGrIDVIEw,DataGrIDVIEwColumn,DataGrIDVIEwRow,DataGrIDVIEwCell 有 ContextMenuStrip 属性。可以通过设定 ContextMenuStrip 对象来控制 DataGrIDVIEw 的右键菜单的显示。 DataGrIDVIEwColumn 的 ContextMenuStrip 属性设定了 除了列头以外的单元格的右键菜单。 DataGrIDVIEwRow 的 ContextMenuStrip 属性设定了除了行头以外的单元格的右键菜单。DataGrIDVIEwCell 的 ContextMenuStrip 属性设定了指定单元格的右键菜单。

[VB.NET]
' DataGrIDVIEw 的 ContextMenuStrip 设定
DataGrIDVIEw1.ContextMenuStrip = Me.ContextMenuStrip1

' 列的 ContextMenuStrip 设定
DataGrIDVIEw1.Columns(0).ContextMenuStrip = Me.ContextMenuStrip2
' 列头的 ContextMenuStrip 设定
DataGrIDVIEw1.Columns(0).headerCell.ContextMenuStrip = Me.ContextMenuStrip2

' 行的 ContextMenuStrip 设定
DataGrIDVIEw1.Rows(0).ContextMenuStrip = Me.ContextMenuStrip3

' 单元格的 ContextMenuStrip 设定
DataGrIDVIEw1(0,0).ContextMenuStrip = Me.ContextMenuStrip4


利用 CellContextMenuStripNeeded 事件可以设定单元格的右键菜单,尤其但需要右键菜单根据单元格值的变化而变化的时候。比起使用循环遍历,使用该事件来设定右键菜单的效率更高。但是,在DataGrIDVIEw使用了DataSource绑定而且是VirtualMode的时候,该事件将不被引发。


[VB.NET]
' CellContextMenuStripNeeded事件处理方法
Private Sub DataGrIDVIEw1_CellContextMenuStripNeeded( _
ByVal sender As Object,_
ByVal e As DataGrIDVIEwCellContextMenuStripNeededEventArgs) _
Handles DataGrIDVIEw1.CellContextMenuStripNeeded
Dim dgv As DataGrIDVIEw = CType(sender,DataGrIDVIEw)
If e.RowIndex < 0 Then
' 列头的ContextMenuStrip设定
e.ContextMenuStrip = Me.ContextMenuStrip1
ElseIf e.ColumnIndex < 0 Then
' 行头的ContextMenuStrip设定
e.ContextMenuStrip = Me.ContextMenuStrip2
ElseIf TypeOf (dgv(e.ColumnIndex,e.RowIndex).Value) Is Integer Then
' 如果单元格值是整数时
e.ContextMenuStrip = Me.ContextMenuStrip3
End If
End Sub

同样,可以通过 RowContextMenuStripNeeded 事件来设定行的右键菜单。
[VB.NET]
' RowContextMenuStripNeeded事件处理方法
Private Sub DataGrIDVIEw1_RowContextMenuStripNeeded( _
ByVal sender As Object,_
ByVal e As DataGrIDVIEwRowContextMenuStripNeededEventArgs) _
Handles DataGrIDVIEw1.RowContextMenuStripNeeded
Dim dgv As DataGrIDVIEw = CType(sender,DataGrIDVIEw)
' 当"Column1"列是Bool型且为True时、设定其的ContextMenuStrip
Dim boolVal As Object = dgv("Column1",e.RowIndex).Value
Console.Writeline(boolVal)
If TypeOf boolVal Is Boolean AndAlso CBool(boolVal) Then
e.ContextMenuStrip = Me.ContextMenuStrip1
End If
End Sub

CellContextMenuStripNeeded 事件处理方法的参数中、「e.ColumnIndex=-1」表示行头、「e.RowIndex=-1」表示列头。RowContextMenuStripNeeded则不存在「e.RowIndex=-1」的情况。


--------------------------------------------------------------------------------
15、 DataGrIDVIEw 的单元格的边框、 网格线样式的设定

1) DataGrIDVIEw 的边框线样式的设定
DataGrIDVIEw 的边框线的样式是通过 DataGrIDVIEw.borderStyle 属性来设定的。 borderStyle 属性设定值是一个
borderStyle 枚举: FixedSingle(单线,默认)、Fixed3D、None。

2) 单元格的边框线样式的设定
单元格的边框线的样式是通过 DataGrIDVIEw.CellborderStyle 属性来设定的。 CellborderStyle 属性设定值是
DataGrIDVIEwCellborderStyle 枚举。(详细参见 MSDN)
另外,通过 DataGrIDVIEw.ColumnheadersborderStyle 和 RowheadersborderStyle 属性可以修改 DataGrIDVIEw 的头部的单元格边框线样式。 属性设定值是 DatagridviewheaderborderStyle 枚举。(详细参见 MSDN)

3) 单元格的边框颜色的设定
单元格的边框线的颜色可以通过 DataGrIDVIEw.GrIDcolor 属性来设定的。默认是 ControlDarkDark 。但是只有在 CellborderStyle 被设定为 Single、SingleHorizontal、SingLevertical 的条件下才能改变其边框线的颜色。同样,ColumnheadersborderStyle 以及 RowheadersborderStyle 只有在被设定为 Single 时,才能改变颜色。

4) 单元格的上下左右的边框线式样的单独设定
CellborderStyle只能设定单元格全部边框线的式样。要单独改变单元格某一边边框式样的话,需要用到DataGrIDVIEw.AdvancedCellborderStyle属性。如示例:
[VB.NET]
' 单元格的上边和左边线设为二重线
' 单元格的下边和右边线设为单重线
DataGrIDVIEw1.AdvancedCellborderStyle.top = _
DataGrIDVIEwAdvancedCellborderStyle.InsetDouble
DataGrIDVIEw1.AdvancedCellborderStyle.Right = _
DataGrIDVIEwAdvancedCellborderStyle.Inset
DataGrIDVIEw1.AdvancedCellborderStyle.Bottom = _
DataGrIDVIEwAdvancedCellborderStyle.Inset
DataGrIDVIEw1.AdvancedCellborderStyle.left = _
DataGrIDVIEwAdvancedCellborderStyle.InsetDouble
同样,设定行头单元格的属性是: AdvancedRowheadersborderStyle, 设定列头单元格属性是:AdvancedColumnheadersborderStyle。


--------------------------------------------------------------------------------
16、 DataGrIDVIEw 单元格表示值的自定义

通过CellFormatting事件,可以自定义单元格的表示值。(比如:值为Error的时候,单元格被设定为红色)
下面的示例:将“Colmn1”列的值改为大写。
[VB.NET]
'CellFormatting 事件处理方法
Private Sub DataGrIDVIEw1_CellFormatting(ByVal sender As Object,_
ByVal e As DataGrIDVIEwCellFormattingEventArgs) _
Handles DataGrIDVIEw1.CellFormatting
Dim dgv As DataGrIDVIEw = CType(sender,DataGrIDVIEw)

' 如果单元格是“Column1”列的单元格
If dgv.Columns(e.ColumnIndex).name = "Column1" AndAlso _
TypeOf e.Value Is String Then
' 将单元格值改为大写
Dim str As String = e.Value.ToString()
e.Value = str.toupper()
' 应用该Format,Format完毕。
e.FormattingApplIEd = True
End If
End Sub

CellFormatting事件的DataGrIDVIEwCellFormattingEventArgs对象的Value属性一开始保存着未被格式化的值。当Value属性被设定表示用的文本之后,把FormattingApplIEd属性做为True,告知DataGrIDVIEw文本已经格式化完毕。如果不这样做的话,DataGrIDVIEw会根据已经设定的Format,NullValue,DataSourceNullValue,FormatProvIDer属性会将Value属性会被重新格式化一遍。


--------------------------------------------------------------------------------
17、 DataGrIDVIEw 用户输入时,单元格输入值的设定

通过 DataGrIDVIEw.CellParsing 事件可以设定用户输入的值。下面的示例:当输入英文文本内容的时候,立即被改变为大写。
[VB.NET]
'CellParsing 事件处理方法
Private Sub DataGrIDVIEw1_CellParsing(ByVal sender As Object,_
ByVal e As DataGrIDVIEwCellParsingEventArgs) _
Handles DataGrIDVIEw1.CellParsing
Dim dgv As DataGrIDVIEw = CType(sender,51); Font-family: Arial; Font-size: 14px; line-height: 26px;"> ' 单元格列为“Column1”时
If dgv.Columns(e.ColumnIndex).name = "Column1" AndAlso _
e.DesiredType Is GetType(String) Then
' 将单元格值设为大写
e.Value = e.Value.ToString().toupper()
' 解析完毕
e.ParsingApplIEd = True
End If
End Sub

--------------------------------------------------------------------------------
18、 DataGrIDVIEw 新加行的默认值的设定

需要指定新加行的默认值的时候,可以在DataGrIDVIEw.DefaultValuesNeeded事件里处理。在该事件中处理除了可以设定默认值以外,还可以指定某些特定的单元格的Readonly属性等。 [VB.NET] ' DefaultValuesNeeded 事件处理方法 Private Sub DataGrIDVIEw1_DefaultValuesNeeded(ByVal sender As Object,_ ByVal e As DataGrIDVIEwRowEventArgs) _ Handles DataGrIDVIEw1.DefaultValuesNeeded ' 设定单元格默认值 e.Row.Cells("Column1").Value = 0 e.Row.Cells("Column2").Value = "-" End Sub

总结

以上是内存溢出为你收集整理的vb.net datagridview 使用方法全部内容,希望文章能够帮你解决vb.net datagridview 使用方法所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/langs/1273783.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-08
下一篇 2022-06-08

发表评论

登录后才能评论

评论列表(0条)

保存