Question

怎样在VB中的下拉列表框中输入供选择的内容

怎样在VB中的下拉列表框中输入供选择的内容，在text中只能输入一个，输入第二个的时候就会把第一个覆盖，用Combol.AddItem也不行

Answer 1

方法和详细的操作步骤如下：

1、第一步，启动VB6.0并创建一个标准项目，见下图，转到下面的步骤。

2、第二步，完成上述步骤后，右键单击表单，然后选择“菜单编辑器”选项，见下图，转到下面的步骤。

3、第三步，完成上述步骤后，输入标题和名称，并在标题括号中使用“＆”调用此功能。
 输入保存后，可以在下面的显示区域中看到编辑菜单的名称，见下图，转到下面的步骤。

4、第四步，完成上述步骤后，在已创建的菜单下单击，然后创建一个菜单，见下图，转到下面的步骤。

5、第五步，完成上述步骤后，无论创建的菜单是新创建的第一级子菜单还是第二级子菜单，都可以通过编辑区域上的箭头键来实现，单击右箭头按钮后可以看到，在第一级子菜单的前面有四个点，如果是第二级，点将增加到八个，见下图，转到下面的步骤。

6、第六步，完成上述步骤后，创建完成，只需确认即可，现在可以看到刚刚在表单上创建的下拉菜单，见下图。这样，就解决了这个问题了。

Answer 2

VB可通过AddItem 方法，来给下拉列表框输入供选择的内容。

AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid 控件。不支持命名参数。

ListBox 控件，ListBox 控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox
控件上添加滚动条。

AddItem 方法示例：

本示例使用 Addltem 方法增加 100 项给一个列表框。要检验此示例，可将本例代码粘贴到一个带有被命名为 List1 的
ListBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体。

Private Sub Form_Click()
   Dim Entry, I, Msg   ' 声明变量。
   Msg = "Choose OK to add 100 items to your list box."
   MsgBox Msg   ' 显示信息。
   For I = 1 To 100   ' 计数值从 1 到 100。
      Entry = "Entry " & I   ' 创建输入项。
      List1.AddItem Entry   ' 添加该输入项。
   Next I
   Msg = "Choose OK to remove every other entry."
   MsgBox Msg   ' 显示信息。
   For I = 1 To 50   ' 确定如何
      List1.RemoveItem I   ' 每隔一项
   Next I   ' 删除。
End Sub

Answer 3

Combo1.additem "x"
Combo1.additem "y"
Combo1.additem "z"
一般在form_load（）中填写

下拉列表框的话是
list1.additem "x"
list1.additem "y"
list1.additem "z"
一般在form_load（）中填写

Answer 4

Private Sub Form_Load()
Combo1.AddItem "text0", 0
Combo1.AddItem "text1", 1
Combo1.AddItem "text2", 2
Combo1.AddItem "text3", 3
Combo1.ListIndex = 0
End Sub

Answer 5

不是在text中添加的，是在list属性下添加，用ctrl+回车 换行，添加下一行，也可以直接从其他地方复制粘贴进list属性里。
用命令添加时要加索引的，用法如下：
Dim i As Integer
For i = 0 To 5
Combo1.AddItem i, i'第一个参数i要求是一个字符串，表示要添加的内容；第二个i是索引，从0开始，2个参数用逗号分开。
Next i