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