VB控件的Visible属性
请教一下各位，我想用三个单选控制三个文本框的可见与不可见，代码如下：
Private Sub Option1_Click()
If Option1.Value = Ture Then
Text1.Visible = Ture
Text6.Visible = False
Text2.Visible = False
Else
Text1.Visible = False
Text6.Visible = Ture
Text2.Visible = Ture
End If
End Sub
----------------------------
Private Sub Option2_Click()
If Option2.Value = Ture Then
Text1.Visible = False
Text6.Visible = Ture
Text2.Visible = False
Else
Text1.Visible = Ture
Text6.Visible = False
Text2.Visible = Ture
End If
End Sub
----------------------------
Private Sub Option3_Click()
If Option3.Value = Ture Then
Text1.Visible = False
Text6.Visible = False
Text2.Visible = Ture
Else
Text1.Visible = Ture
Text6.Visible = Ture
Text2.Visible = False
End If
End Sub
但是不对，如果三个单选我一个都不点，那么三个文本框都能看的见，只要我点任何一个，三个文本框都一起消失，再也出不来，很郁闷啊，
看不出。
加个sub
代码
Text1.Visible = Option1.Value
Text6.Visible = Option2.Value
Text2.Visible = Option3.Value
end sub
3个opt_click里call这个sub，试试
VB code
Code highlighting produced by Actipro Cod
相关问答：
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
只会VB，当过1年的VB程序员
现在想与时俱进，学哪门语言好呢
vb.net ,C# ,Java, 还是VC++?
哪门能够快速的上手，并转型？
C#，winform或webform都可以
vb.net
VC++
引用
VC++
麻烦能说个理由么。。� ......
