简单的问题
Close
Dim FileData() As Byte
Open "c:\windows\regedit.exe" For Binary As 1
Get 1, , FileData()
Text1.Text = FileData()
为什么没有数据被读出
问题点数：0、回复次数：2Top
1 楼adminlhb（『MSN』）回复于 2006-03-04 07:54:01 得分 0
FileData()是字节型数组
你还没有定义它的大小
读入时肯定得循环
Top
2 楼adminlhb（『MSN』）回复于 2006-03-04 08:14:38 得分 0
说错了，循环可以不用
主要是你的数组有多少个元素没有定义
Dim FileData() As Byte
Open "c:\windows\regedit.exe" For Binary As 1
redim filedata(lof(1)-1) '下标从0开始
Get 1, , FileData()
Text1.Text = FileData()Top
