使用（字符串）列表循环项目图片幻灯片

Question

我找到了显示一些图片的示例代码，最初是幻灯片...问题是它只向右运行...从第一张图片开始正确循环，但我找不到如果我按左键，则以相反的方式显示最后一张图片...这是正确的代码：

    Private Sub ShowNextImage()
    'From 0 to _ImageFileNames.Length, use Mod to repeat when past end.
    _CurrentImage = (_CurrentImage + 1)
    If _CurrentImage = _ImageFileNames.Count Then
        _CurrentImage = 0
    End If

    If Not Me.BackgroundImage Is Nothing Then
        DirectCast(Me.BackgroundImage, Image).Dispose()
    End If
    Me.BackgroundImage = Image.FromFile(_ImageFileNames(_CurrentImage))
End Sub

我已经试过了，但没有用：

Private Sub ShowPrevImage()
    'From 0 to _ImageFileNames.Length, use Mod to repeat when past end.
    _CurrentImage = (_CurrentImage - 1)
    If _CurrentImage = 0 Then 
        _CurrentImage = _ImageFileNames.Count
    End If

    If Not Me.BackgroundImage Is Nothing Then
        DirectCast(Me.BackgroundImage, Image).Dispose()
    End If
    Me.BackgroundImage = Image.FromFile(_ImageFileNames(_CurrentImage))
End Sub

它向右和向左都很好用，除非照片是第一张（不要转到最后一张！）。

有什么帮助吗？

Answer 1

我改变： CurrentImage = 0 进入
当前图像 = -1 和当前图像 = _ImageFileNames.Count -1

现在可以使用了！！

使用（字符串）列表循环项目图片幻灯片

Using a list (of string) for looping items picture slideshow

vb.net

indexing

list

indexof