タイトル : Re: ピクチャーボックスの背景に書かれた線や文字をJPGに 投稿日 : 2007/06/25(Mon) 02:26 投稿者 : 魔界の仮面弁士
ファイルアクセスするのなら、Try ステートメントでエラーに備える必要がありますね。 > オブジェクト参照がオブジェクト インスタンスに設定されていません。 文字通り、画像オブジェクトが無い事が原因なので、 Dim img As Image = PictureBox1.Image If Not img Is Nothing Then img.Save("T:\abc.jpg", Imaging.ImageFormat.Jpeg) End If のように、画像が割り当て済みの時のみ保存すれば、エラーは回避できるかと。 > Dim gPStyle As Graphics = PictureBox1.CreateGraphics() > Dim gForm As Graphics = Me.CreateGraphics() > gPStyle.DrawRectangle(myPen, 70, 10, len, len) '四角描画 プロパティやイベント引数で得た Graphics とは異なり、CreateGraphics メソッドで 自ら「生成」した Graphics は、自分で Dispose しなければなりません。 myPen も然り。 > End End ではなく、Me.Close() あたりが適当かと。 で、そもそも画像の作成が目的であれば、画面に描画する必要は無く、 Bitmap クラスに描画するだけで良いかも。 |