VB.NETで､Saveﾌｧｲﾙ名をSaveFileDialogで指定するには？ Dim bmp As New Bitmap(Me.Width, Me.Height) Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

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で指定するにはどう書き換えれば良いのでしょうか｡

●質問者: hokuto0127
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀｲﾝﾀｰﾈｯﾄ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽1 ● ぽけっとしすてむ

ﾍﾞｽﾄｱﾝｻｰ

｢名前を付けて保存｣ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽを表示する: .NET Tips: C#, VB.NET, Visual Studio
上記のｿｰｽを参考に説明すると､
bmp.Save(".\sample.png")の部分にｲﾝｽﾀﾝｽ作成?End Ifまでを挿入して､
Console.WriteLine(sfd.FileName)をbmp.Save(sfd.FileName)に置き換えることで実現できます｡

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

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() 仮にこのようにしてみると成功しました！