用api保存修改过的图象怎么实现啊。

Question

我急需要这个模块，想网上兄弟无数，肯定能帮小弟的。呵呵。

Answer 1

不需要api函数：Private Sub Command2_Click()
    Picture1.Picture = LoadPicture("d:\mc\cat11.jpg")
    Picture1.ScaleMode = 3
    Picture1.AutoRedraw = True '关键
    Picture1.Line (0, 0)-(Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), vbGreen, BF
    SavePicture Picture1.Image, "d:\mc\mytemp.bmp" 'Picture1.Image不能换成Picture1.Picture
End Sub注意：
只能保存为bmp格式（改扩展名后，保存的文件实质依然是bmp文件），如果想保存成其它的文件格式，那么，要么用第3方控件，要么根据文件格式写入文件

Answer 2

我想可以用剪贴的，如果你非要用api！！！
Private Declare Function SetClipboardData Lib "user32.dll" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Longsetclipboarddata cf_bitmap,hbitmap
getclipboarddata cf_bitmap我也没有用过，你可以试一下！

Answer 3

直接使用savepicture就可以了
要不也可以自己按bmp文件的结构写,麻烦了