DOBON.NET DOBON.NETプログラミング掲示板過去ログ

PictureBoxの複数画像切り替え

分類:[全般]

VB.Netで,一つのPictureBoxに,場所を指定してjpeg画像を挿入するということはできたのですが,そこをComboBoxで切り替えて(1枚目,2枚目,…),複数の画像を表示させるという
方法ができません。ご教授お願いいたします。
■No107に返信(wecanworkitoutさんの記事)
> VB.Netで,一つのPictureBoxに,場所を指定してjpeg画像を挿入するということは
> できたのですが,そこをComboBoxで切り替えて(1枚目,2枚目,…),
> 複数の画像を表示させるという
> 方法ができません。ご教授お願いいたします。

次のような感じでどうでしょうか?

Private _currentImage As Bitmap

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    Select Case ComboBox1.SelectedIndex
        Case 0
            _currentImage = New Bitmap("1.bmp")
        Case 1
            _currentImage = New Bitmap("2.bmp")
        Case 2
            _currentImage = New Bitmap("3.bmp")
    End Select
    PictureBox1.Invalidate()
End Sub

Private Sub PictureBox1_Paint(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.PaintEventArgs) _
    Handles PictureBox1.Paint
    If Not _currentImage Is Nothing Then
        e.Graphics.DrawImage(_currentImage, 0, 0)
    End If
End Sub
管理人様,ありがとうございました。
解決し...そうです。がんばってみます。

DOBON.NET | プログラミング道 | プログラミング掲示板