作者ffing (月光喵喵)
看板Visual_Basic
标题[VB6 ] 怎麽使picturebox换图
时间Thu Apr 19 15:25:36 2007
我现在的想法是在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
1F：推 gravity170:第三行 add=0 移到外面去应该就OK了 04/19 16:04
2F：推 colawei:你的cls清掉的是form不是picture1.其实可以不用写. 04/19 20:30
3F：→ colawei:要的话就改picture1.cls 04/19 20:31