如何在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(...)函数调用来替换它，以加载您自己的图像。相应地调整计时器。