Question

Vb 高手来，关于combobox 问题

我想制作一个单位转换软件。
我先作了 3个 combobox ，分别是 combo1 ，combo2，combo3.
我的意思是，如果选中combo1的“长度单位” 那 combo2，combo3中的 List 值 就变成 有关长度的单位，比如“米，分米，厘米 ”等，如果选中 combo1的“重量单位”
那 combo2，combo3中的 List 值 就变成 有关重量的单位，比如“千克，克 ”等，
大家帮个忙！

Answer 1

Private Sub Combo1_Click()
Combo2.Clear
Combo3.Clear
If Combo1.ListIndex = 0 Then '重量单位
Combo2.AddItem "克"
Combo2.AddItem "千克"
Combo3.AddItem "克"
Combo3.AddItem "千克"
'///////继续添加别的
End If
If Combo1.ListIndex = 1 Then '长度单位
Combo2.AddItem "米"
Combo2.AddItem "分米"
Combo2.AddItem "厘米"
Combo3.AddItem "米"
Combo3.AddItem "分米"
Combo3.AddItem "厘米"
'///////继续添加别的
End If
Combo2.ListIndex = 0
Combo3.ListIndex = 0
End Sub

Private Sub Form_Load()
Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo1.AddItem "重量单位"
Combo1.AddItem "长度单位"
'//////继续添加别的
Combo1.ListIndex = 0
End Sub

Answer 2

Private Sub Combo1_Change()
Combo1_Click
End Sub

Private Sub Combo1_Click()
If Combo1.ListIndex = -1 Then Exit Sub '防止错误
Select Case Combo1.ListIndex
Case 0
Combo2.ListIndex = 1
Combo3.ListIndex = 1
Case 1
Combo2.ListIndex = 0
Combo3.ListIndex = 0
End Select
End Sub

Private Sub Form_Load()
' 清空
Combo1.Clear
Combo2.Clear
Combo3.Clear
' 加入资料
Combo1.AddItem "长度单位"
Combo1.AddItem "重量单位"
Combo2.AddItem "千克，克"
Combo3.AddItem "千克，克"
Combo2.AddItem "米，分米，厘米"
Combo3.AddItem "米，分米，厘米"
End Sub

Answer 3

hi 我