Question

VB如何将List中点中的项目发送到Text1

写一个程序，list1点中一个项目就将其项目发送到Text1上，如果再点击另一个项目，就将Text给clear，如何实现？
拜托大家啊，listindex是获取标号的……第二楼的更加离谱……list不是Text的……

Answer 1

参考一下：
Private Sub List1_Click()
Text1.Text = "" '清空Text1种的内容
Text1.Text = List1.Text '将选中的项目发送到Text1中
End Sub

Answer 2

text1=list1.listindex
就这个了
意思是把所选择的项 放到 text1里

Answer 3

Private Sub List1_Click()
if Text1.Text = "" then
Text1.Text = List1.List(List1.ListIndex)
else
Text1.Text = ""
end if
End Sub