Question

vb中一个listbox中的值如何关联另一个listbox中的值

比如我有两个listbox，其中一个listbox中的值为1,2；当我选1时，第二个istbox中的值显示为a,b,c,当我选2时，第二个listbox中的值显示为d,e,f，求完整代码

Answer 1

使用listbox的click事件，
事件内容写
if listbox1.text="1" then
listbox2.text="a,b,c"

end if

另外一个类似写

追问

在VBA中经过测试，不行；第二个listbox中没有东西,我的代码：

追答

if listbox1.text="1" then下面的代码不应该放在userform_initialize中的

应该放在listbox1的click事件中

追问

报错了

追答

什么错误呀？

追问

追答

应该是listbox2.text="a,b,c"错了
不是这么用的，可以远程给你调试不？

追问

对，是这里错了，单位的电脑，远程不了，我用的VBA，不是VB，和这个有关系吗？您可以在excel中测试一下把代码发给我吗？

追答

有关系的；
ListBox2.Items.Clear()
ListBox2.Items.Add("a,b,c")
换成这个

追问

还是不行

追答

我用的是vb2010，是可以的。
估计是你的是vb6，在用法上有些不同；
能远程是最好的，你上百度上问问vb 6.0 listbox的用法吧，不好意思

Answer 2

Private Sub Form_Load()
List1.AddItem 1
List1.AddItem 2
End Sub
Private Sub List1_Click()
List2.Clear
If List1.List(List1.ListIndex) = 1 Then
List2.AddItem "a"
List2.AddItem "b"
List2.AddItem "c"
Else
List2.AddItem "d"
List2.AddItem "e"
List2.AddItem "f"
End If
End Sub

追问

第二个listbox没有内容