作者colawei (就是可乐)
看板Visual_Basic
标题Re: [VB6 ] 怎麽使picturebox换图
时间Thu Apr 19 20:27:48 2007
这样写应该比较好
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
1F：推 fumizuki:vb6 不加 Set 不行吧？ 04/22 15:18