單個按鈕，圖片箱中的多個圖片

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

您對「決定多少次的用戶已經點擊按鈕」是有點不清楚，但我想你指的是哪個圖片顯示

你可以做的問題，與一個if語句。

，並檢查點擊的數字，您可以使用一個昏暗的「點心CurPicture作爲整數= 1 」
在你的if語句您檢查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