关于List问题。

Question

我在窗体上有个List1和text1控件，其中list1控件里有很多条内容，我想我在选中list1里的一条内容的时候，就把这条内容显示在text1里，该怎么写啊？？请高手指教。谢谢。

Answer 1

Text1.Text = List1.List(List1.ListIndex)

Answer 2

Private Sub List1_Click()
   If List1.ListCount < 1 Then Exit Sub
   Text1.Text = List1.List(List1.ListIndex)
End Sub

Answer 3

为什么要If List1.ListCount < 1 Then Exit Sub?

Answer 4

问题不要复杂化
Private Sub List1_Click()
    Text1.Text = List1.Text
End Sub