DataGridView控件用法合集（2）

最新推荐文章于 2022-09-14 14:01:14 发布
最新推荐文章于 2022-09-14 14:01:14 发布
阅读量302 收藏
点赞数
文章标签： object integer string each header button

 引用

 

鱼儿 的 DataGridView控件用法合集（2）

 

 

<>

 

<>

 

Console.WriteLine(DataGridView1.CurrentCell.Value)

 

Console.WriteLine(DataGridView1.CurrentCell.ColumnIndex)

 

Console.WriteLine(DataGridView1.CurrentCell.RowIndex)

 

DataGridView1.CurrentCell = DataGridView1(0, 0)

 

<>

 

全部单元格编辑属性

 

DataGridView1.ReadOnly = True

 

指定行列单元格编辑属性

 

DataGridView1.Columns(1).ReadOnly = True

 

DataGridView1.Rows(2).ReadOnly = True

 

DataGridView1(0, 0).ReadOnly = True

 

根据条件判断单元格的编辑属性

 

下例中column2的值是True的时候，Column1设为可编辑

 

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

 

<>

 

DataGridView1.AllowUserToAddRows = False

 

<>

 

If DataGridView1.CurrentRow.IsNewRow Then

 

    Console.WriteLine("現在のセルがある行は、新しい行です。")

 

Else

 

    Console.WriteLine("現在のセルがある行は、新しい行ではありません。")

 

End If

 

<>删除行可否设定

 

DataGridView1.AllowUserToDeleteRows = False

 

根据条件判断当前行是否要删除

 

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

 

        e.Cancel = True

 

    End If

 

End Sub

 

<>行列不表示和删除

 

行列不表示

 

DataGridView1.Columns(0).Visible = False

 

DataGridView1.Rows(0).Visible = False

 

行列表头部分不表示

 

DataGridView1.ColumnHeadersVisible = False

 

DataGridView1.RowHeadersVisible = False

 

指定行列删除

 

DataGridView1.Columns.Remove("Column1")

 

DataGridView1.Columns.RemoveAt(0)

 

DataGridView1.Rows.RemoveAt(0)

 

选择的行列删除（多行列）

 

Dim r As DataGridViewRow

 

For Each r In DataGridView1.SelectedRows

 

    If Not r.IsNewRow Then

 

        DataGridView1.Rows.Remove(r)

 

    End If

 

Next r

 

<>行列宽度高度设置为不能编辑

 

DataGridView1.AllowUserToResizeColumns = False

 

DataGridView1.AllowUserToResizeRows = False

 

指定行列宽度高度设置为不能编辑

 

DataGridView1.Columns(0).Resizable = DataGridViewTriState.False

 

DataGridView1.Rows(0).Resizable = DataGridViewTriState.False

 

列幅行高最小值设定

 

DataGridView1.Columns(0).MinimumWidth = 100

 

DataGridView1.Rows(0).MinimumHeight = 50

 

行列表头部分行高列幅设置为不能编辑

 

DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing

 

DataGridView1.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.EnableResizing

 

<>行高列幅自动调整

 

DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

 

DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells

 

表头部分行高列幅自动调整

 

DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize

 

DataGridView1.RowHeadersWidthSizeMode =  DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders

 

指定列自动调整

 

DataGridView1.Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells

 

<>指定行列冻结

 

列冻结（当前列以及左侧做所有列）

 

DataGridView1.Columns(1).Frozen = True

 

行冻结（当前行以及上部所有行）

 

DataGridView1.Rows(2).Frozen = True

 

指定单元格冻结（单元格所在行上部分所有行，列左侧所有列）

 

DataGridView1(0, 0). Frozen = True

 

<>列顺序变更可否设定

 

DataGridView1.AllowUserToOrderColumns = True

 

但是如果列冻结的情况下，冻结的部分不能变更到非冻结的部分。

 

变更后列位置取得

 

Console.WriteLine(DataGridView1.Columns("Column1").DisplayIndex)

 

DataGridView1.Columns("Column1").DisplayIndex = 0

 

<>行复数选择

 

复数行选择不可

 

DataGridView1.MultiSelect = False

 

单元格选择的时候默认为选择整行

 

DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect

 

<>选择的行、列、单元格取得

 

Console.WriteLine("選択されているセル")

 

For Each c As DataGridViewCell In DataGridView1.SelectedCells

 

    Console.WriteLine("{0}, {1}", c.ColumnIndex, c.RowIndex)

 

Next c

 

Console.WriteLine("選択されている行")

 

For Each r As DataGridViewRow In DataGridView1.SelectedRows

 

    Console.WriteLine(r.Index)

 

Next r

 

Console.WriteLine("選択されている列")

 

