コントロールへのインデックス付与について (ID:147493)

名前

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

本文

> 質問掲示板を間違えておりましたのでこちらに移管します。
当事者以外(検索で辿りついた人など)にとっては、何の話をしているのか
分からなくなってしまいますので、移動時には、元の記事へのリンクも
貼っていただけると助かります。
また、元記事側にもこちらへのリンクを貼っておいてください。

> 「オブジェクト参照がオブジェクトインスタンスに設定されていません」とエラーが出てしまいます。
コードそのものは正しいですよ。
そのままコピー&ペーストしたところ、当方で問題なく処理されました。

単純に、コントロール名をスペルミスしているとか、もしくは
デザイン時の配置ミスだったりはしませんか?
テキストボックスが、位置は GroupBox の上に見えて、実はフォームの上に
載っているとか、あるいは GroupBox がフォーム以外の上にあったとか。

> Me.Controls("GroupBox" & i.ToString).Controls("TextBoxb" & i.ToString).Text = name
> Me.Controls("GroupBox" & i.ToString).Controls("TextBoxa" & i.ToString).Text = Status
name という変数名をお使いなのですか?
実行には影響ありませんが、そのままだと Me.Name と混同しそうですね。

> ご指摘のほどよろしくお願いいたします。
まずは、原因箇所をもう少し切り分けてみてください。

エラーになるのは i が幾つの時なのでしょうか?
また、Nothing が返しているのは、具体的にはどのプロパティでしょうか?

・Me
・Me.Controls
・Me.Controls("GroupBox1")
・Me.Controls("GroupBox1").Controls
・Me.Controls("GroupBox1").Controls("TextBoxa1")
・Me.Controls("GroupBox1").Controls("TextBoxa1").Text

最初の投稿のように、一つずつ変数に入れるなどしてチェックしてみてください。
> Dim gbaCtl As Control = CType(Me.Controls("GroupBox" & i.ToString), GroupBox)
なお、折角 CType/DirectCast するのであれば、As Control ではなく、
As GroupBox などの固有型で受けた方が都合が良いかと思います。

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

戻る