UC知道VB里combobox问题
来源：百度知道 编辑：UC知道 时间：2024/06/25 06:21:54
我有1个TEXT控件
Text1.Text = "11111" & vbCrLf & "22222" & vbCrLf & "
如何把这个赋值给combobox下拉列表
Combo1.AddItem Text1
下拉列表里显示的是1111122222
我要显示2条.
一条11111
一条22222该怎么实现
Private Sub Form_Load()
Dim STR As String '定义变量
'初始化信息
Combo1.Text = ""
'打开文件
Open "F:\DATA.TXT" For Input As #1
'循环至文件尾
Do While Not EOF(1)
'把行数据赋给变量
Line Input #1, STR
'判断变量是否为空,不为空时ComboBox才加载数据
If STR <> "" Then Combo1.AddItem STR
Loop
'关闭文件
Close #1
'初始化ComboBox的默认数据为第一个加载的记录
Combo1.Text = Combo1.List(0)
End Sub
这个是可以按照记事本上的内容显示多条下拉选项的
VB里的TEXT内容不可以吗 ????
Text1.Text = "11111" & vbCrLf & "22222" & vbCrLf & "
如何把这个赋值给combobox下拉列表
Combo1.AddItem Text1
下拉列表里显示的是1111122222
我要显示2条.
一条11111
一条22222该怎么实现
Private Sub Form_Load()
Dim STR As String '定义变量
'初始化信息
Combo1.Text = ""
'打开文件
Open "F:\DATA.TXT" For Input As #1
'循环至文件尾
Do While Not EOF(1)
'把行数据赋给变量
Line Input #1, STR
'判断变量是否为空,不为空时ComboBox才加载数据
If STR <> "" Then Combo1.AddItem STR
Loop
'关闭文件
Close #1
'初始化ComboBox的默认数据为第一个加载的记录
Combo1.Text = Combo1.List(0)
End Sub
这个是可以按照记事本上的内容显示多条下拉选项的
VB里的TEXT内容不可以吗 ????
Dim strarray() As String
Text1 = "11111" & vbCrLf & "22222" & vbCrLf & "33333"
strarray = Split(Text1, vbCrLf)
For i = 0 To UBound(strarray)
Combo1.AddItem strarray(i)
Next
没办法，Combox只能一条条显示，只能Combox1.AddItem 一条条加：
Combox1.AddItem "11111"
Combox1.AddItem "22222"
可以用split语句分割
分两次添加