For Each c As DataGridViewColumn In DataGridView1.SelectedColumns

 

    Console.WriteLine(c.Index)

 

Next c

 

指定行、列、单元格取得

 

DataGridView1(0, 0).Selected = True

 

DataGridView1.Rows(1).Selected = True

 

DataGridView1.Columns(2).Selected = True

 

<>

 

If Not DataGridView1(0, 0).Displayed AndAlso _

 

        DataGridView1(0, 0).Visible Then

 

    DataGridView1.CurrentCell = DataGridView1(0, 0)

 

End If

 

<>表头部单元格取得

 

DataGridView1.Columns(0).HeaderCell.Value = "はじめの列"

 

DataGridView1.Rows(0).HeaderCell.Value = "はじめの行"

 

DataGridView1.TopLeftHeaderCell.Value = "左上"

 

<>表头部单元格文字列设定

 

更改列Header表示文字列

 

DataGridView1.Columns(0).HeaderText = "はじめの列"

 

更改行Header表示文字列

 

Dim i As Integer

 

For i = 0 To DataGridView1.Rows.Count - 1

 

    DataGridView1.Rows(i).HeaderCell.Value = i.ToString()

 

Next i

 

DataGridView1.AutoResizeRowHeadersWidth(DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)

 

最左上Header单元格文字列

 

DataGridView1.TopLeftHeaderCell.Value = "/"

 

<>

 

拷贝模式设定

 

DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText

 

选中部分拷贝

 

Clipboard.SetDataObject(DataGridView1.GetClipboardContent())

 

<>

 

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

 

        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

 

        insertRowIndex += 1

 

    End If

 

Next line

 

<>

 

DataGridView1(0, 0).ToolTipText = "このセルは変更できません"

 

DataGridView1.Columns(0).ToolTipText = "この列には数字を入力できます"

 

DataGridView1.Rows(0).HeaderCell.ToolTipText = "この行のセルは変更できません"

 

CellToolTipTextNeeded事件，在多个单元格使用相同的ToolTips的时候，可以用该事件，下例为显示当前单元格的行号和列号

 

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

 

<>

 

DataGridView1.ContextMenuStrip = Me.ContextMenuStrip1

 

DataGridView1.Columns(0).ContextMenuStrip = Me.ContextMenuStrip2

 

DataGridView1.Columns(0).HeaderCell.ContextMenuStrip = Me.ContextMenuStrip2

 

DataGridView1.Rows(0).ContextMenuStrip = Me.ContextMenuStrip3

 

DataGridView1(1, 0).ContextMenuStrip = Me.ContextMenuStrip4

 

也可以用CellContextMenuStripNeeded、RowContextMenuStripNeeded属性进行定义

 

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

 

        e.ContextMenuStrip = Me.ContextMenuStrip1

 

    ElseIf e.ColumnIndex < 0 Then

 

        e.ContextMenuStrip = Me.ContextMenuStrip2

 

    ElseIf TypeOf (dgv(e.ColumnIndex, e.RowIndex).Value) Is Integer Then

 

        e.ContextMenuStrip = Me.ContextMenuStrip3

 

    End If

 

End Sub

 

<>

 

DataGridView1.FirstDisplayedScrollingRowIndex = 0

 

DataGridView1.FirstDisplayedScrollingColumnIndex = 0

 

<>

 

DataGridView1.AutoGenerateColumns = False

 

DataGridView1.DataSource = BindingSource1

 

 

 

Dim textColumn As New DataGridViewTextBoxColumn()

 

textColumn.DataPropertyName = "Column1"

 

textColumn.Name = "Column1"

 

textColumn.HeaderText = "Column1"

 

DataGridView1.Columns.Add(textColumn)

 

<>

 

DataGridView1.BorderStyle = BorderStyle.Fixed3D

 

单元格上下左右分界线样式设置

 

DataGridView1.AdvancedCellBorderStyle.Top = DataGridViewAdvancedCellBorderStyle.InsetDouble

 

DataGridView1.AdvancedCellBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Inset

 

DataGridView1.AdvancedCellBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.Inset

 

DataGridView1.AdvancedCellBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.InsetDouble

 

<>

 

如下例，当该列是字符串时，自动转换文字大小写

 

Private Sub DataGridView1_CellFormatting(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellFormattingEventArgs) _

 

        Handles DataGridView1.CellFormatting

 

    Dim dgv As DataGridView = CType(sender, DataGridView)

 

 

 

    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()

 

         e.FormattingApplied = True

 

    End If

 

End Sub

 

<>

 

行高设置

 

DataGridView1.RowTemplate.Height = 50

 

DataGridView1.RowTemplate.MinimumHeight = 50

 

样式设置

 

DataGridView1.DefaultCellStyle.BackColor = Color.Yellow

 

<>

 

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

 

<>

 

DataGridView1(0, 0).ErrorText = "セルの値を確認してください。"

 

DataGridView1.Rows(3).ErrorText = "負の値は入力できません。"

 

在大量单元格需要错误提示时，也可以用CellErrorTextNeeded、RowErrorTextNeeded事件

 

Private Sub DataGridView1_CellErrorTextNeeded(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellErrorTextNeededEventArgs) _

 

        Handles DataGridView1.CellErrorTextNeeded

 

    Dim dgv As DataGridView = CType(sender, DataGridView)

 

    Dim cellVal As Object = dgv(e.ColumnIndex, e.RowIndex).Value

 

    If TypeOf cellVal Is Integer AndAlso CInt(cellVal) < 0 Then

 

        e.ErrorText = "負の整数は入力できません。"

 

    End If

 

End Sub

 

 

 

Private Sub DataGridView1_RowErrorTextNeeded(ByVal sender As Object, _

 

        ByVal e As DataGridViewRowErrorTextNeededEventArgs) _

 

        Handles DataGridView1.RowErrorTextNeeded

 

    Dim dgv As DataGridView = CType(sender, DataGridView)

 

    If dgv("Column1", e.RowIndex).Value Is DBNull.Value AndAlso _

 

        dgv("Column2", e.RowIndex).Value Is DBNull.Value Then

 

        e.ErrorText = _

 

            "少なくともColumn1とColumn2のどちらかには値を入力してください。"

 

    End If

 

End Sub

 

<>

 

Private Sub DataGridView1_CellValidating(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellValidatingEventArgs) _

 

        Handles DataGridView1.CellValidating

 

    Dim dgv As DataGridView = CType(sender, DataGridView)

 

 

 

    If dgv.Columns(e.ColumnIndex).Name = "Column1" AndAlso _

 

            e.FormattedValue.ToString() = "" Then

 

        dgv.Rows(e.RowIndex).ErrorText = "値が入力されていません。"

 

        e.Cancel = True

 

    End If

 

End Sub

 

 

 

Private Sub DataGridView1_CellValidated(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellEventArgs) _

 

        Handles DataGridView1.CellValidated

 

    Dim dgv As DataGridView = CType(sender, DataGridView)

 

    dgv.Rows(e.RowIndex).ErrorText = Nothing

 

End Sub

 

<>

 

Private Sub DataGridView1_DataError(ByVal sender As Object, _

 

        ByVal e As DataGridViewDataErrorEventArgs) _

 

        Handles DataGridView1.DataError

 

    If Not (e.Exception Is Nothing) Then

 

        MessageBox.Show(Me, _

 

            String.Format("({0}, {1}) のセルでエラーが発生しました。" + _

 

                vbCrLf + vbCrLf + "説明: {2}", _

 

                e.ColumnIndex, e.RowIndex, e.Exception.Message), _

 

            "エラーが発生しました", _

 

            MessageBoxButtons.OK, _

 

            MessageBoxIcon.Error)

 

    End If

 

End Sub

 

输入错误值时返回原先数据

 

Private Sub DataGridView1_DataError(ByVal sender As Object, _

 

        ByVal e As DataGridViewDataErrorEventArgs) _

 

        Handles DataGridView1.DataError

 

    e.Cancel = False

 

End Sub

 

<>

 

For Each c As DataGridViewColumn In DataGridView1.Columns

 

    c.SortMode = DataGridViewColumnSortMode.NotSortable

 

Next c

 

<>

 

Private Sub Form1_Load(ByVal sender As System.Object, _

 

        ByVal e As System.EventArgs) Handles MyBase.Load

 

    Dim c As DataGridViewColumn

 

    For Each c In DataGridView1.Columns

 

        c.SortMode = DataGridViewColumnSortMode.Automatic

 

    Next c

 

End Sub

 

 

 

Private Sub Button1_Click(ByVal sender As System.Object, _

 

        ByVal e As System.EventArgs) Handles Button1.Click

 

    If DataGridView1.CurrentCell Is Nothing Then

 

        Return

 

    End If

 

 

 

    Dim sortColumn As DataGridViewColumn = _

 

        DataGridView1.CurrentCell.OwningColumn

 

 

 

    Dim sortDirection As System.ComponentModel.ListSortDirection = _

 

        System.ComponentModel.ListSortDirection.Ascending

 

    If Not (DataGridView1.SortedColumn Is Nothing) AndAlso _

 

            DataGridView1.SortedColumn.Equals(sortColumn) Then

 

        sortDirection = IIf(DataGridView1.SortOrder = SortOrder.Ascending, _

 

            System.ComponentModel.ListSortDirection.Descending, _

 

            System.ComponentModel.ListSortDirection.Ascending)

 

    End If

 

 

 

    DataGridView1.Sort(sortColumn, sortDirection)

 

End Sub

 

<>

 

Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellMouseEventArgs) _

 

        Handles DataGridView1.ColumnHeaderMouseClick

 

    Dim clickedColumn As DataGridViewColumn = _

 

        DataGridView1.Columns(e.ColumnIndex)

 

    If clickedColumn.SortMode <> DataGridViewColumnSortMode.Automatic Then

 

        Me.SortRows(clickedColumn, True)

 

    End If

 

End Sub

 

 

 

Private Sub DataGridView1_RowsAdded(ByVal sender As Object, _

 

        ByVal e As DataGridViewRowsAddedEventArgs) _

 

        Handles DataGridView1.RowsAdded

 

    Me.SortRows(DataGridView1.SortedColumn, False)

 

End Sub

 

 

 

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellEventArgs) _

 

        Handles DataGridView1.CellValueChanged

 

    If Not (DataGridView1.SortedColumn Is Nothing) AndAlso _

 

        e.ColumnIndex = DataGridView1.SortedColumn.Index Then

 

        Me.SortRows(DataGridView1.SortedColumn, False)

 

    End If

 

End Sub

 

 

 

Private Sub SortRows(ByVal sortColumn As DataGridViewColumn, _

 

        ByVal orderToggle As Boolean)

 

    If sortColumn Is Nothing Then

 

        Return

 

    End If

 

 

 

    If sortColumn.SortMode = DataGridViewColumnSortMode.Programmatic AndAlso _

 

        Not (DataGridView1.SortedColumn Is Nothing) AndAlso _

 

        Not DataGridView1.SortedColumn.Equals(sortColumn) Then

 

        DataGridView1.SortedColumn.HeaderCell.SortGlyphDirection = _

 

            SortOrder.None

 

    End If

 

 

 

    Dim sortDirection As System.ComponentModel.ListSortDirection

 

    If orderToggle Then

 

        sortDirection = IIf(DataGridView1.SortOrder = SortOrder.Descending, _

 

            System.ComponentModel.ListSortDirection.Ascending, _

 

            System.ComponentModel.ListSortDirection.Descending)

 

    Else

 

        sortDirection = IIf(DataGridView1.SortOrder = SortOrder.Descending, _

 

            System.ComponentModel.ListSortDirection.Descending, _

 

            System.ComponentModel.ListSortDirection.Ascending)

 

    End If

 

    Dim sOrder As SortOrder = _

 

        IIf(sortDirection = System.ComponentModel.ListSortDirection.Ascending, _

 

            SortOrder.Ascending, SortOrder.Descending)

 

    DataGridView1.Sort(sortColumn, sortDirection)

 

    If sortColumn.SortMode = DataGridViewColumnSortMode.Programmatic Then

 

        sortColumn.HeaderCell.SortGlyphDirection = sOrder

 

    End If

 

End Sub

 

<>

 

Dim dt As DataTable = CType(DataGridView1.DataSource, DataTable)

 

Dim dv As DataView = dt.DefaultView

 

dv.Sort = "Column1, Column2 ASC"

 

DataGridView1.Columns("Column1").HeaderCell.SortGlyphDirection = SortOrder.Ascending

 

DataGridView1.Columns("Column2").HeaderCell.SortGlyphDirection = SortOrder.Ascending

 

<>

 

指定行列的样式设定

 

DataGridView1.Columns(0).DefaultCellStyle.BackColor = Color.Aqua

 

DataGridView1.Rows(0).DefaultCellStyle.BackColor = Color.LightGray

 

奇数行样式设定

 

DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.GreenYellow

 

行，列表头部的样式设定

 

DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Ivory

 

DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.Lime

 

样式的优先顺序

 

      一般单元格的样式优先顺位

 

DataGridViewCell.Style

DataGridViewRow.DefaultCellStyle

DataGridView.AlternatingRowsDefaultCellStyle

DataGridView.RowsDefaultCellStyle

DataGridViewColumn.DefaultCellStyle

DataGridView.DefaultCellStyle

表头部的样式优先顺位

 

DataGridViewCell.Style

DataGridView.RowHeadersDefaultCellStyle

DataGridView.ColumnHeadersDefaultCellStyle

DataGridView.DefaultCellStyle

下例说明

 

DataGridView1.Columns(0).DefaultCellStyle.BackColor = Color.Aqua

 

DataGridView1.RowsDefaultCellStyle.BackColor = Color.Yellow

 

DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.GreenYellow

 

DataGridView1.Rows(2).DefaultCellStyle.BackColor = Color.Pink

 

