回 帖 发 新 帖 刷新版面

主题:VB图片翻转并保存程序出错,哪位高手帮帮忙,问题出在哪里?谢谢!

Private Sub Command1_Click()
    Picture2.Cls
    Picture2.Picture = LoadPicture("")
    Picture2.PaintPicture Picture1.Picture, Picture1.ScaleWidth, 0, -Picture1.ScaleWidth
        
    SavePicture Picture2.Picture, "c:\MyPicture.bmp"

End Sub

  上面的程序(VB)用两个PICTUREBOX PICTURE1和PICTURE1翻转图片并保存时在
      SavePicture Picture2.Picture, "c:\MyPicture.bmp"
上出现“无效属性值”错误,问题出在哪里?
  哪位高手帮我看一下,怎样才能解决?
  特别急用,谢谢!

回复列表 (共5个回复)

沙发

问题应该出在Picture1上。你设置Picture1的AutoRedraw=Ture,并且在使用PaintPicture方法前,加一句:Picture1.Picture = Picture1.Image

板凳

非常感谢一江秋水及时的回复。
原来Picture2的AutoRedraw已设置为Ture,现在Picture1的AutoRedraw也设置为Ture看了一下还是不能解决。
Picture2显示后保存阶段Picture2.Picture=0,说明Picture2里没有图片。

在工作中需要解决一下简单的问题:
把图片左右反转后替换原来的图片保存。
帮我看一下怎样做好?
谢谢!

3 楼

SavePicture Picture2, "c:\MyPicture.bmp"

或者:

Picture2.Picture = Picture2.Image
SavePicture Picture2.Picture, "c:\MyPicture.bmp"

4 楼


非常非常感谢一江秋水先生,也去您的网页逛了一下。
问题得到圆满解决。
开始学着编程序,用于工作。
这次是需要反转处理大量(以千为单位)电镜观察照片,手工做太麻烦,由于您的帮助一下就解决了问题。
这样把这个程序放到大型文件处理程序里,已经做到完全自动处理大量图像文件了。
再次表示感谢。

5 楼

.image 是指已经装载的图片(在控件内部)
.picture 是指正在显示的图像(你看到的)

我来回复

您尚未登录,请登录后再回复。点此登录或注册