DataGridViewのキャストについて

Question

###前提・実現したいこと
Windowsフォームにおいて、DataGridViewを用いています。
DataGridViewはコントロール内に複数あり、一つずつプロパティを変更するのは大変なので、
方法を探していたところ、

For i As Integer = 1 To 3
   CType(Me.Controls("Label" + i.ToString()), Label)～
Next

のような記述を見つけたので、同じように

CType(Me.Controls("DataGridView" + i.ToString()), DataGridView)～

としてみた所、
NullRefferenceExceptionが起きてしまいます。

DataGridView型はキャストすることが出来ないのでしょうか。

また、出来なければ同様の方法はありますでしょうか。

ご教授をお願い致します。

Answer 1

DataGridView が Form 直下に無いか、名前が違うのでしょう。

前者なら
Dim founds = Me.Controls.Find("DataGridView" + i.ToString(), True)
で Form 直下に無くてもコントロールの配列が取得できます。

後者なら
Dim founds = Me.Controls.Where(Function(c) c.Name.StartsWith("DataGrid")).ToArray()
"DataGrid" から始まる名前のコントロールの配列が取得できます。

Comments

[churi_yuzuki]

遅くなりました、回答ありがとうございます。
前者でした。
これを試してみたのですが、初心者なものでfoundsの型の使い方が良く分からなくて止まってました。
試行錯誤してみます。。

Answer 2

NullRefferenceExceptionが発生するということは、
Me.Controls("DataGridView" + i.ToString())
この部分でNothingになっていると思われます。
DataGridViewの名前が"DataGridView1"等になっているのでしょうか？

名前で探せないのであれば

For Each c As Control In Me.Controls
　　’ここでｃの型を判断してDataGridViewであれば処理する
Next

という感じで大丈夫だと思います。

Comments

[churi_yuzuki]

回答ありがとうございます。
ｃの型を判断してDataGridViewであれば処理するという部分を調べてやってみます。

[YAmaGNZ]

上記のやりかたですと、Form直下のコントロールしか取得できません。
ですので、名称が合っているのであれば、hihijijiさんが書かれているように
Me.Controls.Findを使ってください。
Me.Controls.FindはControlの配列を返しますので
For i = 1 To 3
Dim controls As Control() = Me.Controls.Find("DataGridView" + i.ToString(), True)
For Each c As Control In controls
Trace.WriteLine(DirectCast(c, DataGridView).Name)
Next
Next
という感じになります。

[churi_yuzuki]

遅くなりました。
なるほど、controlの配列が返って来てたのですね。。
実際作っているものは、Form直下にTabControl、TabControlのTabPageの中にDataGridViewが入っています。
ボタンをクリックしたらそのDataGridViewの1列目の色を全て変えようと思って、

For i = 1 To 8
Dim controls As Control() = Me.Controls.Find("DataGridView" + i.ToString(), True)
For Each c As Control In controls
For j As Integer = 0 To DirectCast(c, DataGridView).RowCount - 1
DirectCast(c, DataGridView)(1, j).Style.BackColor = Color.LemonChiffon
Next
Next
Next

のように記述したところ、1回目のクリックでは一つのDataGridViewしか変わりませんでした。
どこか問題ありますかね。。
分かりにくかったら申し訳ないです。

[YAmaGNZ]

こちらで、TabControlに8個タブを追加し、それぞれのタブページにDataGridViewを１つづつ配置して
提示されたコードを実行しましたが、正常に変化しました。

もし、”DataGridView1”という名前のコントロールがなかったとしても、要素数0のコントロール配列が
返ってくるだけでエラーが発生するわけではありません。
DataGridViewの名称が違う可能性が考えられますので、実際にどのように動作しているか
ステップ実行で確認してみてください。

[churi_yuzuki]

申し訳ありません、別のイベントが悪さをしていました。
分かりやすく解説していただきありがとうございました！