Question

VB:将list控件中选中的一项赋值为text1的Text成员，怎么表达？

我创建了2个控件
list1
command1
text1
如果按下command1后，把list1选中的一项赋值给text1的Text成员，该怎么表达？？？

Answer 1

Private Sub Command1_Click()
Text1.Text = List1.Text
End Sub
其实可以直接在列表框的Click事件中来实现，在选中1项时直接在文本框显示，就不用再按按钮了。
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub

Answer 2

刚才没看清楚,这个是完整代码.应该符合你的要求.
Dim selectitem As Long

Private Sub Command1_Click()
List1.List(selectitem) = Text1.Text
End Sub

Private Sub List1_Click()
selectitem = List1.ListIndex
End Sub