VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2004/12/21(Tue) 12:04
投稿者： アルゼイド
Ｅメール：
ＵＲＬ：
タイトル： Re^7: imageの保存

Private Sub cmd7_Click()
    selectkey = MsgBox("イメージを保存しますか？", 4 + 48, "保存")
    Select Case selectkey
      Case vbYes
    With CommonDialog1
        .Flags = cdlOFNOverwritePrompt
        .DefaultExt = "bmp"
        .Filter = "全てのファイル(*.*)|*.*"
        .ShowSave
        ファイル番号 = FreeFile
        On Error GoTo cmd7_err
        SavePicture Pic1.Image, CommonDialog1.FileName
    End With
      Case vbNo
    End Select
cmd7_err:
    Exit Sub
End Sub

とすることで無事に解決しました！ありがとうございます。
ですが、保存先の容量が不足していた場合にエラーが出るので
On Error GoTo cmd7_err
cmd7_err:
    Exit Sub
をつけたのですが、その時に保存先の容量が不足していますなどのメッセージを出すにはどうしたら
いいのでしょうか？
cmd7_err:
MsgBox("保存先の容量が不足しています。", vbOKOnly)
Exit Sub
としたのですが、構文エラーになってしまいます・・・

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -