溢出问题.
Dim obj As New Stream, readdataasc As Variant, bin As Variant, i As IntegerPrivate Sub Form_Load()
CommonDialog1.Filter = "*.jpg|*.jpg"
End Sub
Private Sub Open_Click()
CommonDialog1.ShowOpen
obj.Type = adTypeBinary
obj.Mode = adModeReadWrite
obj.Open
obj.LoadFromFile CommonDialog1.FileName
bin = obj.Read
For i = 1 To LenB(bin) - 1
readdataasc = readdataasc & AscB(MidB(bin, i, 1))
Next i
Text1.Text = readdataasc
End Sub
最后老报'溢出' --------------------编程问答-------------------- bin=? --------------------编程问答-------------------- 有点怪,只要一发帖子,自己的灵感就来了.
原来是i还是要声明为Long
不过执行的速度好慢,难道二进制数据在VB下执行都这慢. --------------------编程问答-------------------- i as long --------------------编程问答-------------------- i as long --------------------编程问答-------------------- leibo_80(leibo) ( ) 信誉：100 Blog 加为好友 2007-6-9 16:33:08 得分: 0
有点怪,只要一发帖子,自己的灵感就来了.
//
那就多发点帖子....... --------------------编程问答-------------------- 那就多结贴。。。 --------------------编程问答-------------------- 这也叫灵感？
CSDN就有很多不负责的人，很长时间都不结帖，消失得无影无踪。哎,人啊！
"先学做人，再学做事”！ --------------------编程问答-------------------- 恩,揭帖就好 --------------------编程问答-------------------- 报错也不说那里报错~
补充：VB , 基础类
