DataGridViewの外観設定について (ID:141824)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VB2005 WinXP(SP3) Oracle9i で開発しています。

DataGridViewの列幅、列ヘッダ名、列の表示 等の設定で
列の追加のしやすい(※) コーディングを探しています。
下記に現在のコーディング(一部抜粋)を書きますので
こうした方が早く、見やすいといったご意見、ご指摘のほど
宜しくお願い致します。

※ 例：5列設定している2列目と3列目の間に5列追加して10列に
      する時にかかる時間が短いコーディング方法

'-- 書式 --
DataGridView_Tab1.Columns(3).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(4).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(5).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(6).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(7).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(8).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(9).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(10).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(11).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(12).DefaultCellStyle.Format = "###,###,##0"
DataGridView_Tab1.Columns(13).DefaultCellStyle.Format = "###,###,##0"

'-- 列ヘッダ背景色設定 --
DataGridView_Tab1.Columns(3).HeaderCell.Style.BackColor = Color.Azure
DataGridView_Tab1.Columns(4).HeaderCell.Style.BackColor = Color.Azure
DataGridView_Tab1.Columns(5).HeaderCell.Style.BackColor = Color.Azure
DataGridView_Tab1.Columns(6).HeaderCell.Style.BackColor = Color.Azure
DataGridView_Tab1.Columns(7).HeaderCell.Style.BackColor = Color.Azure
DataGridView_Tab1.Columns(8).HeaderCell.Style.BackColor = Color.Azure
DataGridView_Tab1.Columns(9).HeaderCell.Style.BackColor = Color.Azure

'-- 列ヘッダ名設定 --
DataGridView_Tab1.Columns(0).HeaderText = W_BunruiK1Mei
DataGridView_Tab1.Columns(1).HeaderText = W_BunruiK1Mei
DataGridView_Tab1.Columns(2).HeaderText = "項目"
DataGridView_Tab1.Columns(3).HeaderText = "7日前"
DataGridView_Tab1.Columns(4).HeaderText = "6日前"        DataGridView_Tab1.Columns(5).HeaderText = "5日前"        DataGridView_Tab1.Columns(6).HeaderText = "4日前"        DataGridView_Tab1.Columns(7).HeaderText = "3日前"        DataGridView_Tab1.Columns(8).HeaderText = "2日前"        DataGridView_Tab1.Columns(9).HeaderText = "1日前"        DataGridView_Tab1.Columns(10).HeaderText = "今日"        DataGridView_Tab1.Columns(11).HeaderText = "明日"        DataGridView_Tab1.Columns(12).HeaderText = "明後日        DataGridView_Tab1.Columns(13).HeaderText = "明々後日"

'-- 列ヘッダ名表示位置設定 --
DataGridView_Tab1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomCenter

'-- 列ヘッダの幅設定 --
DataGridView_Tab1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

DataGridView_Tab1.ColumnHeadersHeight = 40

DataGridView_Tab1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing

'-- セルの表示位置設定 --
DataGridView_Tab1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomLeft

DataGridView_Tab1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomLeft

'-- 列ヘッダポップアップ --
DataGridView_Tab1.Columns(3).ToolTipText = Today.AddDays(-7).ToString("yy年MM月dd日(ddd)")
DataGridView_Tab1.Columns(4).ToolTipText = Today.AddDays(-6).ToString("yy年MM月dd日(ddd)")

'-- 列サイズ設定 --
DataGridView_Tab1.Columns(0).Width = 100
DataGridView_Tab1.Columns(1).Width = 100
DataGridView_Tab1.Columns(2).Width = 80        DataGridView_Tab1.Columns(3).Width = 70        DataGridView_Tab1.Columns(4).Width = 70       DataGridView_Tab1.Columns(5).Width = 70        DataGridView_Tab1.Columns(6).Width = 70        DataGridView_Tab1.Columns(7).Width = 70        DataGridView_Tab1.Columns(8).Width = 70        DataGridView_Tab1.Columns(9).Width = 70        DataGridView_Tab1.Columns(10).Width = 70        DataGridView_Tab1.Columns(11).Width = 70        DataGridView_Tab1.Columns(12).Width = 70        DataGridView_Tab1.Columns(13).Width = 70

←解決時は質問者本人がここをチェックしてください。

戻る