VB编程题，麻烦各位帮我解答一下，万分感谢

来源：百度知道 编辑：UC知道 时间：2024/05/28 00:53:09
在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为"复制"。要求程序运行后，在列表框中
自动建立四个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"
如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本框中

Private Sub c1_Click()
Text1.Text = List1.Text
End Sub

Private Sub Form_Load()
c1.Caption = "copy"
List1.AddItem "item1"
List1.AddItem "item2"
List1.AddItem "item3"
List1.AddItem "item4"
End Sub

不知是不是你想要的

Private Sub c1_Click()
If List1.ListIndex >= 0 Then
Text1.Text = List1.List(List1.ListIndex)
Else
MsgBox "请先选择一项！"
End If
End Sub

Private Sub Form_Load()
C1.Caption = "copy"
List1.AddItem "item1"
List1.AddItem "item2"
List1.AddItem "item3"
List1.AddItem "item4"
End Sub