如何用API函数实现图片框内处理过的图片保存??

Question

例如:在PICTURE控件中加载BMP图片后,用SETPIXEL函数处理完后如何保存处理后的图片??/谢谢!!!!!!!!!!!!

Answer 1

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As LongPrivate Sub Form_Load()
  Picture1.AutoRedraw = True
  Set Picture1.Picture = LoadPicture("c:\a.bmp")
  Picture1.Print "asdfasd"
  SetPixel Picture1.hdc, 1, 1, &HFF
  SetPixel Picture1.hdc, 1, 2, &HFF
  SetPixel Picture1.hdc, 1, 3, &HFF
  SetPixel Picture1.hdc, 2, 1, &HFF
  SetPixel Picture1.hdc, 2, 2, &HFF
  SetPixel Picture1.hdc, 2, 3, &HFF
  SetPixel Picture1.hdc, 3, 1, &HFF
  SetPixel Picture1.hdc, 3, 2, &HFF
  SetPixel Picture1.hdc, 3, 3, &HFF
  SavePicture Picture1.Image, "c:\b.bmp"
End Sub