实现一下效果(组合框的)VB的

来源：百度知道 编辑：UC知道 时间：2024/06/08 11:57:20
实现一下效果
新键5个Option 分别为Option1 Option2 Option3 Option4 Option5
下拉框第一个显示 123
下拉框第二个显示 45
选择下拉组合框的第1个则显示Option1 Option2 Option3
选择下拉组合框的第二个则显示Option4和 Option5
我要完整的代码 最好有注释 谢谢了

'这样的题,我建议你用控件数组,你将Option1~Option5的名称都用Option1,出现提示(是否创建控件数组)的时候,选是

Private Sub Combo1_Click()
Dim s As String
s = Combo1.Text '获取选择的内容
For i = 1 To 5
Option1(i - 1).Visible = InStr(s, i)
'上面这句,就是查找当前Option的下 标,是否在上面的文本中出现,如果出现,返回值>0,则对应为True,即显示,否则对应隐藏
Next
End Sub

if combo1.text="123" then
Option1.visible=true
Option2.visible=true
Option3.visible=true
Option4.visible=false
Option5.visible=false
elseif combo1.text="45 then"
Option1.visible=false
Option2.visible=false
Option3.visible=false
Option4.visible=true
Option5.visible=true
end if

Private Sub Combo1_Click()
Dim s As String
s = Combo1.Text '获取选择的内容
For i = 1 To 5
Option1(i - 1).Visible = InStr(s, i)
Next
End Sub