Option Explicit ''''窗体上一个按钮，一个imgedit控件 Private Sub Command1_Click() If (ImgEdit1.IsClipboardDataAvailable And ImgEdit1.ImageDisplayed) Then ''''从剪贴板粘贴图象，其参数为Imgedit的显示区域的起始坐标 ImgEdit1.ClipboardPaste 0, 0 ImgEdit1.CompletePaste End If ''''保存图片为jpg格式 ImgEdit1.SaveAs "e:\mc\mytest.jpg", wiFileTypeJPG, , 6 End Sub
Private Sub Form_Load() ImgEdit1.Image = "e:\mc\m1.jpg" ''''先让ImgEdit随便显示一幅图片，不然后面的语句执行时会发生错误 ImgEdit1.Display End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
