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

显示全部楼层 · 2008-6-1 08:12:48

实现一下效果
新键5个Option 分别为Option1 Option2 Option3 Option4 Option5
下拉框第一个显示123
下拉框第二个显示45
选择下拉组合框的第1个则显示Option1 Option2 Option3
选择下拉组合框的第二个则显示Option4和 Option5
我要完整的代码最好有注释谢谢了

千问 · 2008-6-1 08:12:48

'这样的题,我建议你用控件数组,你将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,即显示,否则对应隐藏
NextEnd Sub

千问 · 2008-6-1 08:12:48

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

千问 · 2008-6-1 08:12:48

if combo1.text="123" thenOption1.visible=trueOption2.visible=trueOption3.visible=trueOption4.visible=falseOption5.visible=falseelseif combo1.text="45 then"Option1.vis