Как создать «следующую» и «предыдущую» кнопку для списка картинок? - PullRequest
Новая
       16

Как создать «следующую» и «предыдущую» кнопку для списка картинок?

0 голосов
/ 17 июня 2019

Я пытаюсь создать графический блок с помощью кнопки «Далее» и «Предыдущий», чтобы изменить изображения в этом поле. И я сделал это успешно, но теперь я хочу, чтобы при нажатии на каждое изображение он мог выполнять действие «копировать файл».

Пожалуйста, помогите мне.

Это мой код для создания следующей и предыдущей кнопки для смены изображений в картинке. 

Dim Files() As String
Dim Pointer As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If FolderBrowserDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
        Files = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath)
    End If
    Pointer = -1
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Do
        Pointer = (Pointer + 1) Mod Files.Count
    Loop Until checkimagetype(Files(Pointer))
    Try
        PictureBox1.Image = Image.FromFile(Files(Pointer))
    Catch ex As Exception
        MessageBox.Show(ex.Message & " " & Files(Pointer), My.Application.Info.Title, _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Do
        Pointer -= 1
        If Pointer < 0 Then Pointer = Files.Count - 1
    Loop Until CheckImageType(Files(Pointer))
    Try
        PictureBox1.Image = Image.FromFile(Files(Pointer))
    Catch ex As Exception
        MessageBox.Show(ex.Message & " " & Files(Pointer), My.Application.Info.Title, _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub
...