vb中列表框修改为组合框

2024年11月22日 13:40
有1个网友回答
网友(1):

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