vb.net 窗体 flowlaypanel 照片长条重复轮播

VB.NET中的FlowLayoutPanel是一种容器控件，它允许你按照指定的方向（水平或垂直）排列其子控件，类似于卡片式布局。当你想要创建一个照片轮播效果，可以在FlowLayoutPanel上添加图片控件，比如PictureBox，并通过设置控件的位置、大小以及使用Timer或者每隔一段时间更新控件的索引来实现。

例如，你可以这样做：

1. 添加PictureBox到FlowLayoutPanel中，并设置初始显示的图片。
2. 创建一个Timer，在Tick事件处理程序中，改变PictureBox的显示索引，使其轮流展示图片。如果图片超过FlowLayoutPanel中的元素数量，可以循环回第一张。
3. 使用`Panel.Controls.Add()`和`Panel.Controls.RemoveAt()`方法来动态添加和移除图片控件，保持轮播的效果。

Dim bmps As New List(Of PictureBox)
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If bmps.Count > 0 Then
        Dim current As PictureBox = bmps.Last()
        ' 更新图片或者移到下一个位置
        If current.Index < bmps.Count - 1 Then
            current.Visible = False
            current.ImageIndex += 1
            If current.ImageIndex >= current.Images.Count Then
                current.ImageIndex = 0
            End If
            current.Visible = True
        Else
            ' 如果是最后一个，清空并重新添加第一个
            FlowLayoutPanel.Controls.Clear()
            AddPictureBox(bmps.First())
        End If
    End If
End Sub

Sub AddPictureBox(img As PictureBox)
    FlowLayoutPanel.Controls.Add(img)
    img.SizeMode = PictureBoxSizeMode.StretchImage ' 设置缩放模式
    img.ImageLocation = GetNextImagePath() ' 获取下一幅图的路径
End Sub