挿入されている画像をクリアする(VB.2003)
VB.NET2003
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'ピクチャーボックス1~2のイメージをクリア
For Each picBox As PictureBox In New PictureBox() {PictureBox1, PictureBox2}
picBox.Image = Nothing
Next
'ピクチャーボックス3~4にイメージを設定
PictureBox3.Image = Image.FromFile("C:\image03.jpg")
PictureBox4.Image = Image.FromFile("C:\image04.jpg")
End Sub
Private Sub PictureBox3to4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click, PictureBox4.Click
For Each picBox As PictureBox In New PictureBox() {PictureBox1, PictureBox2}
If picBox.Image Is Nothing Then
picBox.Image = sender.Image
Exit Sub
End If
Next
End Sub
上記は、ピクチャーボックス3~4のどれかが押されるとピクチャーボックス1に押された画像が挿入され、
次にピクチャーボックス3~4のどれかが押されると次はピクチャーボックス2に押された画像が挿入されるプログラムなのですが、
ボタン1を押すと、元に戻す「ピクチャーボックス1、2に挿入されている画像があればクリアする」プログラムを
作りたいのですが、サッパリ分かりません。 どなたかご教授願います┏○
お礼
Me.PictureBox1.Image = System.Drawing.Image.FromFile("image.jpg") とおりの記述でやっているのですが、やはり欠けてしまいます。 フォームを手動で端に動かしてピクチャーボックスに掛からないようにするとちゃんと表示できました。 また別のコントロールを作ってやり直したらうまく出来ました。 表示してからのプログラムの流れに問題があるようなので確認してみたいと思います。 ありがとうございました。