Question

vb下一个form中有两个listbox，如何让两个listbox的内容都能选但是只能选中其中的一项内容。

如list1中有西瓜、香蕉list2中有星星、月亮，选中其中一个就能在旁边显示对应的预览图片。

Answer 1

楼主应该是想要看起来的效果更直接一些，这样试试：

Private Sub List1_GotFocus()
If List2.ListIndex >= 0 Then
List2.Selected(List2.ListIndex) = False
End If
End Sub

Private Sub List2_GotFocus()
If List1.ListIndex >= 0 Then
List1.Selected(List1.ListIndex) = False
End If
End Sub

Answer 2

在listbox中加个限制条件吧
Private Sub List1_Click()
List2.ListIndex = -1
End Sub

Private Sub List2_Click()
List1.ListIndex = -1
End Sub

Answer 3

首先将两个listbox的内容都设置为单选，再随意定义一个子过程：
private sub ab ()
if list1.selectedindex<>-1 then
list2.selectedindex=-1
if list2.selectedindex<>-1 then
list1.selectedindex=-1
end sub

Answer 4

在单击事件中
设置另一个listbox 的ListIndex = -1
这样就只有选中的为蓝色

Answer 5

添加的时候两个不重复不就完了么？
这么做好像没什么意义

追问

两种类型的，分下类。

追答

默认就是只能选一个啊

追问

选中第二个的listbox中的内容，第一个listbox中原来被选中的仍然是蓝色啊。

追答

那有怎么样？不行么?

追问

有没有办法哪个被选中就只有那个是蓝色的

追答

没办法，也没意义