
よろしくお願いいたします。
vb2008を勉強しております。
DataGridViewにデータを表示し、
横列の背景色の変更を考えております。
For i As Integer = 0 To .RowCount - 1
.Rows(i).DefaultCellStyle.BackColor = Color.Red
Next i
と記述しておりますが、背景色が変わりません。
RowsをCulumsに変えれば縦列の色は変わります。
AlternatingRowsDefaultCellStyle.BackColorを利用すれば横列でも色が変わることは確認できました。
http://oshiete1.goo.ne.jp/qa4495913.html
この方の質問を参考にLoad内に記述しております。
ちがう点は、
親フォームから子フォーム呼び出し、
子フォームのLoad内に記述しております。
<親Form>
子form.MdiParent = Me
子form.Show()
<子Form>
Loadイベント内にDataGridView.Rows(i).DefaultCellStyle.BackColor=~
としております。
いつ指定するかの問題と予想したのですが、アドバイスをお願いします。
お時間がありましたら、よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
確かに、下記のコードを Form_Load に記述すると背景色が変更されないようですね。
この部分だけをコンストラクタ(Sub New)に記述することは出来ないのですか?
<子フォーム(Form2)のLoad内>
Using adapter As New SqlClient.SqlDataAdapter("SELECT * FROM tbl_TEST", My.Settings.dbConnectionString)
Dim myDataSet As New DataSet()
adapter.Fill(myDataSet)
DataGridView1.DataSource = myDataSet.Tables(0)
End Using
この回答への補足
korin_様ご回答ありがとうございます。
Sub New内にてDataGridViewを表示し、Load内にて背景色の変更を実行しましたところ、正しく表示できました。
実際にはDataGridViewの表示と背景色変更は同時に実行する為、
また、何度かDataGridViewの内容を更新する為、
dataGridViewLoad()でまとめてあります。
Private Sub dataGridViewLoad()
Using adapter As New SqlClient.SqlDataAdapter("SELECT * FROM tbl_TEST", My.Settings.dbConnectionString)
Dim myDataSet As New DataSet()
adapter.Fill(myDataSet)
DataGridView1.DataSource = myDataSet.Tables(0)
End Using
For i As Integer = 0 To DataGridView1.RowCount - 1
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.blue
Next i
End Sub
これをNewとLoadで2回実行すると背景色が変更されました。
どちから1回ではだめでした。
こういった表示する為に2回実行する事は悪いことなのでしょうか?
No.1
- 回答日時:
こんにちは。
こちらの環境では、提示されているコードで正常に動作しました。
デバッグで確認して欲しいのですが、DataGiedView.RowCountは正しく表示されていますか?
予想ですが、DataGridView.Rows(i).DefaultCellStyle.BackColor=~の記述の後に
DataGridView.DataSource を指定していませんか?
その場合は DataSource を指定した後に BackColor を変更するようにしてください。
それでも解決しない場合は、問題の切り分けをするために現象が再現出来る最小限のコードを提示してもらえますか?
この回答への補足
korin_様、ご回答ありがとうございます。
ご指摘頂きました件ですが、
DataGiedView.RowCountは正しく表示されます。
DataGiedView.(0, i).Valueでも中身は表示されます。
また、
DataGridView.DataSourceの後に、.BackColor指定を行っております。
SDIにすれば色は変わるのは確認できております。
<親フォームのLoad内>
Me.IsMdiContainer = True
Dim f2 As New Form2
f2.MdiParent = Me
f2.Show()
<子フォーム(Form2)のLoad内>
Using adapter As New SqlClient.SqlDataAdapter("SELECT * FROM tbl_TEST", My.Settings.dbConnectionString)
Dim myDataSet As New DataSet()
adapter.Fill(myDataSet)
DataGridView1.DataSource = myDataSet.Tables(0)
End Using
For i As Integer = 0 To DataGridView1.RowCount - 1
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.blue
Next i
とすると色が変更されません。
現状では、Form2上のボタン押下にて
For i As Integer = 0 To DataGridView1.RowCount - 1
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.blue
Next i
これを実行することで逃げております。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
モテ期を経験した方いらっしゃいますか?
一生に一度はモテ期があるといいますが、みなさんどうですか? いまがそう! という方も、「思い返せばこの頃だったなぁ」という方も、よかったら教えて下さい。
-
テレビやラジオに出たことがある人、いますか?
テレビやラジオに取材されたり、ゲスト出演したことある方いますか?
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
DataGridViewで指定列の背景色の変更
その他(プログラミング・Web制作)
-
VB.NET DataGridView 縦スクロールバーを常に表示
Visual Basic(VBA)
-
C# DataGridView のヘッダーセル中央揃え
C言語・C++・C#
-
-
4
データグリッドビューの一番最初の行に列を追加したい
Visual Basic(VBA)
-
5
DataGridViewでセルクリックイベントを発生させるには
Visual Basic(VBA)
-
6
DataGridViewのチェックボックスのON、OFFの判定方法
C言語・C++・C#
-
7
DataGridViewで右寄せ左寄せが反映されない
Visual Basic(VBA)
-
8
VB.NETで小数点以下の桁数を取得したい
その他(ソフトウェア)
-
9
DataGridViewでyyyy/MM/dd
Visual Basic(VBA)
-
10
DataGridViewで列、行、セルの選択
Visual Basic(VBA)
-
11
「タイプ初期化子が例外をスローしました」エラー何?
Visual Basic(VBA)
-
12
[VB.net] DataGridViewの列ヘッダー複数行表示に伴う不具合?について
Visual Basic(VBA)
-
13
C# dataGridViewの値だけクリア
C言語・C++・C#
-
14
DoEventsがやはり分からない
Visual Basic(VBA)
-
15
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
16
コントロールを移動できない
Visual Basic(VBA)
-
17
VBの画面サイズについて
Visual Basic(VBA)
-
18
コンボボックスの三角を一時的に消す方法。
Visual Basic(VBA)
-
19
FORMが開いているかどうかの確認方法
Visual Basic(VBA)
-
20
Hideについて(.NET)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
VBAでユーザーフォームを再表示...
-
VBAで画像を表示する方法
-
ACCESSのフォーム、開くんです...
-
(Excel+VBA)ユーザーフォームの...
-
Hideについて(.NET)
-
モーダルフォームとモードレス...
-
クリックするたびに、フォーム...
-
ユーザーフォームのテキストボ...
-
Form_Load と Form_Activate の...
-
パソコンの画面に合わせてユー...
-
フォームウィンドウを最前面に...
-
'ユーザーフォーム右上隅の[×...
-
Microsoft Formsの「個人情報や...
-
VB.NETでフォームロード中のエ...
-
コントロールの存在確認
-
EXCEL ユーザーフォームのタイ...
-
クリックイベントなのに、2回ク...
-
複数モニタ使用時のフォームの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
VBAでユーザーフォームを再表示...
-
ユーザーフォームのテキストボ...
-
Microsoft Formsの「個人情報や...
-
クリックイベントなのに、2回ク...
-
エクセルVBAのフォームを最...
-
モーダルフォームとモードレス...
-
フォームウィンドウを最前面に...
-
ユーザーフォーム上に現在日時...
-
ACCESSのフォーム、開くんです...
-
Hideについて(.NET)
-
Form_Load と Form_Activate の...
-
VBA(エクセル)のユーザー...
-
Accessで、一つのフォーム画面...
-
Excel VBA ユーザーフォーム 複...
-
VB.NETでフォームロード中のエ...
-
コントロールの存在確認
-
フォームを画面のど真ん中に表...
-
(Excel+VBA)ユーザーフォームの...
おすすめ情報