Question

VB中Check语句

怎样使选中check语句（即对“构建为梁”打钩）时，使上面的文本框不可见，我编的如下，但不对，请各位大神指正。
Private Sub Check1_click()
If Check1.Value = 1 - Checked Then
Text1.Visible = True
Else
Text1.Visible = False
End If
End Sub

Answer 1

1 - Checked 改为 1 即可，后面的 - Checked 是注释，1才是真正的值。
另外程序可以简化为：

Private Sub Check1_Click()
Text1.Visible = (Check1.Value = 1)
End Sub

追问

这样好像结果反过来了，和我之前遇到的状况一样，打钩的时候有文本框，不打钩就没有了

追答

哦，是我没看清题目，那就这样咯：

Private Sub Check1_Click()
Text1.Visible = (Check1.Value 1)
End Sub

追问

这就对了，可是为什么我之前的程序为什么不对啊，除了去掉1后面的东西？

追答

你把它反过来就行咯！

Private Sub Check1_click()
If Check1.Value = 1 Then '如果Check1勾选
Text1.Visible = False 'Text1隐藏
Else
Text1.Visible = True '否则就显示
End If
End Sub

也就是把True和False掉个个不就行啦！

Answer 2

Private Sub Check1_click()
Text1.Visible = Not Check1.value
End Sub

追问

运行不出来啊

追答

测试一切正常

追问

好吧，可能版本不同吧，不过还是谢谢咯

Answer 3

text1.visible=false