BMP转JPG(ImgEdit控件)

翻译|其它|编辑:郝浩|2007-03-29 15:16:48.000|阅读 2842 次

概述:

# 界面/图表报表/文档/IDE等千款热门软控件火热销售中 >>

刚学会的,BMP转JPG的我感觉的最简单的方法了

'窗体上一个按钮,一个imgedit控件
Private Sub Command1_Click()
 If (ImgEdit1.IsClipboardDataAvailable And ImgEdit1.ImageDisplayed) Then
 '从剪贴板粘贴图象,其参数为Imgedit的显示区域的起始坐标
 ImgEdit1.ClipboardPaste 0, 0
 ImgEdit1.CompletePaste
 End If
 '保存图片为jpg格式
 ImgEdit1.SaveAs App.Path & "\" & "mytest.jpg", wiFileTypeJPG, , 6
End Sub

Private Sub Form_Load()
 ImgEdit1.Image = App.Path & "\" & "06.jpg" '先让ImgEdit随便显示一幅图片,不然后面的语句执行时会发生错误
 ImgEdit1.Display
End Sub


标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@evget.com


为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
扫码咨询


添加微信 立即咨询

电话咨询

客服热线
023-68661681

TOP