用VB将剪切板中的图片保存为JPG文件
2004-02-20 11:32
1576 查看
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
'窗体上一个按钮,一个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
相关文章推荐
- VB程序打印水晶报表的典型方法2
- VB程序打印水晶报表的典型方法1
- How to pass in/out return VB Byte array from a COM Component written in C#
- 使用vbscript脚本调用web服务
- How to set IE proxy using VB.NET
- .net入门之VB篇:Visual Basic.Net中的文件操作(一)
- Henry的VB.NET之旅(十二)—事件驱动
- Henry的VB.NET之旅(十三)—标准事件处理程序
- Henry的VB.NET之旅(十四)—动态关联事件与处理程序
- Henry的VB.NET之旅(十五)—动态事件处理方法
- Henry的VB.NET之旅(十一)—可视继承
- Convert C# to VB tools.
- [vb]輸出Script到客戶端的四種方法.
- MX记录获取组件(vb实现)
- 效率提高两倍!——Visual Basic.net 新力量
- 一个绝对经典的在VB中操作.ini文件的通用类源代码
- 复杂和高效——Visual Basic.net新力量
- Vb 6 中的多态
- VB中删除、替换或者插入内容到文本中某一行,及文本行列的处理实例
- VB中使用WMI获取系统硬件和软件有关信息