投稿日 | : 2004/12/20(Mon) 14:05 |
投稿者 | : アルゼイド |
Eメール | : |
URL | : |
タイトル | : Re^2: imageの保存 |
うまくいきません…
Private Sub cmd7_Click()
selectkey = MsgBox("イメージを保存しますか?", 4 + 48, "保存")
Select Case selectkey
Case vbYes
With CommonDialog1
.Flags = cdlOFNOverwritePrompt
.Filter = "全てのファイル(*.*)|*.*"
.ShowSave
ファイル番号 = FreeFile
Form1.MousePointer = vbHourglass
Open CommonDialog1.FileName For Output As #ファイル番号
SavePicture Pic1.Image, CommonDialog1.FileName
Close #ファイル番号
Form1.MousePointer = vbDefault
End With
Case vbNo
End Select
End Sub
今こんな感じなんですけど、どうしたらいいのでしょうか・・・