Question

在窗体上有一个列表框,名称为List1;一个文本框,名称为Text1;一个命令按钮,名称为C1,标题为"复制&quo

在窗体上有一个列表框，名称为List1；一个文本框，名称为Text1；一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为Item1、Item2、Item3和Item4。如果选择列表框中的一项，单击“复制”按钮，就可以把该项复制到文本框中。

Answer 1

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

Private Sub Form_Load()
List1.AddItem "item1"
List1.AddItem "item2"
List1.AddItem "item3"
List1.AddItem "item4"
command1.Caption = "复制"
End Sub

Answer 2

Private Sub C1_Click()
Text1.text = List1.list(List1.listindex)
End Sub

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