VB图片幻灯片左右循环切换问题：首图左切无法跳至末图求助

我来帮你排查这个向左切换的问题～你的代码逻辑里有两个关键错误，导致首张图按左键无法正常跳转到最后一张：

问题分析 #

1. 索引判断逻辑错误：当当前处于首张图（_CurrentImage = 0）时，执行_CurrentImage = _CurrentImage -1后，值会变成-1，但你的判断条件是If _CurrentImage = 0，这个条件根本不会触发，导致后续用负数索引访问集合，必然出现异常。
2. 索引赋值错误：就算条件触发了，你把_CurrentImage设为_ImageFileNames.Count也是错的——集合索引从0开始，最后一张图的正确索引应该是_ImageFileNames.Count - 1，直接用Count会超出索引范围。

修正后的代码 #

这里提供两种修复方案，你可以根据习惯选择：

方案1：清晰的条件判断逻辑

Private Sub ShowPrevImage()
    _CurrentImage = _CurrentImage - 1
    ' 当索引小于0时，跳转到最后一张图的索引（Count-1）
    If _CurrentImage < 0 Then
        _CurrentImage = _ImageFileNames.Count - 1
    End If
    ' 释放旧图片资源（和向右切换逻辑保持一致）
    If Not Me.BackgroundImage Is Nothing Then
        DirectCast(Me.BackgroundImage, Image).Dispose()
    End If
    Me.BackgroundImage = Image.FromFile(_ImageFileNames(_CurrentImage))
End Sub

方案2：用Mod运算符简化循环逻辑（和向右切换思路统一）

Private Sub ShowPrevImage()
    ' 先加上集合总数避免负数，再取模实现循环
    _CurrentImage = (_CurrentImage - 1 + _ImageFileNames.Count) Mod _ImageFileNames.Count
    ' 释放资源和加载图片的逻辑不变
    If Not Me.BackgroundImage Is Nothing Then
        DirectCast(Me.BackgroundImage, Image).Dispose()
    End If
    Me.BackgroundImage = Image.FromFile(_ImageFileNames(_CurrentImage))
End Sub

第二种方案的好处是不用写if判断，通过数学运算直接实现循环，和你向右切换的代码风格更统一，也能避免边界值判断出错。

内容的提问来源于stack exchange，提问作者arc95