Question

vb中的list控件

有一个label1和一个list1
list1中有2个list(1),list(2).
list1.list(1)=aaa
list1.list(2)=bbb
怎么样才能在list1中点bbb，label1.caption 就等于bbb??
点aaa,label1.caption就等于aaa???

Answer 1

list1中有2个Item(1),Item(2). '这才是对的

private sub list1_click()
label1.caption =list1.text
end sub
即可

Answer 2

Private Sub Form_Load()
Dim aaa, bbb As String
List1(0).AddItem "aaa"
List1(1).AddItem "bbb"
End Sub

Private Sub List1_Click(Index As Integer)
Select Case Index
Case 0
Label1.Caption = List1(0).Text
Case 1
Label1.Caption = List1(1).Text
End Select

End Sub