VB编程 按钮转换图片

来源：百度知道 编辑：UC知道 时间：2024/05/21 21:20:18
我把按钮1设为把图片1转换为图片2,可是,怎么样才能当再次按按钮1时把图片2转为图片1

Private Sub Form_Load()
Picture1.Tag = 0
End Sub

Private Sub Command1_Click()
If Val(Picture1.Tag) = 0 Then
Picture1.Tag = 1
Picture1.Picture = LoadPicture("D:\1.jpg")
Else
Picture1.Tag = 0
Picture1.Picture = LoadPicture("D:\2.jpg")
End If
End Sub

在点击按钮的代码中使用if来判断

if 显示的是图片1 then

图片1换为图片2

elseif 显示的是图片2 then

图片2换为图片1

endif

呵呵，中文代码，应该能看懂咯。

在按钮事件里加个IF的判断语句
先判断是图片几
然后更改成另一个图片

图片的文件名可以设置为:
图片1的文件名为:abcTrue.jpg
图片2的文件名为:abcFalse.jpg

设置一个布尔型变量：bool_pic=True
然后点击图片的时候改变图片地址
bool_pic=not bool_pic
picurl="abc_" & cstr(bool_pic) & ".jpg"

privat sub commond1_click()
static a as intger
a=a+1
if a=1 then
picture1.picture=loadpicture("图片1路径.jpg")
end if
if a=2 then
picture1.picture=loadpicture("图片2路径.j