PictureBox読み込んだBitmapファイルに色々絵を描いて保存するには?


入門者ara  2003-08-28 06:16:29  No: 79186  IP: [192.*.*.*]

.netでPictureBoxに読み込んだBitmapに色々絵を描いて新しいBitmapファイルを作りたいのですが、そのイメージに絵を描いて保存しても、絵が描かれていないBitmapが保存されてしまいます。

色々掲示板を探したのですが画像を加工する方法が見つかりません。
何か方法がありましたらどうかご教授下さい。

掲示板に投稿するのは初めてなので粗相があったら申し訳ありません。

ちなみに今回作ったコードはこのとうりです。

Public Bmp as Bitmap '色々絵を描いたイメージを格納

Private Sub PictureBox1_Paint(sender.....)

   Bmp = New Bitmap(410, 410)               '描画領域を設定
   Bmp = Image.FromFile("BitmapImage.bmp")  'BmpにBitmapイメメージを                                             入れる
   Dim g as Graphics = Graphics.FromImage(Bmp)

//
  ここにg.DrawLine(0,0,400,240)などBmpに絵を描く
                                                //
end Sub

Private Sub Button1_Click(sender.....)

   'セーブファイルダイアログでBmpをBitmapファイルにして保存
   If SaveFileDialog1.ShowDialog = DialogResult.OK Then
      BMP.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Bmp)
   End If

end Sub

編集    削除
里雨  2003-09-12 21:28:40  No: 79187  IP: [192.*.*.*]

初めて書き込ませていただきます、里雨と申します。
もう時間もたって解決されているかもしれませんが

Form_load時に
-------------
   Dim bmp As New Bitmap(pictureBox1.ClientSize.Width,pictureBox1.ClientSize.Height)
   pictureBox1.Image = bmp
-------------

各イベントで
-------------
   Dim g As Graphics = Graphics.FromImage(pictureBox1.Image)
   pictureBox1.Image = pictureBox1.Image

   g.DrawLine(Pens.Black, 0, 0, 100, 100)
-------------

私の方はマウスイベントを利用したので、
ピクチャーボックスのPaintイベントの方は試しておりません。
参考になるかはわかりませんが。
ではでは

編集    削除