C# と VB.NET の質問掲示板

だから、

> If i < 5 Then
> PictureBox1.ImageLocation = ("\\sv1\public\２年生\testGazou\画像" & 1 & ".png")

だと、画像は常に"\\sv1\public\２年生\testGazou\画像1.png"なので、画像1.pngしか読み込まれませんよ。
ここは、

If i < 5 Then
    PictureBox1.ImageLocation = ("\\sv1\public\２年生\testGazou\画像" & (i + 1).ToString & ".png")

とすべきでしょう。

ただ、i = 5になった時にiをリセット(= 0)するので、ToolStripMenuItem3_Clickの中身は以下のようになると思うのですが、どうでしょう。

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
    'PictureBox1に次の画像を表示するする。
    If i = 5 Then
        i = 0
    End If

    PictureBox1.ImageLocation = ("\\sv1\public\２年生\testGazou\画像" & (i + 1).Tostring & ".png")

    i += 1
End Sub

提示コードを正すならこんな感じがシンプルで良いと思います。

Private i as Integer = 0

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
    i = (i mod 5) + 1

    PictureBox1.ImageLocation = ("\\sv1\public\２年生\testGazou\画像" & i.Tostring & ".png")
End Sub



ただフォルダに『画像<番号>』というファイル名で欠番なく保存されていなければならず汎用性に欠ける気がします。
以下のようにフォルダ内のファイル名をすべて取得して条件にあうものを表示するとよいかと思います。


'PictureFolder を指定したらPicFilesをNothingに設定するようにするといろいろフォルダを指定することが出来るようになります。
    Public PictureFolder As String = "C:\Users\Public\Pictures\Sample Pictures\"
    Private PicFiles() As String = Nothing
    Private Index As Integer = -1

    Private Sub ToolStripMenuItem3_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem3.Click
        If PicFiles Is Nothing Then
            PicFiles = IO.Directory.GetFiles(PictureFolder, "*.png")
            '--- ここでPicFilesをさらに条件にあう画像に絞ってもよいかもしれません。
            Index = 0
        End If
        PictureBox1.ImageLocation = (PicFiles(Index))
        '--- IndexのループはModを使うとIfを書かなくて良いので楽です。
        Index = (Index + 1) Mod PicFiles.Length
    End Sub

みなさんの、コードを参考にした結果「画像を次々と表示させる」処理はできました。
これを、応用して前の画像を表示させるようにしようとしたんですが。


Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        'PictureBox1に前の画像を表示する
        If i = 0 Then

            i = 5
        End If
        PictureBox1.ImageLocation = ("\\sv1\public\２年生\testGazou\画像" & i - 1 & ".png")
        i -= 1

    End Sub

この、コードだと最初はiが0なのでiが5になり「PictureBox1.ImageLocation = ("\\sv1\public\２年生\testGazou\画像" & i - 1 & ".png")」
ここの処理でiが4になり「画像4」が表示されるようになってしまいます。

それを、改善するためにi=0の時i=6になるようにしたところ「画像5」から4、3、2、1と表示されるようになりました。
しかし、なぜか知らないですけど「画像1」が表示されたあとに前の画像を表示させるボタンをクリックすると
画像を認識しないエラーのアイコンが表示されます。
そのあとに、画像5がまた表示されるようになるんですがこのエラーの原因がわかりません^^;
自分の考えとしては、iが1なった時iが-1されるのであるはずもない「画像0」というものが表示されたんだと考えています。
これの、解決策をお願いしますm(__)m


ちなみに、フォルダに入ってる画像は「画像1.png」から「画像5.png」までです。