想编一个处理图片的小软件
但是在处理过图片像素后
用PSet打点到picturebox控件上后
其picture属性没有随之改变
有没有什么办法使picture属性也随之改变？
先谢谢啦！
反向的代码如下：

Private Sub FanXiang1()
Dim X1 As Long, Y1 As Long
Dim c As Long
    On Error GoTo fanxiang1_1 '错误跳转
    For Y1 = 0 To picture1.ScaleHeight
        For X1 = 0 To picture1.ScaleWidth
            c = 16777216 - picture1.Point(X, Y)
            picture2.PSet (X1, Y1), c '绘制像素点
        Next X1
    Next Y1
    image1.picture = picture2.picture
fanxiang1_1:End Sub

其中picture1和picture2是picturebox控件
image1是Image控件

现在image1没有显示图片
应该就是picture2的picture没有被改变

最好再解决一下速度问题。

跪求方法！！！

试过image属性没?如果有这属性的话 试试- -

新马甲的贴子只看不回。可以帮你顶一下

精明了啊

image控件似乎没有image属性

反转颜色也不用这么麻烦吧。

我也想知道怎么解决，强烈呼吁前辈指条明路啊。哈哈~

Private Sub FanXiang1()
Dim X1 As Long, Y1 As Long
Dim c As Long
    On Error GoTo fanxiang1_1 '错误跳转
    For Y1 = 0 To Picture1.ScaleHeight
        For X1 = 0 To Picture1.ScaleWidth
            c = 16777216 - Picture1.Point(X, Y)
            Picture2.PSet (X1, Y1), c '绘制像素点
        Next X1
    Next Y1
    Image1.Picture = Picture2.Image
fanxiang1_1: End Sub

Private Sub Command1_Click()
FanXiang1
End Sub