No35323 の記事表示 - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

No35323 の記事

■35323 / )

　Re[7]: 複数のPictureBox画像を複数のファイルへ保存したい

□投稿者/ ま～一般人(42回)-(2023/01/12(Thu) 14:13:11)

いつもありがとうございます
フィールド変数の件は棚ぼたです。出来ないと思ってました。助かります。

本題ですが先のコードでわDisposeした方が良いのか程度で書いてました
Form LoadでDisposeしてますがボタンクリックでTextBoxから画像を生成して各PictureBoxに書いてますので問題ないと解釈していました
今二つの問題に当たっています。スレッドを分けなかったのは同じ要因かなと思ってです。

流れ　RichTextBoxへ文字入力　⇒生成⇒　PictureBox16 ⇒サイズを変えてコピー⇒　各PictureBox　⇒　すべてのPictureBoxの画像をファイル保存

――――――――ボタン①――――――――ー
Dim bmp = CreateBitmapFromControl(Rbox(PageNo))
If PictureBox16.Image IsNot Nothing Then
　　PictureBox16.Image.Dispose()
End If

‘P PageNo←どのPictureBoxを操作するか
PictureBox16.Image = bmp　←　自動生成されたイメージが入っている
‘ピクチャ１－1５へ各個転送
Dim Picture() As PictureBox = {PictureBox1, PictureBox2, PictureBox3, ・・・・・PictureBox15}　
Picture(PageNo).Image = PictureBox16.Image

これは同じ画像を各PictureBoxへ書いたと同じ扱いになりますか？一旦PictureBox16経由で各PictureBoxへ作画されています
これがやっては駄目な事でしょうか？

最後の書いたPictureBoxを③で保存する事は出来ました。
それ以外のPictureBox以外で③のコードを実行するエラーとなる

―――――――③エラーになる箇所――――――――――
Picture(PageNo).Image.Save(PicturePath"MojiGAZou1.bmp",System.Drawing.Imaging.ImageFormat.Bmp)

Imageは使わない方がよいのでしょうか？

―――――――――ボタン②――――――――――――
試してみました

Dim Picture() As PictureBox = {PictureBox1, PictureBox2, PictureBox3, PictureBox4, PictureBox5}
For i As Byte = 0 To 4
Picture(i).Size = New Size(Picture(i).Size.Width, 320)
Picture(i).Size = New Size(Picture(i).Size.Height, 160)
Picture(i).SizeMode = PictureBoxSizeMode.Zoom
Picture(i).Image = Image.FromFile(PicturePath + "MojiGAZou" & CStr(i + 1) & ".bmp")
Next

Me.PictureBox1.Image.Save(PicturePath + "MojiGAZou1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Me.PictureBox2.Image.Save(PicturePath + "MojiGAZou2.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Me.PictureBox3.Image.Save(PicturePath + "MojiGAZou3.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Me.PictureBox4.Image.Save(PicturePath + "MojiGAZou4.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Me.PictureBox5.Image.Save(PicturePath + "MojiGAZou5.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

これもPictureBox1.のSaveの所でエラーとなります。こんな事は出来ない？

以下はエラーの内容です

System.Runtime.InteropServices.ExternalException
HResult=0x80004005
Message=GDI+ で汎用エラーが発生しました。
Source=System.Drawing
スタックトレース:
at System.Drawing.Image.Save(String filename, ImageCodecInfo encoder, EncoderParameters encoderParams)
at System.Drawing.Image.Save(String filename, ImageFormat format)
at Test.文字編集Form.Button18_Click(Object sender, EventArgs e) in C:\Users\userMM\OneDrive\Test\文字編集Form.vb:line 232
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at Test.My.MyApplication.Main(String[] Args) in :line 83

Disposeする必要は無いので何か良い方法はありますか？

あと

>No35282 の KOZ さんの実装パターンに相当しますね。
>
>　PictureBox1.Image?.Dispose()　'処分
>　PictureBox1.Image = Nothing　'解放

とありますがこれはどの様な意味ですか？

以上、長々とすみません

違反を報告