求助，如何用VB实现开关的功能

来源：百度知道 编辑：UC知道 时间：2024/06/08 06:06:55
有两张图片分别为开关的开状态和关状态，开状态即为接正5伏电压，关状态即为接0电压，如果开始为开状态，点击鼠标就切换为关状态，每点击一次就切换成与前一状态相反的图片。

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

如: 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