Question

vb中设置一个图形按钮实现切换“开，关”状态显示

一.vb中设置一个图片按钮
我用picturebox，还是commandbutton控件导入ps画好的图片？我试下来按钮控件好像无法导入外部图片。
二.要求该按钮实现一种状态显示
1.用上一步做的按钮实现，按下去未打开状态，再按下去，图片切换未关闭时候的图片。

请高手给我一个思路，或者代码。有完整的代码最好，谢谢。
更正！！1.用上一步做的按钮实现，按下去图形按钮为打开状态的图片，再按下去图片按钮切换为关闭时候的图片。

Answer 1

首先将按钮控件command1的style属性选为1(否则不能显示图片)

dim flag as boolean

Private Sub Form_Load()
Command1.Picture = LoadPicture(App.Path & "\关闭时候的图片.jpg")
end sub

Private Sub Command1_Click()

if flag=true then
flag=false
command1.Picture = LoadPicture(App.Path & "\关闭时候的图片")
else
flag=true
command1.Picture = LoadPicture(App.Path & "\打开状态的图片")
endif

End Sub

Answer 2

看了前面的答复感觉是不好使的，没有弄明白过程和变量的作用域和变量生存期的问题。不可能实现持续循环交替变换。试着用一下程序代码：
Static Sub anniu()
Dim x As Boolean
If x = False Then
Command1.Picture = LoadPicture("X:\vb\开.bmp")
x = True
Else
command1.Picture = LoadPicture("X:\vb\关.bmp")
x = False
End If
End Sub
--------------------------------------------------------------------------
Private Sub command1_Click()
Call anniu
End Sub

Answer 3

按钮的style属性修改为1之后才能使用图片

然后修改picture和downpicture属性即可

Answer 4

Picture1.Picture = Nothing 可以关闭pictrue1里的图片
Picture1.Picture = LoadPicture("c:\1.jpg")打开一个图片

Answer 5

这个没有什么的吧