VB.NET DataGridView常用界面属性设置
With DataGridView1
.AllowUserToAddRows = False '用户添加新行
.AllowUserToDeleteRows = False '用户删除行数据
.AllowUserToResizeRows = False '用户调整行高
.AllowUserToResizeColumns = False '用户调整列宽
.MultiSelect = True '用户多选
.ReadOnly = True '整体内容只读
.SelectionMode = DataGridViewSelectionMode.FullRowSelect '用户选择模式(整行)
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter '所有单元格内容居中
.RowHeadersVisible = False '显示行表头
.RowHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter '行表头文字居中
.ColumnHeadersVisible = False '显示列表头
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter '列表头文字居中
'设置列标题不换行
.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False
.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing ' OR DisableResizing
.ColumnHeadersHeight = 26
'设置行高
.RowTemplate.MinimumHeight = 30 '设置最小行高
.RowTemplate.Height = 28 '设置行高
'取消用户点击列表头排序功能
For i As Integer = 0 To .Columns.Count - 1
.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable
Next
'修改列表头背景色
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
.EnableHeadersVisualStyles = False
.ColumnHeadersDefaultCellStyle.BackColor = Color.FromArgb(64, 64, 64)
'设置自动换行
.DefaultCellStyle.WrapMode = DataGridViewTriState.True
'设置自动调整高度
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
'修改字体字号及样式
.Rows(l).DefaultCellStyle.Font = New Font("雅文细黑", 10.0F, FontStyle.Bold)
'取消列标题点击排序
For i As Integer = 0 To .Columns.Count - 1
.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable
Next
'调整行高
.RowTemplate.Height = 35
End With
296

被折叠的 条评论
为什么被折叠?



