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进入
CurrentImage = -1 和 CurrentImage = _ImageFileNames.Count -1

现在有效!!

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

1 个答案: