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调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
现有一堆控件image1(0),image1(1),image1(2)....
如何更改为 :image1,image2,image3
好象直接更改控件名不可以的啊
也就是说能不能取消掉控件数组
为什么要更改呢？用一个循环，控件数组image1(i)用起来更方便 ......