Console.WriteLine(DataGridView1.Columns(0).DefaultCellStyle.BackColor)

 

Console.WriteLine(DataGridView1.Columns(0).InheritedStyle.BackColor)

 

Console.WriteLine(DataGridView1.Rows(0).DefaultCellStyle.BackColor)

 

Console.WriteLine(DataGridView1.Rows(0).InheritedStyle.BackColor)

 

Console.WriteLine(DataGridView1.Rows(1).DefaultCellStyle.BackColor)

 

Console.WriteLine(DataGridView1.Rows(1).InheritedStyle.BackColor)

 

Console.WriteLine(DataGridView1.Rows(2).DefaultCellStyle.BackColor)

 

Console.WriteLine(DataGridView1.Rows(2).InheritedStyle.BackColor)

 

Console.WriteLine(DataGridView1(0, 2).Style.BackColor)

 

Console.WriteLine(DataGridView1(0, 2).InheritedStyle.BackColor)

 

复数行列的样式设定

 

Dim cellStyle As New DataGridViewCellStyle()

 

cellStyle.BackColor = Color.Yellow

 

For i As Integer = 0 To DataGridView1.Columns.Count - 1

 

    If i Mod 2 = 0 Then

 

        DataGridView1.Columns(i).DefaultCellStyle = cellStyle

 

    End If

 

Next i

 

For i As Integer = 0 To DataGridView1.Columns.Count - 1

 

    If i Mod 2 = 0 Then

 

        DataGridView1.Columns(i).DefaultCellStyle.BackColor = Color.Yellow

 

    End If

 

Next i

 

<>

 

单元格的设定

 

DataGridView1.Columns("Column1").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

 

表头的设定

 

DataGridView1.Columns("Column1").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

 

<>

 

DataGridView1.Columns("Column1").DefaultCellStyle.WrapMode = DataGridViewTriState.True

 

DataGridView1.Columns("Column1").HeaderCell.Style.WrapMode = DataGridViewTriState.True

 

<>

 

DataGridView1.DefaultCellStyle.NullValue = "（指定されていません）"

 

单元格内NullValue属性设定的值输入，表示单元格内为Null值

 

DataGridView1.DefaultCellStyle.NullValue = "-"

 

DataGridView1.DefaultCellStyle.DataSourceNullValue = "X"

 

<>

 

DataGridView1.Columns(0).DefaultCellStyle.Format = "c"

 

DataGridView1.Columns(1).DefaultCellStyle.Format = "c"

 

DataGridView1.Columns(1).DefaultCellStyle.FormatProvider = New System.Globalization.CultureInfo("en-US")

 

Format的参数一览（整数）

 

書式

 

説明

 

値が"123456"の時

 

 

 

書式なし

 

123456

 

C

 

通貨

 

/123,456

 

D

 

10進数

 

123456

 

E

 

指数

 

1.234560E+005

 

F

 

固定小数点

 

123456.00

 

G

 

一般

 

123456

 

N

 

数値

 

123,456.00

 

P

 

パーセント

 

12,345,600.00%

 

R

 

ラウンドトリップ

 

（エラーが出る）

 

X

 

16進数

 

1E240

 

0

 

 

 

123456

 

00000000

 

 

 

00123456

 

########

 

 

 

123456

 

#,##0

 

 

 

123,456

 

%0

 

 

 

%12345600

 

00.000E0

 

 

 

12.346E4

 

プラス#;マイナス#;ゼロ

 

 

 

プラス123456

 

iの値は「#」です。

 

 

 

iの値は「123456」です

 

 

 

Format的参数一览（小数）

 

書式

 

説明

 

値が"1.23456789"の時

 

 

 

書式なし

 

1.23456789

 

C

 

通貨

 

/1

 

D

 

10進数

 

（エラーが出る）

 

E

 

指数

 

1.234568E+000

 

F

 

固定小数点

 

1.23

 

G

 

一般

 

1.23456789

 

N

 

数値

 

1.23

 

P

 

パーセント

 

123.46%

 

R

 

ラウンドトリップ

 

1.23456789

 

X

 

16進数

 

（エラーが出る）

 

00.0000000000

 

 

 

01.2345678900

 

##.##########

 

 

 

1.23456789

 

#,##0.000

 

 

 

1.235

 

%0.##

 

 

 

%123.46

 

00.000E0

 

 

 

12.346E-1

 

プラス#;マイナス#;ゼロ

 

 

 

プラス1.23

 

dの値は「#.##」です。

 

 

 

dの値は「1.23」です。

 

 

 

<>

 

光标下的单元格颜色自动变换

 

