ここから本文です

画像を挿入(VB.NET2003)

nya********さん

2009/2/1718:34:36

画像を挿入(VB.NET2003)

VB.NET2003で、
PictureBox6~10のどれかを押すとPictureBox1に押した画像を挿入。
PictureBox6~10のどれかを押し、次はPictureBox2に押した画像を入れる。
PictureBox6~10のどれかを押し、次はPictureBox3に押した画像を入れる
・・・ PictureBox4・・・5と。
PictureBox1~5の順に押された画像を挿入するプログラムを探しています。
VBに詳しいお方、ご教授願います┏○

PictureBox6,どれか,PictureBox1,VB.NET2003,PictureBox2,Image.FromFile,PictureBox4

閲覧数:
519
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

ポットーさん

2009/2/1912:46:24

こゆこと?

--------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'1~5のイメージをクリア
For Each picBox As PictureBox In New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4, PictureBox5}
picBox.Image = Nothing
Next
'6~10にイメージを設定
PictureBox6.Image = Image.FromFile("C:\image06.jpg")
PictureBox7.Image = Image.FromFile("C:\image07.jpg")
PictureBox8.Image = Image.FromFile("C:\image08.jpg")
PictureBox9.Image = Image.FromFile("C:\image09.jpg")
PictureBox10.Image = Image.FromFile("C:\image10.jpg")
End Sub

Private Sub PictureBox6to10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click, PictureBox7.Click, PictureBox8.Click, PictureBox9.Click, PictureBox10.Click
For Each picBox As PictureBox In New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4, PictureBox5}
If picBox.Image Is Nothing Then
picBox.Image = sender.Image
Exit Sub
End If
Next
End Sub
--------------------------------

質問した人からのコメント

2009/2/20 14:40:50

ご教授ありがとうございました。
助かりました┏○

このカテゴリの投票受付中の質問

一覧を見る

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる