[求助]关于列表框和组合框内容的互换
我编写的内容如下
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
题目要求,在组合框中的文本框输入内容,回车后,组合框的内容转移到列表框中,单击列表框中的内容,内容转移到组合框中。