不要直接在picturebox中画,先创建个bitmap,在bitmap中画,然后再picturebox_paint中把bitmap赋值给PictureBox1的Image对象。保存的时候调用bitmap对象的save。参考如下:
objBitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height, PixelFormat.Format16bppRgb555)
Dim g As Graphics = Graphics.FromImage(objBitmap)
g.Clear(Color.White)
g.DrawEllipse(Pens.Blue, New Rectangle(10, 10, 100, 100))
PictureBox1.Image = objBitmap