Question

选中后单击窗体，选项添加到组合框；在列表中双击选项即添加到组合框；组合框中双击选项即删除。

这个上课没听。。请人教下。

Answer 1

Option Explicit

Private Sub Combo1_DblClick()
If Combo1.ListIndex < 0 Then Exit Sub
Combo1.RemoveItem Combo1.ListIndex
End Sub

Private Sub Form_Click()
List1_DblClick
End Sub

Private Sub List1_DblClick()
If List1.ListIndex < 0 Then Exit Sub
Combo1.AddItem List1.Text
End Sub