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
相关问答：
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
报这个错:
compile Error
sub or function not defined
和我引用这个库函数有关系吗？
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
现有一堆控件image1(0),image1(1),image1(2)....
如何更改为 :image1,image2,image3
好象直接更改控件名不可以的啊
也就是说能不能取消掉控件数组
为什么要更改呢？用一个循环，控件数组image1(i)用起来更方便 ......
