[求助]关于列表框和组合框内容的互换
我编写的内容如下
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1.AddItem Combo1.Text
Combo1.Text = ""
End If
End Sub
Private Sub List1_Click()
Combo1.AddItem List.Text
List1.RemoveItem List.ListIndex
End Sub
题目要求，在组合框中的文本框输入内容，回车后，组合框的内容转移到列表框中，单击列表框中的内容，内容转移到组合框中。
