vb中向combobox控件中永久添加item

Dim s As String '当用户选择combo1中的“其他”时，允许用户输入一个字符串变量添加到combo1中

Dim h As Integer '循环变量

Private Sub Combo1_Click()

If Combo1.ListIndex = Combo1.ListCount - 1 Then

    s = InputBox("请输入测试项目")

    If s <> "" Then

        Combo1.AddItem s, Combo1.ListCount - 1

        Combo1.ListIndex = Combo1.ListCount - 2

    End If

End If

End Sub

Private Sub Command1_Click() '保存按钮

SaveSetting "MyApp", "setup", "Form3.Text1", Text1.Text

SaveSetting "MyApp", "setup", "Form3.Text2", Text2.Text

SaveSetting "MyApp", "setup", "Form3.Text3", Text3.Text

s = ""

For h = 4 To Combo1.ListCount - 2

    If s <> "" Then s = s & "|"

    s = s & Combo1.List(h)

Next h

If s <> "" Then SaveSetting "MyApp", "setup", "Combo1.List", s

SaveSetting "MyApp", "setup", "Form3.Combo1", Combo1.ListIndex

Unload Me

End Sub

Private Sub Command2_Click() '取消按钮

Unload Me

End Sub

Private Sub Form_Load()

Dim ss() As String

Text1.Text = GetSetting("MyApp", "setup", "Form3.Text1", Text1.Text)

Text2.Text = GetSetting("MyApp", "setup", "Form3.Text2", Text2.Text)

Text3.Text = GetSetting("MyApp", "setup", "Form3.Text3", Text3.Text)

s = GetSetting("MyApp", "setup", "Combo1.List", "")

If s <> "" Then

    ss = Split(s, "|")

    For h = 0 To UBound(ss)

        Combo1.AddItem ss(h), Combo1.ListCount - 1

    Next h

End If

Combo1.ListIndex = GetSetting("MyApp", "setup", "Form3.Combo1", Combo1.ListIndex)

End Sub

可以做一个和combox下拉项同步的数组，根据选择的下标到同步的数组中取要的数据,C# 代码如下：

List<ListItem>items = new List<ListItem>()//实例化一个泛型

            items.Add(new ListItem("0", "--请选择--"))//添加一个Items

items.Add(new ListItem("1", "上"))//添加一个Items

items.Add(new ListItem("2", "下"))//添加一个Items

//添加一个combobox ，名称：cbuser

cbUser.ValueMember = "text"//定义显示数据

            cbUser.DisplayMember = "value"//定义实际值

            cbUser.DataSource = items//绑定数据

使用Items.Add

如：

comboBox1.Items.Add(textBox1.Text)

更详细的 *** 作参看：

https://msdn.microsoft.com/zh-cn/library/system.windows.forms.combobox(v=vs.80).aspx

---