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で指定するにはどう書き換えれば良いのでしょうか。
No.1
605
334
「名前を付けて保存」ダイアログボックスを表示する: .NET Tips: C#, VB.NET, Visual Studio
上記のソースを参考に説明すると、
bmp.Save(".\sample.png")の部分にインスタンス作成～End Ifまでを挿入して、
Console.WriteLine(sfd.FileName)をbmp.Save(sfd.FileName)に置き換えることで実現できます。
よく使う機能でもありますので、色々な場所から呼び出せるようにすると便利だと思います。
1
1
2
32
0
いつも有難うございます。置き換えるとき、いつも戸惑ってしまうのでとても助かります。
2011/12/07 10:41:17Dim 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()
仮にこのようにしてみると成功しました！