UC知道怎样用vb存图的数据
来源：百度知道 编辑：UC知道 时间：2024/09/21 19:34:56
具体代码如下
Option Explicit
Dim a As Long
Dim i, j As Integer
Dim p()
Private Sub Form_Load()
i = 0
j = 0
Picture1.AutoSize = True
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
ReDim p(i, j)
Open "e:\wq.dat" For Output As #1
For i = 0 To Picture1.ScaleWidth - 1
For j = 0 To Picture1.ScaleHeight - 1
a = Picture1.Point(i, j)
p(i, j) = a
Print #1, p(i, j)
Next
Next
Close #1
End Sub
读到p(i, j) = a语句是就发生错误
是不是动态数组有问题,要是的话告诉我怎样弄
我是初学者,就看了一个礼拜书就开始用了
Option Explicit
Dim a As Long
Dim i, j As Integer
Dim p()
Private Sub Form_Load()
i = 0
j = 0
Picture1.AutoSize = True
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
ReDim p(i, j)
Open "e:\wq.dat" For Output As #1
For i = 0 To Picture1.ScaleWidth - 1
For j = 0 To Picture1.ScaleHeight - 1
a = Picture1.Point(i, j)
p(i, j) = a
Print #1, p(i, j)
Next
Next
Close #1
End Sub
读到p(i, j) = a语句是就发生错误
是不是动态数组有问题,要是的话告诉我怎样弄
我是初学者,就看了一个礼拜书就开始用了
ReDim p(i,j)改成ReDim p(Picture1.ScaleWidth, Picture1.ScaleHeight)
数据类型不对吧，一般256色的图执行a = Picture1.Point(i, j)，a的值应该是&h0--&hffffff之间，可以把Picture1.Point(i, j)作为一个字符串输出就行了。