combobox的默认值的问题，谢谢啊！

Question

现在有两个 combobox的控件 第一个 combobox控件 可以选择两个值中一个  比如 “男人” “女人” 两个选择项，这个在list属性里面设置好就可以了。但是第二个 combobox控件 的选择值希望 依据第一个combobox的值来判断的 比如第一个选择了“男人”，这里可以有“已婚”、“未婚”、“其他”选项。如果选择了“女人”，那么可以有“已婚”“已孕”“其他”就也就是说第二个combobox控件的默认值 依据第一个combobox的值 给出可选择的默认值 这样如何实现呢？ 谢谢啊

Answer 1

Private Sub Combo1_Click()
    Combo2.Clear
    Combo2.Text = "已婚"
    If Combo1.Text = "男" Then
        Combo2.AddItem "已婚"
        Combo2.AddItem "未婚"
        Combo2.AddItem "其他"
    End If
    If Combo1.Text = "女" Then
        Combo2.AddItem "已婚"
        Combo2.AddItem "已孕"
        Combo2.AddItem "其他"
    End If
End SubPrivate Sub Form_Load()
    Combo1.Clear
    Combo1.AddItem "男"
    Combo1.AddItem "女"
    Combo1.Text = "男"
    Combo2.Clear
    Combo2.AddItem "已婚"
    Combo2.AddItem "未婚"
    Combo2.AddItem "其他"
    Combo2.Text = "已婚"
End Sub

Answer 2

Private Sub Combo1_Click()
    Combo2.Clear
    Combo2.Text = "已婚"
    If Combo1.Text = "男" Then
        Combo2.AddItem "已婚"
        Combo2.AddItem "未婚"
        Combo2.AddItem "其他"
    End If
    If Combo1.Text = "女" Then
        Combo2.AddItem "已婚"
        Combo2.AddItem "已孕"
        Combo2.AddItem "其他"
    End If
End Sub什么Private Sub Combo1_Change() 里面就不能成功呢 ？

Answer 3

Combo1_Change() 里面就不能成功要用Combo1_Click

Answer 4

那么 用select case 语句可以实现嘛？

Answer 5

我现在这样总归好了Private Sub Combo1_Click()    If Combo1.Text = "住宅类" Then
            Combo2.Clear
            Combo2.AddItem "商品房"
            Combo2.AddItem "售后公房"
            Combo2.AddItem "其他"
    End If
    
    If Combo1.Text = "非住宅类" Then
            Combo2.Clear
            Combo2.AddItem "办公楼"
            Combo2.AddItem "创意园区"
            Combo2.AddItem "商务中心"
            Combo2.AddItem "商住房"
            Combo2.AddItem "酒店式公寓"
            Combo2.AddItem "商业/商铺"
            Combo2.AddItem "工业类"
    End If
    
End Sub

Answer 6

组合框的Change事件只有是在Style属性为0或1时，即带有文本输入功能时才能触发。
 

Answer 7

关键就是：Private Sub Combo1_Click()而不是Private Sub Combo1_Change() 
所以多半你没成功