Picture1
（一个Page为16*128点，两Page为32*128点）
Row = 16 * Page
dian = Row * 128
For y = 0 To (Row - 1)
For x = 0 To 127
z = Picture1.Point(x, y)
ardata(i) = z
' s$ = s$ & " " & ardata(i)
i = i + 1
num = num + 1
Next
Next
Next
如果是一个Picture1可以按上面的方法取点

Picture1(0)

Picture1(1)

Picture1(2)

换成数组之后要怎么取点？

[此贴子已经被作者于2007-4-26 10:34:46编辑过]

没人帮帮我吗？

for idx=0 to 2
For y = 0 To (Row/3 - 1)
For x = 0 To 127
z = Picture1(idx).Point(x, y)
ardata(i,idx) = z
' s$ = s$ & " " & ardata(i)
i = i + 1
num = num + 1
Next
Next
Next
next

不理解你要问什么 ？ 希望你能再描述清楚点

谢谢！