[VB6 ] 怎麼使picturebox換圖

看板Visual_Basic作者ffing (月光喵喵)時間17年前 (2007/04/19 15:25)推噓2(2推 0噓 1→)

留言3則, 2人參與討論串1/2 (看更多)

我現在的想法是在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

04/19 16:04, , 1^F

04/19 16:04, 1^F

推

colawei

04/19 20:30, , 2^F

04/19 20:30, 2^F

→

colawei

04/19 20:31, , 3^F

04/19 20:31, 3^F