label1=list1.text
如果再有错误,请检查label1和list1的名称(name属性)是否一致。
label1.caption=listbox1.text
在listbox的单击事件中编写下面的语句
label.caption =listbox.text
Private Sub List1_Click()
Label.Caption = List1.Text
End Sub
假设你的 listbox名称是 list1
lable的名称是 Lable
Private Sub List1_selected()
Label.Caption = List1.Text
End Sub
假设你的 listbox名称是 list1
lable的名称是 Lable