VB.NETでPictureBoxに複数の画像を重ねて表示する方法

VB.NETでPictureBoxを使って、複数の画像を重ねて表示する方法について解説します。特に、画像をクリックして新しい画像を表示させるときに、前の画像を消さずに次の画像を追加表示するためのテクニックをご紹介します。以下では、具体的なコードの修正方法とともに、どのようにして画像を重ねることができるかを詳しく説明します。

1. 複数の画像を同時に表示するための基本概念
2. 画像を上書きせずに追加する方法
3. 背景画像と重ねて表示する方法
4. 透明なGIF画像を使って画像を重ねる
5. まとめ：画像の重ね合わせを活用する方法

1. 複数の画像を同時に表示するための基本概念

PictureBoxコントロールを使って、1つの場所に複数の画像を表示するためには、単に新しい画像を設定するだけではなく、既存の画像に追加で新しい画像を描画する必要があります。このためには、まずPictureBoxのBackgroundImageに元の画像を設定し、その上に透明なGIF画像を追加する形で表示を実現します。

まず、PictureBox1のBackgroundImageを元の画像（PIC01）に設定し、その後、Button1やButton2を使って、画像を重ねて表示します。ここで注意すべきポイントは、Button1やButton2が画像を上書きしないようにすることです。

2. 画像を上書きせずに追加する方法

画像を追加する際に、前の画像が消えてしまう問題を解決するには、PictureBoxのBackgroundImageに新しい画像を追加する方法を使います。この方法では、前の画像は消さずに、新しい画像をその上に表示できます。

具体的には、Button1とButton2のクリックイベントで、画像を上書きするのではなく、元の画像を保持したまま新しい画像を追加するコードに変更します。以下はその修正方法です。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim newImage As Image = My.Resources.PIC02
    Dim graphics As Graphics = Graphics.FromImage(PictureBox1.BackgroundImage)
    graphics.DrawImage(newImage, 0, 0)
    PictureBox1.Invalidate()
End Sub

このコードは、Button1がクリックされたときに、PIC02をPictureBoxの上に描画する仕組みです。新しい画像は元の画像の上に重ねられます。

3. 背景画像と重ねて表示する方法

背景画像として設定された元の画像（PIC01）に対して、PIC02やPIC03のような透明な画像（GIF）を重ねて表示するには、Graphicsクラスを使って元の画像の上に新しい画像を描画します。この方法を使うと、元の画像を消さずに新しい画像を加えることができます。

以下にその方法を示します。まず、BackgroundImageに設定した元の画像に対して、重ねたい画像をGraphicsオブジェクトを使って描画します。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim newImage As Image = My.Resources.PIC03
    Dim graphics As Graphics = Graphics.FromImage(PictureBox1.BackgroundImage)
    graphics.DrawImage(newImage, 0, 0)
    PictureBox1.Invalidate()
End Sub

このようにすることで、画像を上書きせずに追加で表示することができます。