C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

ログ内検索

キーワードを複数指定する場合は半角スペースで区切ってください。
検索条件は、(AND)=[A かつ B] (OR)=[A または B] となっています。
[返信]をクリックすると返信ページへ移動します。

キーワード	/	検索条件	/
検索範囲	/	強調表示	/ ON (自動リンクOFF)
結果表示件数	/	記事No検索	/ ON
大文字と小文字を区別する

No.29193 の関連記事表示

ヒット / 5件

<< 0 >>

■29193

　VB2008リソースファイル参照方法

□投稿者/ 良碁 -(2008/12/05(Fri) 11:59:32)

分類:[VB.NET/VB2005 以降]　

画面に１００個のタイルがあり、全タイルに画像を表示させてみました。

Picture001.BackgroundImage = New Bitmap(My.Resources.Image001)
Picture002.BackgroundImage = New Bitmap(My.Resources.Image002)
Picture003.BackgroundImage = New Bitmap(My.Resources.Image003)
Picture004.BackgroundImage = New Bitmap(My.Resources.Image004)
Picture005.BackgroundImage = New Bitmap(My.Resources.Image005)

という処理を１００行書いているのですが
For～Loopなどを使って処理をかけないでしょうか

親記事 /過去ログ52より / 関連記事表示
削除チェック/

■29195

　Re[1]: VB2008リソースファイル参照方法

□投稿者/ .SHO -(2008/12/05(Fri) 12:19:19)

PictureNNN は配列にできますよね。

My.Resources.ImageNNN がループできないって事でしょうか？
100個の画像を全部くっつけて
1つの画像としてリソースで持ってはどうでしょう。

記事No.29193 のレス /過去ログ52より / 関連記事表示
削除チェック/

■29200

　Re[2]: VB2008リソースファイル参照方法

□投稿者/ 良碁 -(2008/12/05(Fri) 13:40:05)

.SHOさん、こんにちは＾＾

ピクチャーボックスの配列化はできました。

リソースのイメージファイルですが、
中にはアニメーションGIFのファイルも含まれており
１つの画像として処理するには問題が出てくるかと・・＾＾；

なんとかFor～Loopで処理書けないでしょうか

記事No.29193 のレス /過去ログ52より / 関連記事表示
削除チェック/

■29199

　Re[1]: VB2008リソースファイル参照方法

□投稿者/ やじゅ -(2008/12/05(Fri) 13:37:41)

■No29193 (良碁 さん) に返信
> という処理を１００行書いているのですが
> For～Loopなどを使って処理をかけないでしょうか
> 

試してないので、動くか分かりません。

Dim image As Drawing.Bitmap
Dim stream As System.IO.Stream
For i As Integer = 1 To 100
   stream = My.Resources.ResourceManager.GetStream("Image" & i.ToString("000"))
   image = New Drawing.Bitmap(stream)
   DirectCast(Me.Controls("Picture" & i.ToString("000")), PictureBox).BackgroundImage = image
Next

記事No.29193 のレス /過去ログ52より / 関連記事表示
削除チェック/

■29203

　Re[2]: VB2008リソースファイル参照方法

□投稿者/ 良碁 -(2008/12/05(Fri) 13:56:32)

■No29199 (やじゅさん) に返信

やじゅさん、お世話になります

やじゅさんのソースを利用させてもらい以下のソースで対応しました。

Dim image As Drawing.Bitmap
For i As Integer = 1 To 100
image = My.Resources.ResourceManager.GetObject("Image" & i.ToString("000"))
DirectCast(Me.Controls("Picture" & i.ToString("000")), PictureBox).BackgroundImage = image
Next i

ありがとうございました＾＾

記事No.29193 のレス / END /過去ログ52より / 関連記事表示
削除チェック/

<< 0 >>

パスワード/

- Child Tree -