国产凌凌漆粤语 1080p:求助，如何用VB实现开关的功能

这个问题很简单 原理就是 替换图片！

如: K_Image，G_Image 分别是 开，关状态的图片地址！
ButtonStatusB 是 开关的状态 false 为关，true 为开
picture1 为 显示你开关的图片框!
那么程序就是这样写

'因为你说 开关的状态是开那么
ButtonStatusB=true

private sub picture1_click()
if ButtonStatusB then '说明此时开关开状态
Picture1.picture=loadpicture(G_Image)
else
Picture1.picture=loadpicture(K_Image)
end if

'因为每按一次开关其状态就交换一次，
'所以不要再上买写两遍，这里一编就可以

ButtonStatusB=not ButtonStatusB

end sub

Private Sub Picture1_Click()
Picture1.Visible = False
Picture2.Visible = True
'写控制语句
End Sub

Private Sub Picture2_Click()
Picture2.Visible = False
Picture1.Visible = True
'写控制语句
End Sub

我在给个答案吧。
新建工程，添加一个picture控件，名字改做pic1,将以下代码拷贝到编辑区，运行即可

Option Explicit
Dim BZ As Integer
'BZ=0开关关闭
'BZ=5开关开启
Private Sub Form_Load()
BZ = 0 ''假设初始的状态是关闭状态，您可以自定义
Pic1.BackColor = vbBlue
'Pic1.Picture = LoadPicture("关闭时的图片路径")
End Sub

Private Sub Pic1_Click()
If BZ = 0 Then BZ = 5 Else BZ = 0
If BZ = 0 Then
Pic1.BackColor = vbBlue
'Pic1.Picture = LoadPicture("关闭时的图片路径")
Else
Pic1.BackColor = vbRed
'Pic1.Picture = LoadPicture("打开时的图片路径")
End If
End Sub
'以上例子用背景的变换来代表图片的变换，但是同时用注释的形式给出了载如图形的语句。

Private Sub Picture1_Click()
if 图像框里的图片地址是(开的地址) then
图像框里的图片地址是(关的地址)
控制语句
else
图像框里的图片地址是(开的地址)
end if
这样你会懂吧？