VB.NETで、Saveファイル名をSaveFileDialogで指定するには?


Dim bmp As New Bitmap(Me.Width, Me.Height)
Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
bmp.Save(".\sample.png")
bmp.Dispose()

上記のコードの、bmp.Save(".\sample.png")をSaveFileDialogで指定するにはどう書き換えれば良いのでしょうか。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2011/12/07 02:57:13
  • 終了:2011/12/07 10:41:21

ベストアンサー

id:psne No.1

ぽけっとしすてむ回答回数472ベストアンサー獲得回数2562011/12/07 07:18:50

「名前を付けて保存」ダイアログボックスを表示する: .NET Tips: C#, VB.NET, Visual Studio
上記のソースを参考に説明すると、
bmp.Save(".\sample.png")の部分にインスタンス作成~End Ifまでを挿入して、
Console.WriteLine(sfd.FileName)をbmp.Save(sfd.FileName)に置き換えることで実現できます。

よく使う機能でもありますので、色々な場所から呼び出せるようにすると便利だと思います。

id:hokuto0127

いつも有難うございます。置き換えるとき、いつも戸惑ってしまうのでとても助かります。

Dim bmp As New Bitmap(Me.Width, Me.Height)
Dim sfd As New SaveFileDialog()
Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
sfd.Filter = "すべてのファイル(*.*)|*.*"
If sfd.ShowDialog() = DialogResult.OK Then
bmp.Save(sfd.FileName)
End If
bmp.Dispose()

仮にこのようにしてみると成功しました!

2011/12/07 10:41:17

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません