listbox的问题

Question

没问题啊
Private Sub Form_Load()
         List1.AddItem "10"
         List1.AddItem "11"
         List1.AddItem "12"
         List1.AddItem "13"
End SubPrivate Sub Command1_Click()
Label1.Caption = List1.Text
End Sub

Answer 1

list1.listindex =(填写数字)
label1.caption = list1.text

Answer 2

我测试的结果是，除非反显list的数据后才正确，如果只是单纯的通过up 或者 down 改变list1,并不能得到正确的label1.caption

Answer 3

Private Sub Form_Load()
         List1.AddItem "10"
         List1.AddItem "11"
         List1.AddItem "12"
         List1.AddItem "13"
End SubPrivate Sub Command1_Click()
if list1.listindex<>-1 then
   Label1.Caption = List1.list(list1.listindex)
end if
End Sub

Answer 4

Private Sub Form_Load()
         List1.AddItem "10"
         List1.AddItem "11"
         List1.AddItem "12"
         List1.AddItem "13"
End SubPrivate Sub Command1_Click()
List1_Click
End SubPrivate Sub List1_Click()
If List1.ListIndex <> -1 Then Label1.Caption = List1.List(List1.ListIndex)
End Sub