Private Sub DataGridView1_CellMouseEnter(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellEventArgs) _

 

        Handles DataGridView1.CellMouseEnter

 

    If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then

 

        Dim dgv As DataGridView = CType(sender, DataGridView)

 

        dgv(e.ColumnIndex, e.RowIndex).Style.BackColor = Color.Red

 

        dgv(e.ColumnIndex, e.RowIndex).Style.SelectionBackColor = Color.Red

 

    End If

 

End Sub

 

 

 

Private Sub DataGridView1_CellMouseLeave(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellEventArgs) _

 

        Handles DataGridView1.CellMouseLeave

 

    If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then

 

        Dim dgv As DataGridView = CType(sender, DataGridView)

 

        dgv(e.ColumnIndex, e.RowIndex).Style.BackColor = Color.Empty

 

        dgv(e.ColumnIndex, e.RowIndex).Style.SelectionBackColor = Color.Empty

 

    End If

 

End Sub

 

表头部单元格颜色设定

 

DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Yellow

 

DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.YellowGreen

 

DataGridView1.TopLeftHeaderCell.Style.BackColor = Color.Blue

 

 

 

<>

 

光标下单元格字体设置为粗体

 

Private defaultCellStyle As DataGridViewCellStyle

 

Private mouseCellStyle As DataGridViewCellStyle

 

Private Sub Form1_Load(ByVal sender As System.Object, _

 

        ByVal e As System.EventArgs) Handles MyBase.Load

 

    Me.defaultCellStyle = New DataGridViewCellStyle()

 

    Me.mouseCellStyle = New DataGridViewCellStyle()

 

    Me.mouseCellStyle.Font = New Font(DataGridView1.Font, _

 

        DataGridView1.Font.Style Or FontStyle.Bold)

 

End Sub

 

Private Sub DataGridView1_CellMouseEnter(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellEventArgs) _

 

        Handles DataGridView1.CellMouseEnter

 

    If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then

 

        Dim dgv As DataGridView = CType(sender, DataGridView)

 

        dgv(e.ColumnIndex, e.RowIndex).Style = Me.mouseCellStyle

 

    End If

 

End Sub

 

Private Sub DataGridView1_CellMouseLeave(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellEventArgs) _

 

        Handles DataGridView1.CellMouseLeave

 

    If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then

 

        Dim dgv As DataGridView = CType(sender, DataGridView)

 

        dgv(e.ColumnIndex, e.RowIndex).Style = Me.defaultCellStyle

 

    End If

 

End Sub

 

<>

 

单元格负数情况下显示黄色，0的情况下显示红色

 

Private Sub DataGridView1_CellFormatting(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellFormattingEventArgs) _

 

        Handles DataGridView1.CellFormatting

 

    Dim dgv As DataGridView = CType(sender, DataGridView)

 

    If dgv.Columns(e.ColumnIndex).Name = "Column1" AndAlso _

 

            TypeOf e.Value Is Integer Then

 

        Dim val As Integer = CInt(e.Value)

 

        If val < 0 Then

 

            e.CellStyle.BackColor = Color.Yellow

 

        Else If val = 0 Then

 

            e.CellStyle.BackColor = Color.Red

 

        End If

 

    End If

 

End Sub

 

<>设置单元格背景颜色

 

Private Sub DataGridView1_CellPainting(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellPaintingEventArgs) _

 

        Handles DataGridView1.CellPainting

 

    If e.ColumnIndex >= 0 AndAlso e.RowIndex >= 0 AndAlso _

 

        (e.PaintParts And DataGridViewPaintParts.Background) = _

 

            DataGridViewPaintParts.Background Then

 

        Dim bColor1, bColor2 As Color

 

        If (e.PaintParts And DataGridViewPaintParts.SelectionBackground) = _

 

                DataGridViewPaintParts.SelectionBackground AndAlso _

 

            (e.State And DataGridViewElementStates.Selected) = _

 

                DataGridViewElementStates.Selected Then

 

            bColor1 = e.CellStyle.SelectionBackColor

 

            bColor2 = Color.Black

 

        Else

 

            bColor1 = e.CellStyle.BackColor

 

            bColor2 = Color.LemonChiffon

 

        End If

 

 

 

        Dim b As New System.Drawing.Drawing2D.LinearGradientBrush( _

 

            e.CellBounds, bColor1, bColor2, _

 

            System.Drawing.Drawing2D.LinearGradientMode.Horizontal)

 

        Try

 

            e.Graphics.FillRectangle(b, e.CellBounds)

 

        Finally

 

            b.Dispose()

 

        End Try

 

 

 

        Dim paintParts As DataGridViewPaintParts = _

 

            e.PaintParts And Not DataGridViewPaintParts.Background

 

        e.Paint(e.ClipBounds, paintParts)

 

 

 

        e.Handled = True

 

    End If

 

