Question

VB6.0环境下，有一个变量，它的值是一串多行文本，如何把它的每一行分离出来，并且把各行添加到COMBO中？

稍微修改了下，已经搞定了。谢谢。

Answer 1

Private Sub Command1_Click()
dim xstr as string
xstr= 'xstr的值，多行。
a = Split(xstr Chr(13) & Chr(10))
For i = 0 To UBound(a)
Combo1.AddItem a(i)
Next i
End Sub
多行文本的换行符是 chr(13) & chr(10)