Question

VB中怎么实现运行中输入combobox1中的数据自动生成一行在ComboBox1.AddItem "输入的内容"

大神求指导
VB中怎么实现运行中输入combobox1中的数据自动生成一行在ComboBox1.AddItem "输入的内容"
Private Sub UserForm_Initialize()
ComboBox1.AddItem "美女帅哥"
ComboBox1.AddItem "猔美女帅哥"
ComboBox2.AddItem "美女帅哥"
ComboBox2.AddItem "美女帅哥"
ComboBox3.AddItem "不限时，随便做"
End Sub
外面增加一个小按钮，添加时候如果能实现不会与里面数据重复最好。
跪求代码

Answer 1

'当 combobox1 失去焦点时。也就是用户输入完内容，然后去做别的事情的时候
Private Sub Combobox1_LostFocus()
    Dim text As String, i As Long
    text = combobox1.text    '获取输入的内容
    For i = 0 To combobox1.ListCount
        If combobox1.List(i) = text Then Exit Sub    '如果输入的内容已经存在于列表中则退出
    Next
    combobox1.AddItem text    '添加输入的内容到列表中
End Sub

追问

Private Sub CommandButton3_Click()
End Sub我想按这个按钮后添加，然后再点确定，另外你的程序运行Private Sub UserForm_Initialize()下面的表里没有新增加的

追答

按你的要求改了一下程序