Одиночная кнопка, несколько изображений в окне изображения

Question

Этот код изменяет изображение с помощью 2 кнопок. Как изменить изображение в окне изображения, используя только одну кнопку? Есть ли код для определения того, сколько раз пользователь уже нажал кнопку?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    PictureBox1.Image = Image.FromFile("C:\1.jpg") 
End Sub 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    PictureBox1.Image = Image.FromFile("C:\2.jpg") 
End Sub 

Answer 1

Ваш вопрос о «определить, сколько раз пользователь уже нажал кнопку» немного неясно, но я думаю, что вы имеете в виду, какая картина показывает

Вы можете сделать это с, если заявление ,

А чтобы проверить количество кликов вы можете использовать тусклый «Dim CurPicture As Integer = 1 »
В вашей, если заявление вы проверяете число CurPicture «так что если 1 показать изображение 1»
Таким образом, каждый раз, нажатии на кнопку вы добавляете 1 к CurPicture

Если вы хотите, чтобы петля обратно к картине 1, если последняя картина показывает вам нужно сделать CurPicture 1

Dim CurPicture As Integer = 1 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If CurPicture = 1 Then 
     PictureBox1.Image = Image.FromFile("C:\1.jpg") 
     CurPicture = 2 

    ElseIf CurPicture = 2 Then 
     PictureBox1.Image = Image.FromFile("C:\2.jpg") 
     CurPicture = 3 

    ElseIf CurPicture = 3 Then 
     PictureBox1.Image = Image.FromFile("C:\3.jpg") 
     CurPicture = 4 

    ElseIf CurPicture = 4 Then 
     PictureBox1.Image = Image.FromFile("C:\4.jpg") 
     CurPicture = 5 

    ElseIf CurPicture = 5 Then 
     PictureBox1.Image = Image.FromFile("C:\5.jpg") 
     CurPicture = 1 
    End If 

End Sub