展开全部
不过俺还是帮你弄了一个程序,不光有添加按钮,还有清空按钮
并且加了注释,方便你理解
如果满意记得要采纳哦!
Option Explicit
Private Sub Command1_Click()
If Text1.Text <> "" Then
Combo1.AddItem (Text1.Text) '建立一行选项 时
End If
Combo1.ListIndex = (Combo1.ListCount - 1) '显示最后一个新增数据
'此句需要减一,否则会出错
End Sub
Private Sub Command2_Click()
Combo1.Clear '清空内容
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询