PictureBox问题

tanghuawei 2006-11-08 04:48:34

看看我的代码：
Private Sub GetColor()
Dim i As Long
Dim X As Long
Dim Y As Long
Dim b As Long
Dim a As Long
Dim Row As Long
Dim dian As Long
Dim z As Long
Dim ardata As Long

i = 0
Row = 8 * messagesizel '总列数
dian = Row * 12

ReDim ardata(dian)
For z = 0 To messagesizel - 1
For Y = 1 To 12
For X = 0 + 8 * z To 7 + 8 * z 'Row +2
b = Picture1.Point(X, Y)
ardata(i) = b
i = i + 1
Next X
Next Y
Next z
End Sub
我用到了Picture1.Point()方法，当我把Picture1的Enable属性设为false,或者移动到窗体不能看到的地方时，Picture1.Point()方法不起作用了，请问要怎么修改才可以将Picture1设为看不见，但是有能使用Picture1.Point()方法获取像素（我不想看到Picture1,因为Picture1上画的是Text1中输入的东西）

...全文