End Sub

 

单元格背景显示图像

 

Private cellBackImage As New Bitmap("C:/back.gif")

 

Private Sub DataGridView1_CellPainting(ByVal sender As Object, _

 

        ByVal e As DataGridViewCellPaintingEventArgs) _

 

        Handles DataGridView1.CellPainting

 

    If e.ColumnIndex >= 0 AndAlso e.RowIndex >= 0 AndAlso _

 

        (e.PaintParts And DataGridViewPaintParts.Background) = _

 

            DataGridViewPaintParts.Background Then

 

        Dim backParts As DataGridViewPaintParts = _

 

            e.PaintParts And (DataGridViewPaintParts.Background Or _

 

                DataGridViewPaintParts.SelectionBackground)

 

        e.Paint(e.ClipBounds, backParts)

 

        Dim x As Integer = e.CellBounds.X + _

 

            (e.CellBounds.Width - cellBackImage.Width) / 2

 

        Dim y As Integer = e.CellBounds.Y + _

 

            (e.CellBounds.Height - cellBackImage.Height) / 2

 

        e.Graphics.DrawImage(cellBackImage, x, y)

 

 

 

        Dim paintParts As DataGridViewPaintParts = _

 

            e.PaintParts And Not backParts

 

        e.Paint(e.ClipBounds, paintParts)

 

        e.Handled = True

 

    End If

 

End Sub

tramp_forever
关注
DataGridView控件用法合集
03-28
本篇内容将深入探讨`DataGridView`控件的使用方法，结合提供的链接资源，我们将涵盖以下几个关键知识点： 1. **初始化与设置** - 创建`DataGridView`控件可以通过代码或直接在设计视图中拖放完成。 - 设置控件...
vb.net DataGridView控件用法合集
10-26
DataGridView控件用法合集(二) 7. DataGridView行列宽度高度设置为不能编辑 8. DataGridView行高列幅自动调整 9. DataGridView指定行列冻结 10. DataGridView列顺序变更可否设定 11. DataGridView行复数选择 ...
Datagridview操作
张铖@南通
05-18 673
Datagridview动态生成Dim ID As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn() Dim 名称As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn() Dim 初期表示As DataGr
C# 窗体应用 DataGridView 使用对象绑定数据源
qq_46104786的博客
10-19 9058
C# 窗体应用 DataGridView 使用对象绑定数据源 前言 第一次发文，希望大家能够支持。???? 第一步 最近遇到一个项目，需要用到C# 窗体应用的DataGridView，遇到几个问题，写下来让大家成功避免踩雷 第一步，创建C#窗体文件，(会的同学自觉忽略,会创建的同学直接跳到第六步,不会的小新也不要紧哦) 第二步 第二步，会生成一个窗体视图（如下图） 第三步 选择视图，工具箱（左方有快捷方式的忽视） 第四步 找到DataGridView控件，拖到Form1里面 第五步 创建对象类
datagridview 自定义列三步走
游响云停专栏
11-16 1万+
 我们如果想自定义实现datagridview的某列，例如是datagridview的某列显示为一个日期控件datatimepicker,或者颜色拾取器控件colorpicker,我们可以大致按如下模式来设计1. 设置列，创建一个类，使之继承DataGridViewColumn列  public partial class DataGridViewCalendarColumn : Data
.NET 2.0 - WinForm Control - DataGridView 编程36计（一）
热门推荐
Lullaby's Blog
04-11 6万+
.NET 2.0 - WinForm Control - DataGridView 编程36计（一）目录： ①　取得或者修改当前单元格的内容②　设定单元格只读③　不显示最下面的新行④　判断新增行⑤　行的用户删除操作的自定义⑥　行、列的隐藏和删除⑦　禁止列或者行的Resize⑧　列宽和行高以及列头的高度和行头的宽度的自动调整⑨　冻结列或行⑩　列
C# DataGridView控件的基础应用实例
C/C#、Android driver、STM32、Linux等等。
07-03 1万+
  DataGridView我把他叫做网格数据控件 。我们在显示表格数据的时候，经常会用想到用它， 他就像Excel表格一样。我们知道只要是数据表，就一定逃不掉表的增删查改操作。   该篇，我在VS2019的环境下通过demo实例来实现DataGridView控件的一系列功能，包括添加一行数据、切换允许修改单元格、复制选择数据、复制所有数据、读一行数据、读取所有数据、查找记录、删除一行数据、删除一行数据、删除多行数据、清除所有行以及清除所有列。  .........
