亲看下面代码:
Dim PicData() As Byte
Dim i As Long
Private Sub Command1_Click()
Open App.Path & "\Test.jpg" For Binary As #1
i = LOF(1)
ReDim PicData(i)
Get #1, , PicData
Close #1
然后将picdata数组的数据直接让Imang控件来显示出来 请问怎么写!!
谢谢请指教!
...全文
34910打赏收藏
关于Byte转化成Jpg图像的问题(急!!!)
亲看下面代码: Dim PicData() As Byte Dim i As Long Private Sub Command1_Click() Open App.Path & "\Test.jpg" For Binary As #1 i = LOF(1) ReDim PicData(i) Get #1, , PicData Close #1 然后将picdata数组的数据直接让Imang控件来显示出来 请问怎么写!! 谢谢请指教!