小歐ou | 菜鳥自救會

 

一、簡述

在表單載入時讀取多張影像到 List 類別，透過按鈕顯示下一張/上一張影像於 PictureBox 中

 

二、方法

1. 宣告使用 List(Of Image)

2. 於 Form_Load 讀入影像到 List 中

3. 按下一張按鈕時，透過 PictureBox 的 Tag 屬性儲存目前讀取影像位在 List 哪一個 index，並且讀取 index +1 位置的 Image

4. 按上一張按鈕時，透過 PictureBox 的 Tag 屬性儲存目前讀取影像位在 List 哪一個 index，並且讀取 index -1 位置的 Image

程式碼

Public Class Form1
    Dim lstPic As New List(Of Image)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lstPic.Add(Image.FromFile("01.png"))
        lstPic.Add(Image.FromFile("02.png"))
        lstPic.Add(Image.FromFile("03.png"))
        PictureBox1.Image = lstPic(0)
        PictureBox1.Tag = 0
    End Sub

    ' 下一張圖片
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        PictureBox1.Tag = PictureBox1.Tag + 1
        If (PictureBox1.Tag >= lstPic.Count) Then
            PictureBox1.Tag = lstPic.Count - 1
        End If
        PictureBox1.Image = lstPic(PictureBox1.Tag)
    End Sub

    ' 上一張圖片
    Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
        PictureBox1.Tag = PictureBox1.Tag - 1
        If (PictureBox1.Tag < 0) Then
            PictureBox1.Tag = 0
        End If
        PictureBox1.Image = lstPic(PictureBox1.Tag)
    End Sub
End Class

 

三、執行結果

 

四、範例下載

[VB]使用 List(T) 類別.zip

 

五、相關連結與參考

MSDN - List(Of T) 類別

MSDN - Control.Tag 屬性

MSDN - VB2008開啟多張影像