Re: [VB6 ] 怎麼使picturebox換圖

[colawei (就是可樂)]

這樣寫應該比較好
Private Sub Picture1_Click()
    Static add As Integer
    Dim pic As Variant
    pic = Array("white.jpg", "blue.jpg", "black.jpg")
    Picture1.Picture = LoadPicture(App.Path & "\pic\" & pic(add))
    add = (add + 1) Mod 3
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 219.81.206.178
推 fumizuki:vb6 不加 Set 不行吧？