采用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
求大神指点,不胜感激!
点击取消后当然CommonDialog1.FileName包含的不是一个有效的图片文件名。
Private Sub Command1_Click()