查人人中国名人网2018款奔驰r级最新消息:vb中的list控件
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 05:50:52
有一个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???
list1中有2个list(1),list(2).
list1.list(1)=aaa
list1.list(2)=bbb
怎么样才能在list1中点bbb，label1.caption 就等于bbb??
点aaa,label1.caption就等于aaa???
list1中有2个Item(1),Item(2). '这才是对的
private sub list1_click()
label1.caption =list1.text
end sub
即可
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