Question

VB如何设置选中Listbox中的某一项后Label显示某一个数

比如，我选"A" 这个项时Label1.Caption = "1"，我选"B"这个项时Label2.Caption = "2"
如何写
If ... Then
Label1.Caption = 1
If 和Then 之间如何写。。

Answer 1

在list控件的click事件中写。

private sub list1_click()
select case list1.list(list1.listindex)
case "A"
label1.caption="1"
case "B"
label1.caption="2"
case else
label1.caption=""
end select
end sub

Answer 2

if list1.text="A" then
Label1.Caption = "1"
elseif list1.text="B" then
Label1.Caption = "2"
else
...
endif

select case list1.text
case "A"
Label1.Caption = "1"
case "B"
Label1.Caption = "2"
...
end select

如果Listbox的List符合某一规则：
Label1=List1.ListIndex