[VB6 ] 怎麼使picturebox換圖

[ffing (月光喵喵)]

  我現在的想法是在picturebox上點一下，圖便會換一張

  程式碼如下

Private Sub Picture1_Click()
 Dim add As Integer
 add = 0
 If add = 0 Then
  add = 1
  Picture1.Picture = LoadPicture(App.Path & "\pic\white.jpg")
 Else
  Cls
  If add = 1 Then
   add = 2
   Picture1.Picture = LoadPicture(App.Path & "\pic\blue.jpg")
  Else
   Cls
   If add = 2 Then
    add = 0
    Picture1.Picture = LoadPicture(App.Path & "\pic\black.jpg")
   End If
  End If
 End If
End Sub

  現在的問題是picturebox按了一次之後就沒有反應了，那要怎麼處理

  還是要改用其他的按鈕來達成

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 125.231.67.220
推 gravity170:第三行 add=0 移到外面去應該就OK了
推 colawei:你的cls清掉的是form不是picture1.其實可以不用寫.
→ colawei:要的話就改picture1.cls