VB里Combo和Text的问题

Question

我有1个TEXT控件 
Text1.Text = "11111" & vbCrLf & "22222" & vbCrLf & " 
如何把这个赋值给combobox下拉列表 
我这样Combo1.AddItem Text1 
下拉列表里显示的是1111122222 
我要显示2条. 
一条11111 
一条22222该怎么实现?
我是菜鸟,如果很复杂
最好能有注释

Answer 1

看VB的帮助系统是个好习惯。
ComboBox 控件将 TextBox 控件和 ListBox 控件的特性结合在一起－既可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。说明为了添加或删除 ComboBox 控件中的项目，需要使用 AddItem 或 RemoveItem 方法。设置 List、ListCount、和 ListIndex 属性，使访问 ComboBox 中的项目成为可能。也可以在设计时使用 List 属性将项目添加到列表中。注意 只有当 ComboBox 的下拉部分的内容被滚动时，Scroll 事件才在 ComboBox 中发生，而不是每次 ComboBox 的内容改变时。例如，如果 ComboBox 的下拉部分包含五行，并且最顶上的项为突出显示，则在您按完向下箭头键六下（或按一次 PgUp 键）之前 Scroll 事件不发生。再往后，每按一次向上箭头键引发一次 Scroll 事件。本示例使用 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   ' 删除。
   Msg = "Choose OK to remove all items from the list box."
   MsgBox Msg   ' 显示信息。
   List1.Clear   ' 清除列表框。
End Subcombox的添加雷同。

Answer 2

Private Sub Form_Load()
Text1.Text = "11111" & vbCrLf & "22222" & vbCrLf & " "
S = Split(Text1.Text, vbCrLf)
Combo1.AddItem S(0)
Combo1.AddItem S(1)
Combo1.Text = Combo1.List(0)
End Sub

Answer 3

Text1.Text = "11111" & vbCrLf & "22222" & vbCrLf & ""Dim Arr() as stringArr=Split(Text1.Text,vbCrlf) '将Text1中的文本,按 vbCrlf 分隔开来.放入数组中for i=0 to ubound(Arr)
  Combo1.AddItem Arr(i)  '将数组中的数据增加至 Combo1 中
Next