关于VB控件List

来源：百度知道 编辑：UC知道 时间：2024/05/06 02:19:13
在选定某一项时输出它显示的时候的项
比如List1里有以下:
东
南
西
北
我选择:西
然后让它自己输出西..请问怎么做这个程序?
然后我用list1.selected输出它是否已选..显示的是T或F.能不能把F的屏蔽掉?

Private Sub Command1_Click()
For i = o To List1.ListCount - 1
If List1.Selected(i) = True Then Text1.Text = List1.List(i)
Next i
End Sub

Private Sub Form_Load()
List1.AddItem "东"
List1.AddItem "南"
List1.AddItem "西"
List1.AddItem "北"
End Sub

if list1.listindex>=0 then msgbox list1.list(list1.listindex)

Private Sub List1_Click()
MsgBox List1.Text
End Sub