質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.02%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

VB.NET pictureBoxに表示された画像を保存するプログラム

oikawasouta
moko

総合スコア6

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

1回答

0グッド

0クリップ

493閲覧

投稿2022/07/28 08:58

編集2022/07/28 21:45

VB.NET
ピクチャーボックスに表示した画像を保存するプログラムを作っています。
以下の動作のプログラムを作りたいと考えています。

■動作
Loadボタンでファイルダイアログ開く。

画像を選択して開くを押す。

ピクチャーボックスに表示される

Saveボタンでファイルダイアログを開きピクチャーボックスに表示されている画像を保存する。この時ファイル名は現在の日付。 例)0728.jpg

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Load.Click Dim ofd As New OpenFileDialog ofd.Filter = "JPG" & "|" & "*.jpg" & "|" & "PNG" & "|" & "*.png" & "|" & "GIF" & "|" & "*.gif" & "|" & "BMP" & "|" & "*.bmp" ' 読込むファイルの種類を設定 If ofd.ShowDialog() = DialogResult.OK Then ' ファイルダイアログを開く。 PictureBox1.SizeMode = PictureBoxSizeMode.Zoom ' PicturaBox1に表示される画像を比率を変えずに表示 PictureBox1.Image = Image.FromFile(ofd.FileName) ' PictureBox1に選択された画像ファイルを表示 End If End Sub Private Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click Dim sfd As New SaveFileDialog  ' 各パラメータを設定していきます sfd.Filter = "JPG" & "|" & "*.jpg" & "|" & "PNG" & "|" & "*.png" & "|" & "GIF" & "|" & "*.gif" & "|" & "BMP" & "|" & "*.bmp" If sfd.ShowDialog() = DialogResult.OK Then ' ファイルダイアログを開く。 PictureBox1.Image.Save(sfd.FileName, Imaging.ImageFormat.Jpeg) End If End Sub End Class

現在Saveボタンでファイルダイアログを開いたあと、画像を選択して名前を
入力しなければ保存ができない状態になっています。そのため上記の動作
をさせるためのプログラムや方法をご教示ください。よろしくお願いいたします。

イメージ説明

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

SurferOnWww

2022/07/28 09:18

まず、何はともあれコードを ``` と ``` で囲ってください(``` はバッククォート 3 つ)。インデントされて読みやすくなるので。
oikawasouta

2022/07/28 10:04

VSで作成した時にはインデントされているのですが、こちらに張り付けるとインデントが消えてしまいました。そのため画像を貼り付けましたので、よろしくお願いいたします。
SurferOnWww

2022/07/28 10:18

だから、コードを ``` と ``` で囲ってください(``` はバッククォート 3 つ)と言ったのですが・・・ 画像はダメです。コピペできないので。
YAmaGNZ

2022/07/28 10:55 編集

SaveFileDialogのファイル名に初期値として自分で決めたファイル名を表示したいってことなのでしょうか?
oikawasouta

2022/07/28 21:47

YAmaGNZ はい!そういうことになります!よろしくお願いいたします。

回答1

1

ベストアンサー

SaveFileDialogのFileNameプロパティに設定すれば最初からファイル名が表示されます。

投稿2022/07/29 00:20

YAmaGNZ

総合スコア9585

moko👍を押しています

下記のような回答は推奨されていません。

  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

回答へのコメント

oikawasouta

2022/07/31 06:30

そうですね!その方法で解決しました。ありがとうございます。

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.02%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。