Question

如何在VB 中实现开关做用 点击一下开再点一下关, 请问如何写程序,具体点谢谢

Answer 1

在按钮代码里弄一个累加器计数；将数值除以2，假如余数为0时，去执行一个动作；余数不为0时去执行另一个动作。一定能成功的！

追问

你好 可以具体一点吗. 比如代如何写 我是个新手 谢谢你的回答

追答

Option Explicit
'弄两个按钮，应该会吧！我的手也不旧。
Private Sub Command1_Click()
Static i As Integer'或者是long型的。
i = i + 1'这就是累加器。
If i Mod 2 = 0 Then Command2.Visible = False'执行关闭功能
If i Mod 2 0 Then Command2.Visible = True'执行打开功能
End Sub

追问

可是我想用一个 CHECK 控件来实现 当选上时为ON 不被选时为OFF

追答

那就更容易！不必在这里啰嗦，去弄一个便是。