采用CommonDialog对话框,打开能正常进行,打开后,如果点击“取消”或者右上角的红叉按钮,则会出现vb 实时错误481 无效图片 ,求大神指点
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "选择图片文件" '保存对话框框头提示
CommonDialog1.Filter = "bmp图片(*.bmp)\*.bmp\jpg图片(*.jpg)\*.jpg\gif图片(*.gif)\*.gif\所有文件(*.*)\*.*"
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileTitle
Picture2.Cls '清空图像
Picture2.Picture = LoadPicture(CommonDialog1.FileName) '载入图像
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture2.Picture, 0, 0, 6735, 4335, , , , , vbSrcCopy '原位图直接覆盖目标位图
Picture2.Refresh
End Sub
求大神指点,不胜感激!
vb 实时错误481 无效图片 paintpicture
答案:2 悬赏:40
解决时间 2021-02-19 08:42
- 提问者网友:霸道又专情♚
- 2021-02-18 17:49
最佳答案
- 二级知识专家网友:不傲怎称霸
- 2021-02-18 19:17
点击取消后当然CommonDialog1.FileName包含的不是一个有效的图片文件名。
Private Sub Command1_Click()
CommonDialog1.CancelError=true '设置这个属性使点击取消时会产生一个运行时错误。是不是CancelError,在属性窗口中核实一下,我可能会拼错。
CommonDialog1.DialogTitle = "选择图片文件" '保存对话框框头提示
CommonDialog1.Filter = "bmp图片(*.bmp)\*.bmp\jpg图片(*.jpg)\*.jpg\gif图片(*.gif)\*.gif\所有文件(*.*)\*.*"
on error goto exit_ '如果点击取消即捕获错误,直接跳出过程好了
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileTitle
Picture2.Cls '清空图像
Picture2.Picture = LoadPicture(CommonDialog1.FileName) '载入图像
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture2.Picture, 0, 0, 6735, 4335, , , , , vbSrcCopy '原位图直接覆盖目标位图
Picture2.Refresh
exit_:
End Sub
Private Sub Command1_Click()
CommonDialog1.CancelError=true '设置这个属性使点击取消时会产生一个运行时错误。是不是CancelError,在属性窗口中核实一下,我可能会拼错。
CommonDialog1.DialogTitle = "选择图片文件" '保存对话框框头提示
CommonDialog1.Filter = "bmp图片(*.bmp)\*.bmp\jpg图片(*.jpg)\*.jpg\gif图片(*.gif)\*.gif\所有文件(*.*)\*.*"
on error goto exit_ '如果点击取消即捕获错误,直接跳出过程好了
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileTitle
Picture2.Cls '清空图像
Picture2.Picture = LoadPicture(CommonDialog1.FileName) '载入图像
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture2.Picture, 0, 0, 6735, 4335, , , , , vbSrcCopy '原位图直接覆盖目标位图
Picture2.Refresh
exit_:
End Sub
全部回答
- 1楼网友:厌今念往
- 2021-02-18 20:42
paintpicture这玩意要求对象的,你得告诉它是谁在paintpicture,比如
form1.paintpicture,或者picture1.paintpicture,然后你还得告诉它paintpicture谁,比如说
form1.paintpicture picture1.picture或者干脆form1.paintpicture loadpicture("c:\1.jpg")
后面4个参数,前两个是目标区域的开始坐标,后两个是原图片的开始坐标
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