vb.net 窗体 flowlaypanel 照片在c:\123 长条重复轮播

在VB.NET中，`FlowLayoutPanel`是一个常用的控件，它允许你水平或垂直地组织控件，并自动调整布局。如果你想要在窗体上创建一个长条形照片轮播效果，图片存储在"C:\123"目录下，你可以按照以下步骤操作：

1. **添加FlowLayoutPanel**:
- 在窗体设计阶段，拖动一个FlowLayoutPanel控件到窗体上。
- 设置`FlowLayout`属性为`Horizontal`，使其以横向流式布局显示。

2. **设置照片路径**:
- 创建一个`PictureBox`控件数组，用于显示图片。遍历"C:\123"目录下的照片文件名，动态添加到数组中。

Dim pictureBoxes(0) As PictureBox
For Each filePath In Directory.GetFiles("C:\123")
    Dim pictureBox = New PictureBox()
    pictureBox.ImageLocation = filePath
    pictureBox.SizeMode = PictureBoxSizeMode.StretchImage ' 控制图片缩放方式
    pictureBoxes.Add(pictureBox)
Next

3. **轮播效果**:
- 可能需要定时器配合实现轮播。例如，可以每隔一段时间改变当前显示的pictureBox索引，或者使用`SlideShow`控件。

Dim timer As Timer = New Timer()
AddHandler timer.Tick, AddressOf Timer_Tick
timer.Interval = 3000 ' 滑动间隔时间（毫秒）
timer.Start()

Private Sub Timer_Tick(sender As Object, e As EventArgs)
    If pictureBoxes.Count > 1 Then
        Dim currentIndex As Integer = pictureBoxes.IndexOf(Me.PictureBox1) ' 获取当前显示图片的位置
        If currentIndex <> pictureBoxes.Count - 1 Then
            PictureBox1.Image = pictureBoxes(currentIndex + 1).Image ' 移动到下一个图片
        Else
            PictureBox1.Image = pictureBoxes(0).Image ' 当到达最后一张图片时返回第一张
        End If
    End If
End Sub