連番を持ったコントロールをfor文で指定したい

Question

再度質問となり、直前に回答されていた方には申し訳ありません
表題の通り、連番を持ったコントロール（Picturebox1,2,3,・・・）をfor文で指定し、それぞれのプロパティに異なった値を代入したいと思っています。

for i = 1 to 100
      PictureBox{CStr(i)}.ImageLocation = sResult
Next

これではうまく行かないのですが、どうしたら良いのでしょうか。教えていただけたらと思います。

Comments

[YAmaGNZ]

先ほどの質問のソースでPictureBoxにキャストするだけだったのですが・・・

[hanbee.com]

削除してしまい、大変すみません。
PictureBoxにキャストするとはどういうことなのでしょうか？

[hanbee.com]

先程は
Me.Controls("PictureBox" & CStr(i)).ImageLocation = sResult
というコードを入れていました。
しかし、ImageLocationはcontrolのメンバーではありませんとエラーになっていました。

Answer 1

Me.Contros("PictureBox1")で返ってくるのは実体がPictureBoxなのですが、型としてはControlクラスとなります。
なので、DirectCast演算子やTryCast演算子等を使用してPictureBoxにキャストする必要があります。

というのが消された質問に回答しようとした内容になります。

Comments

[hanbee.com]

削除してしまった自分が大変不甲斐ないです。
なるほど。型はcontrolクラスだからその演算子を使ってpictureboxクラスにかえればいいんですね。
どのようにキャストすればいいんでしょうか。自分でも考えてみます。調べてみます。

[YAmaGNZ]

回答にあるリンク（リファレンス）に例がありますので参考にしてください。

[hanbee.com]

Dim p As System.Windows.Forms.PictureBox
p = DirectCast(Me.Controls("PictureBox" & CStr(i), System.Windows.Forms.PictureBox)
p = sResult

こんなかんじで作ってみたのですが、うまくいきません。
どうしたらよいのでしょうか？

[hanbee.com]

Dim p As System.Windows.Forms.PictureBox
p = DirectCast(Me.Controls("PictureBox" & CStr(i)), System.Windows.Forms.PictureBox)
p.ImageLocation = sResult

[hanbee.com]

こう書いてみましたが、なぜかこれでは代入されていません。

[YAmaGNZ]

質問する場合はなるべく「うまくいきません」の言葉のみはやめるようにしましょう。
「こういうエラーが出る」とか具体的に書くようにしてください。

16:11のコメントのソースは当方では正常に動作しますので、「うまくいかない」と言われても分かりません。

[YAmaGNZ]

「代入されていません」とは「何に」「何が」代入されないのでしょうか？

[hanbee.com]

失礼しました。
PictureBox.ImageLocationにそのモノの写真のアドレスを代入しようとしているのですが、
デバックしてみたところpictureboxに写真が表示されていないので、代入されていないのかな？
と思ってしまっています。
もうちょっと他のところでおかしいことになっていないか確認していきます。

[hanbee.com]

どうやら代入はされているようですが、フォームに画像として表示していないようです。
p.ImageLocationにアドレスを代入すればうまくいくと思っていましたが、これは実際の
PictureBoxに代入したことにはならないのでしょうか。

[hanbee.com]

全く失礼しました
できていました

[hanbee.com]

pictureboxのサイズボックスがNormalになっていて、拡大された画像が表示されていて、一色になっていたので、表示されていないと誤認しておりました。