vb组合框设计时怎么添加列表？

combobox增加选项方法：

combo1的属性列表里有个叫list的点击，然后输入一个选项，回车再 输入

选项内容可以修改的。

非要使用代码的话就是

combo1.additem"要添加的选项“

combo1.list(？)=？第一个问号是listindex值0是第1个选项，1是第二个选项。第二个问号是你要修改的选项

VB可使用AddItem 方法在组合框中添加项目。

为在组合框中添加项目，应使用 AddItem 方法，其语法如下：

通常在 Form_Load 事件过程中添加列表项目，但也可在任何时候使用 AddItem 方法。这样一来就能够动态地（响应用户的 *** 作）在列表中添加项目。

组合框控件将文本框和列表框的功能结合在一起。有了这个控件，用户可通过在组合框中输入文本来选定项目，也可从列表中选定项目。

组合框向用户提供了供选择的列表。如果项目数超过了组合框能够显示的项目数，控件上将自动出现滚动条。用户即可上下或左右滚动列表。

Private Sub Command1_Click()

Text1.Text = Combo1.Text

Command1.Enabled = False '关闭修改按钮，这个你按要求选择关闭不关闭

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

If Text1.Text <>"" Then

Combo1.List(Combo1.ListIndex) = Text1.Text

Text1.Text = "" '修改完成将text1清空

End If

Combo1.ListIndex = Combo1.ListIndex

Command2.Enabled = False

Command1.Enabled = True '打开修改按钮，这个你按要求选择打开不打开

End Sub

Private Sub Command3_Click()

If Text1.Text = "" Then Exit Sub '判断是否为空，为空则不增加到下拉列表中

Combo1.AddItem Text1.Text

'添加成功，并清空text1

Text1.Text = ""

End Sub

Private Sub Form_Load()

'添加数据

Combo1.AddItem "test1"

Combo1.AddItem "test2"

Combo1.AddItem "test3"

Combo1.ListIndex = 0

Command2.Enabled = False '将确定按钮无效

End Sub

使用AddItem 方法为添加选项。

AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid

控件。不支持命名参数。

AddItem 方法示例代码，选OK增加100个项目到ComboBox控件

Private Sub Form_Click()

    Dim Entry, I, Msg   ' 声明变量。

    Msg = "选OK增加100个项目到ComboBox控件"

    MsgBox Msg   ' 显示信息。

    For I = 1 To 100   ' 计数值从 1 到 100。

        Entry = "Entry " & I   ' 创建输入项。

        Combo1.AddItem Entry   ' 添加该输入项。

    Next I

'    Msg = "选OK删除任一个Entry."

'    MsgBox Msg   ' 显示信息。

'    For I = 1 To 50   ' 确定如何

'        Combo1.RemoveItem I   ' 每隔一项

'    Next I   ' 删除。

'    Msg = "选OK删除全部"

'    MsgBox Msg   ' 显示信息。

'    Combo1.Clear   ' 清除列表框。

---