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

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

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

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

解決済

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

oikawasouta
oikawasouta

総合スコア1

VB.NET

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

1回答

0評価

0クリップ

311閲覧

投稿2022/07/28 08:58

編集2022/07/31 15:30

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

イメージ説明

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

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

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

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

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

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 はい!そういうことになります!よろしくお願いいたします。

まだ回答がついていません

会員登録して回答してみよう

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

ただいまの回答率
87.20%

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

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

質問する

関連した質問

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

VB.NET

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