投稿日 | : 2004/12/21(Tue) 14:30 |
投稿者 | : アルゼイド |
Eメール | : |
URL | : |
タイトル | : Re^12: imageの保存 |
最終的に
コモンダイアログのキャンセルが押された時のエラーを解決して、
Private Sub cmd7_Click()
selectkey = MsgBox("イメージを保存しますか?", 4 + 48, "保存")
Select Case selectkey
Case vbYes
With CommonDialog1
.Flags = cdlOFNOverwritePrompt
.DefaultExt = "bmp"
.Filter = "ビットマップファイル(*.bmp)|*.bmp|全てのファイル(*.*)|*.*"
On Error GoTo cmd7a_err
.ShowSave
ファイル番号 = FreeFile
On Error GoTo cmd7b_err
SavePicture Pic1.Image, CommonDialog1.FileName
End With
Case vbNo
End Select
cmd7a_err:
Exit Sub
cmd7b_err:
Call MsgBox("保存先の容量が不足しています。", vbOKOnly)
Exit Sub
End Sub
こんな感じで完成させることができました。みなさんありがとうございました!