DataGridView控件的使用
qq_27474555的博客
09-14 1022
DataGridView功能实现，如添加列、行数限制，行宽设置，添加行序号、数字输入校验等
DataGridView控件使用大全
xuyongbeijing2008的专栏
07-21 1269
DataGridView控件使用大全 DataGridView控件 DataGridView是用于Windows Froms 2.0的新网格控件。它可以取代先前版本中DataGrid控件，它易于使用并高度可定制，支持很多我们的用户需要的特性。 关于本文档： 本文档不准备面面俱到地介绍DataGridView，而是着眼于深入地介绍一些技术点的高级特性。 本文档按逻辑分为5个章节，首先是结构和特性的概览，其次是内置的列/单元格类型的介绍，再次是数据操作相关的内容，然后是主要特性的综述，最后是最佳.
DataGridView控件用法合集11.rar_datagridview_控件
07-15
最后，`DataGridView控件用法合集11.pdf`文件很可能是对这些概念的详细讲解，包括实例代码和实践技巧。通过阅读这份文档，你应该能更全面地掌握DataGridView的使用，并能解决各种复杂场景下的问题。 总之，...
C# DataGridView控件用法合集.pdf
04-14
### C# DataGridView控件用法详解 #### 一、DataGridView控件基础操作 **1. 当前单元格属性的获取与变更** 在DataGridView控件中，`CurrentCell`属性可以帮助我们定位当前活动的单元格。我们可以使用这个属性来...
vb.net DataGridView控件用法,.net DataGridView控件用法,GridView用法
04-20
在VB.NET和C#等.NET语言中，使用DataGridView控件可以方便地构建用户界面，处理各种类型的数据。下面将详细介绍关于VB.NET中的DataGridView控件及其用法。 1. **添加DataGridView控件** 要在VB.NET项目中使用...
【高创新】基于鹈鹕优化算法POA-CNN-BiLSTM-Attention的用客流量预测算法研究Matlab实现.rar
09-22
1.版本：matlab2014/2019a/2024a 2.附赠案例数据可直接运行matlab程序。 3.代码特点：参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象：计算机，电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。 替换数据可以直接使用，注释清楚，适合新手
从抓包文件（tcpdump_or_wireshark）中提取国标流_pcap2ps.zip
09-22
从抓包文件（tcpdump_or_wireshark）中提取国标流_pcap2ps
图片滚动展示单击放大代码，使用prettyPhoto插件，代码兼容：IE6，IE7，IE8，Firefox，chrome
最新发布
09-22
图片滚动展示单击放大代码，使用prettyPhoto插件，代码兼容：IE6，IE7，IE8，Firefox，chrome 使用方法： 1.head区域引用样式文件prettyphoto.css，htmldivcss.css 2.head区域引用JS文件jquery.js，jquery.prettyPhoto.js，htmldivcss.js 3.在你的文件中加入<!-- 代码 开始 --><!-- 代码 结束 -->区域代码 4.点击单个图片有放大效果
基于Java的农业环境监测平台软件设计源码
09-22
本项目是基于Java开发的农业环境监测平台软件，包含51个文件，其中包括24个Java源代码文件、12个Class文件、5个Lock文件、3个Properties文件、1个Classpath文件、1个BIN文件、1个Project文件、1个JSON文件和1个LICENSE文件。此外，还有1个Markdown文档文件。该项目是基于金蝶天燕消息中间件构建的，旨在为农业领域提供一个高效、实时的环境监测解决方案，支持数据采集、实时监控、历史数据分析等功能，以提高农业生产效率和作物产量。
基于Java和JSP的公司财务管理系统设计源码
09-22
本项目是基于Java和JSP开发的公司财务管理系统，包含300个文件，其中包括66个PNG图像文件、58个Class文件、58个Java源代码文件、31个JAR打包文件、24个XML配置文件、14个JSP页面文件、9个JavaScript脚本文件、7个CSS样式表文件和4个MAP文件。此外，还有3个GIF图像文件。该项目是一个JSP+SQL的公司财务管理系统，旨在为企业提供一个高效、便捷的财务信息管理平台，支持账目管理、报表生成、数据分析等功能，以提高财务管理的效率和准确性。
【高创新】基于灰狼优化算法GWO-CNN-LSTM-Attention的用客流量预测算法研究Matlab实现.rar
09-22
1.版本：matlab2014/2019a/2024a 2.附赠案例数据可直接运行matlab程序。 3.代码特点：参数化编程、参数可方便更改、代码编程思路清晰、注释明细。 4.适用对象：计算机，电子信息工程、数学等专业的大学生课程设计、期末大作业和毕业设计。 替换数据可以直接使用，注释清楚，适合新手
datagridview控件用法合集
02-22
您可以参考以下资料，学习DataGridView控件的用法：1.DataGridView控件的基本用法：https://www.cnblogs.com/ljb-51/p/DataGridView.html2.DataGridView实现数据绑定的方法：...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值