UC知道VB编程 求教：我想用picture控件做个程序，当我单击picture时图片变换，代码是什么？
来源：百度知道 编辑：UC知道 时间：2024/05/15 17:10:55
用image做的也可以。
Private Sub Form_Load()
a = "C:\Documents and Settings\Administrator\桌面\pic\1.jpg"
b = "C:\Documents and Settings\Administrator\桌面\pic\2.jpg"
Image1.Picture = LoadPicture(a)
End Sub
Private Sub Image1_Click()
Image1.Picture = LoadPicture(b)
End Sub
我这样为什么不行啊？我一点图片就没了，而不是出现图片2。
Private Sub Form_Load()
a = "C:\Documents and Settings\Administrator\桌面\pic\1.jpg"
b = "C:\Documents and Settings\Administrator\桌面\pic\2.jpg"
Image1.Picture = LoadPicture(a)
End Sub
Private Sub Image1_Click()
Image1.Picture = LoadPicture(b)
End Sub
我这样为什么不行啊？我一点图片就没了，而不是出现图片2。
这需要提供你的完整路径的图片名，并且图片名是连续的
比如p1,p2,p3
dim a,b as string
a = "C:\Documents and Settings\Administrator\桌面\pic\1.jpg"
b = "C:\Documents and Settings\Administrator\桌面\pic\2.jpg"
Private Sub Form_Load()
Image1.Picture = LoadPicture(a)
End Sub
Private Sub Image1_Click()
Image1.Picture = LoadPicture(b)
End Sub
这样就应该没问题了