VB.NETでのＰｉｃｔｕｒｅＢｏｘによる画像保存について

質問

またお世話になります。
VB.NETでプログラムでPictureBoxに絵を描かせているのですが、そこまでは表示させることができました。このできた画像をBitmapなりjpegなりに保存させて、ほかの画像ビューワ等でも見れる形にしたいのですがうまくいきません。

ちなみに今はこのように書いて、

Dim gra1 As Graphics = PictureBox1.CreateGraphics
FileOpen(2, myfile2, OpenMode.Output)

（絵を描かせるプログラム）

PictureBox1.Image.Save(myfile2, System.Drawing.Imaging.ImageFormat.Bmp)
FileClose(2)

としてまわしたところ、

System.Runtime.InteropServices.ExternalException' のハンドルされていない例外が system.drawing.dll で発生しました。

追加情報 : GDI+ で一般的なエラーが発生しました。

といわれました。

どなたかご教授いただけたらお願いしますm(__)m

回答No.3

BLUEPIXY · ベストアンサー

やっぱり
Dim gra1 As Graphics = PictureBox1.CreateGraphics
が悪いと思うんですよね。
画面上に描画するだけならそれでいいと思うんですが。
フォームをロードした時に、
Dim bitmap As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
PictureBox1.Image = bitmap
見たいに、まず、イメージを作ってやって
描画する部分では
Dim gra1 As Graphics
Dim bluepen As Pen
gra1 = Graphics.FromImage(PictureBox1.Image)
bluepen = New Pen(Color.Blue, 2)
gra1.DrawEllipse(bluepen, 10, 10, 100, 100)
PictureBox1.Refresh()
見たいな感じでやってみて下さい。
イメージのセーブは同じ。
背景は塗ってやらないといけないけど。
それはいいですね。

お礼

うまくいきました!!
ありがとうございますm(__)m

画像を保存するには、Bitmapでの定義がと必要とは・・・知らなかったです。
Bitmaptとはとりあえず仮の絵を描かせる場所と思えばいいですかねえ？

回答No.2

BLUEPIXY

最初の
Dim gra1 As Graphics = PictureBox1.CreateGraphics
が気になるんですけど、
ホントに、PictureBox1に書き込みしてますか？
例えば、
プログラム動作中に、PictureBox1にＪＰＧの画像とかロードしてみたらどうなりますか？
あるいは、プロパティであらかじめ画像を読み込んでおいて、
その画像の上に描画できますか？
実は、フォームの上に描いてたりしませんか？

補足

どうやらPictureBox1に書いているみたいです。
真っ黒になるのはブラシの色を最初にBlackに指定してるからかなと思ったので、Redにしたのですが真っ黒です・・・
絵を描かせるプログラムの中で、データからの計算より数値をfromArgbでColorを変えてやっています。

表示はうまくいっているみたいなのでやはり保存の時の手順がいかんのかなあって思っています。

回答No.1

BLUEPIXY

色々怪しそうな処はあるけど、
myfile2は、ファイル名のstringだよね。
だったら、
FileOpenとFileCloseは要らないよ。
多分、ファイルが既にオープンされているのに、
Image.Saveでファイルをオープンして書き込もうとしたから例外になったのじゃないかな。

補足

myfile2はおっしゃるとおりStringです。
BLUEPIXYさんの通り、FileopenとFilecloseを消してまわしたところ、一応まわるにはまわるのですが、出てきたBitmapが真っ黒です・・・背景等も黒ではないのに、何ででしょう??