polosa 2005年03月24日
請問 listbox 添加資料的問題
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分,全給了
...全文
45 点赞 收藏 3
写回复
3 条回复

还没有回复,快来抢沙发~

发动态
发帖子
VB基础类
创建于2007-09-28

2739

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告