在窗体上添加一个combo1和一个list1控件,输入以下代码:
Private Sub Form_Load()
Combo1.AddItem "AAA"
Combo1.AddItem "BBB"
Combo1.AddItem "CCC"
Combo1.AddItem "DDD"
End Sub
Private Sub Combo1_Click()
List1.AddItem Combo1.Text
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "a"
.AddItem "b"
.AddItem "c"
.ListIndex = 0
End With
End Sub
Private Sub Combo1_Click()
List1.AddItem Combo1.Text
End Sub