如何在PictureBox中創建照片幻燈片？

Question

任何人都可以幫助我如何將1張以上的圖片放入PictureBox，然後逐個顯示所有圖片，使其看起來像一個小型幻燈片？

我正在研究一個需要我在窗體上顯示所有產品的項目。

Answer 1

假設WinForms，因爲你想使用一個PictureBox。

最簡單方法是僅僅保持在列表中的圖像，並使用一個定時器來更新圖片框：

Public Class Form1 
    Private images As New List(Of Image) 
    Private index As Integer 

    Public Sub New() 
    InitializeComponent() 

    images.Add(CreateImage(Color.Blue)) 
    images.Add(CreateImage(Color.Red)) 
    '// images.Add(Image.FromFile("c:\myimage.png") 

    Timer1.Interval = 1000 
    Timer1.Start() 
    End Sub 

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick 
    If images.Count > 0 Then 
     If index >= images.Count Then 
     index = 0 
     End If 
     PictureBox1.Image = images(index) 
     index += 1 
    End If 
    End Sub 

    Private Function CreateImage(ByVal whichColor As Color) As Image 
    Dim bmp As New Bitmap(64, 64) 
    Using g As Graphics = Graphics.FromImage(bmp), _ 
      br As New SolidBrush(whichColor) 
     g.Clear(Color.White) 
     g.FillEllipse(br, New Rectangle(1, 1, 61, 61)) 
    End Using 
    Return bmp 
    End Function 

End Class 

的CreateImage功能只是爲了演示。您可以用Images.FromFile(...)函數調用來替換它，以加載您自己的圖像。相應地調整計時器。