Option Explicit Private Sub Form_Load() ImgEdit1.Image = "c:\fw.bmp" '先让ImgEdit随便显示一幅图片，不然后面的语句执行时会发生错误 ImgEdit1.Display ImgEdit1.Refresh End Sub
Private Sub Command1_Click() If (ImgEdit1.IsCliPBoardDataAvailable And ImgEdit1.ImageDisplayed) Then '从剪贴板粘贴图象，其参数为Imgedit的显示区域的起始坐标 ImgEdit1.ClipboardPaste 0, 0 ImgEdit1.CompletePaste End If '保存图片为jpg格式 ImgEdit1.SaveAs "c:\tt.jpg", wiFileTypeJPG, , 6 MsgBox "保存Jpg图片完成" End Sub
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, ByVal outputbuf As Long) As Long Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal filename As Long, clsidEncoder As GUID, encoderParams As Any) As Long Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long Private Declare Function GdipCreateBitmapFromFile Lib "GDIPlus" (ByVal filename As Long, Bitmap As Long) As Long
