請問 listbox 添加資料的問題

[polosa]

Private Sub Command1_Click()
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile = FreeFile

Open "C:\help.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile

Text1.Text = StrConv(LoadBytes, vbUnicode)
End Sub

上面的代碼可以添加到 Text1，請問我要如還添加到 listbox 內，剩下20分，全給了

[huangjianyou]

list1.additem StrConv(LoadBytes, vbUnicode)

^_^

[daisy8675]

問題是你的C:\help.txt中間是什麼檔，以什麼為分割符？？？
因為你讀text 的時候是自動換行

[polosa]

妳好，help.txt 數據就跟一般的文件一樣，如下：
----------------------------------------------------
你还没有登录，无法发表回复，请首先登录
你还没有登录，无法发表回复，请首先登录
你还没有登录，无法发表回复，请首先登录
你还没有登录，无法发表回复，请首先登录
你还没有登录，无法发表回复，请首先登录
----------------------------------------------------
就是這樣的數據...