Question

VB中ComboBox控制combobox问题

第4个先选中某个事项，该事项（比如，会需要年：1；月：2；日：15）会改变其他3个COMBOBOX以设定好的值。

Answer 1

Private Sub Combo4_Click()
t = Trim(Combo4.Text)
Combo1.Text = Year(DateValue(t))
Combo2.Text = Month(DateValue(t))
Combo3.Text = Day(DateValue(t))
End Sub

追问

arr1 = Array("0年", "1年", "2年", "3年")
ComboBox1.List = arr1
arr2 = Array("0个月", "1个月", "2个月", "3个月", "4个月", "6个月")
ComboBox2.List = arr2
'ComboBox2.Locked = True
arr3 = Array("0天", "5天", "15天", "30天")
ComboBox3.List = arr3
arr4 = Array("申请费及申请文件补充", "优先权材料提交")
ComboBox4.List = arr4
“Combo4.Text的内容不是日期，是某具体的事件，我怎么写代码？”

追答

ComboBox中的Click事件
然后用IF判断Combo4的内容再进行Combo1~3 的修改

追问

能再具体点吗？比如："申请费及申请文件补充",需要 1年3个月5天；"优先权材料提交"需要 2年1个月15。麻烦了！

追答

select case combo4.text
case "申请费及申请文件补充"
combo1.text="1年"
combo2.text="3个月"
combo3.text="5天"
Case "优先权材料提交"
combo1.text="2年"
combo2.text="1个月"
combo3.text="15天"
end select
不如如果Combo项目是固定的话,也可以通过ListIndex 来完成

追问

Combo项目是固定的,就是想问怎么通过ListIndex 来完成？

追答

Private Sub Combo4_Click()
'Combo4选择时
Select Case Combo4.ListIndex
Case 0
Combo1.Text = Combo1.List(1)
Combo2.Text = Combo2.List(3)
Combo3.Text = Combo3.List(1)
Case 1
Combo1.Text = Combo1.List(2)
Combo2.Text = Combo2.List(1)
Combo3.Text = Combo3.List(2)
End Select

End Sub

Private Sub Form_Load()
'载入列表项
arr1 = Array("0年", "1年", "2年", "3年")
For Each x In arr1
Combo1.AddItem x
Next
arr2 = Array("0个月", "1个月", "2个月", "3个月", "4个月", "6个月")
For Each x In arr2
Combo2.AddItem x
Next
Combo2.Locked = True
arr3 = Array("0天", "5天", "15天", "30天")
For Each x In arr3
Combo3.AddItem x
Next
arr4 = Array("申请费及申请文件补充", "优先权材料提交")
For Each x In arr4
Combo4.AddItem x
Next
End Sub

Answer 2

比如你要在combo2里面添加一个项，就用
combo2.additem "内容"
如果要删掉combo2里的第4个，就用
combo2.removeitem 3（注意要减1，删掉第1个就填0，删掉第2个就填1，以此类推）
如果要全删了，就用
combo2.clear

Answer 3

在ComboBox中的Change事件里写处理就行

希望回答对你有帮助

追问

我确实是Change事件的，但怎么做到4的改变，从而影响1、2、3的值的改变？