photoshop剪切教程:用VB将剪切板中的图片保存为JPG文件-vb教程

ion 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


Tags:  vb.net教程 vb6.0教程 vb教程 photoshop剪切教程

延伸阅读

最新评论

发表评论