关于（vb listbox控件列表框对应插入的问题）请各位老师帮帮忙！谢谢了！

qiziyun 发布于 2013-01-14 10:45， 415 次点击

只有本站会员才能查看附件，请登录

程序代码：

Private Sub List1_DblClick()

If Text1 <> "" Then
Text1 = Text1 & "，" & List1.List(1)
Text1 = Text1 & "，" & List1.List(2)
End If

If Text1 = "" Then
Text1 = List1.List(1)
Text1 = List1.List(2)
End If

End Sub

在界面双击姓名2还可以！会把姓名2写到Text1里，但是双击了姓名3就会连带着姓名2一起写到Text1里！要怎么写能知道我点击了一个个项！不要触发到没有点击到的项！麻烦各位师傅了！！！谢谢了！！！能详细的写个列子给我吗！！

5 回复

Artless2013-01-14 12:44

Private Sub List1_DblClick()
text1.text=""
If list1.listindex=0 Then
Text1 = List1.List(0)
else
Text1 = List1.List(0) & "，" & List1.List(1)
End If

End Sub

qiziyun2013-01-14 14:24

回复 2楼 Artless

Artless 你好谢谢你帮我

但是现在的问题是双击姓名2就输入姓名1和姓名2！也就是触发了Text1 = List1.List(0) & "，" & List1.List(1)这段！
我想他们互不干扰，有时候需要姓名2在前姓名1在后这样就不行了！能帮我在解决一下么！！！
麻烦你了！！

Artless2013-01-15 13:00

有时候需要姓名2在前姓名1在后？

yz10252013-01-15 21:50

程序代码：

Private Sub List1_Click()
Dim i As Integer
i = List1.ListIndex 'i就是你点的那一行index
End Sub

qiziyun2013-01-18 05:30

多谢~Artless 和 yz1025
yz1025 你这个i = List1.ListIndex 启发了我终于写好了！！我是用Select Case 来配合你的实现的！！！