这是源程序,为什么一运行就出错,"runtime-error 424,object required"
'窗体上一个按钮,一个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 SubPrivate 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 SubPrivate Sub Form_Load()
ImgEdit1.Image = "e:\mc\m1.jpg" '先让ImgEdit随便显示一幅图片,不然后面的语句执行时会发生错误
ImgEdit1.Display
End Sub
解决方案 »
- 如何定义一个带多个参数的函数,如果调用时不指定参数,则采用默认值
- 求助,dll如何传值给vb?
- 调用 VC++ dll 问题
- ■■关于模块使用的问题.
- 谁能拉兄弟一把,关于OLE的~!!!!
- 整个程序就乘最后这一关,大家帮帮忙啊!!有谁知道用VSflexgrid怎样在最后一行生成合计??
- 有一个程序请帮忙编一下,有高分啊
- 用asp调用com组件方法,如果参数为RecordSet,为何不能接收返回值?
- webBrowser的几个使用问题
- 这个简单,告诉我哪里写错了,如何修改,马上给分。
- 很着急,在线等。高手请进来赐教啦!
- LISTVIEW控件,LIST状态显示,如何让HEAD变为ENABLE状态,即不触发事件
http://www.aivisoft.net/source/jpegread.zip