保存图片时，对话框勿扰？

HaoChunhui 2005-09-05 09:29:22

保存图片时，CommonDialog 对话框不会弹出，且按原图片名保存在原路经。
下面代码中：
Rc = JPEGSavePic(PicView.Image, CDlgFile.FileName, JPEGFlags)
还需要有添加哪些代码？谢谢！
**********************************************************************
On Error GoTo ErrPos
CDlgFile.Filter = "JPEG文件(*.jpg;*.jpeg)|*.jpg;*.jpeg"
CDlgFile.Flags = cdlOFNOverwritePrompt Or cdlOFNHideReadOnly
CDlgFile.InitDir = IIf(Len(CDlgFile.FileName) = 0, App.Path & "\" & "Pic", vbNullString)
CDlgFile.ShowSave
On Error GoTo 0

Dim Rc As Boolean
StartBusy
Rc = JPEGSavePic(PicView.Image, CDlgFile.FileName, JPEGFlags)
EndBusy
TxtTime.Text = "处理时间：" & BusyTime() & "ms"
If Rc = False Then
MsgBox "保存失败！", vbCritical
End If

Exit Sub

ErrPos:
Select Case Err.Number
Case 0
Case cdlCancel
Case Else
MsgBox Err.Description, vbCritical, Err.Number
End Select

End Sub

Private Sub mnuOpen_Click()
On Error GoTo ErrPos
CDlgFile.Filter = "图像文件(*.bmp;*.dib;*.gif;*.jpg;*.jpeg)|*.bmp;*.dib;*.gif;*.jpg;*.jpeg"
CDlgFile.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
CDlgFile.InitDir = IIf(Len(CDlgFile.FileName) = 0, App.Path, vbNullString)
CDlgFile.ShowOpen
On Error GoTo 0

Set PicView.Picture = LoadPicture(CDlgFile.FileName)

Exit Sub

ErrPos:
Select Case Err.Number
Case 0
Case cdlCancel
Case Else
MsgBox Err.Description, vbCritical, Err.Number
End Select
*******************************************************************************

...全文