vb6.0图片保存

[a56789562]

用这段代码保存picturebox中的图片为什么会显示无效属性值，求大神解答

[现在还是人类]

你这段代码哪有什么picturebox 保存的是剪切板数据，自己不知道从哪抄的代码，连功能都没看懂。如果不会英文至少翻译看看你用的对象的意思吧。 如果你要保存picturebox的图片，搞清楚PictureBox的对象名，如Picture1，然后搞清楚你要保存的是绘制的图片（image属性）还是你背景图片（picture属性）。 如：

Private Sub Form_Load()
    Picture1.AutoSize = True
    Picture1.AutoRedraw = True
    Picture1.Cls
    Set Picture1.Picture = LoadPicture("D:\test.bmp")
    Picture1.Line (0, 0)-(Picture1.ScaleWidth, Picture1.ScaleHeight), 255
    Picture1.Line (Picture1.ScaleWidth, 0)-(0, Picture1.ScaleHeight), 255
    SavePicture Picture1.Image, "D:\image.bmp"
    SavePicture Picture1.Picture, "D:\picture.bmp"
End Sub