PictureBox如何实现AutoRedraw属性

[GreatJason]

vb6里面的picture控件有个AutoRedraw属性，当窗体刷新的时候，也会重画picture中的图像。

但是vb.net里面的控件PictureBox就没有这个功能，每次隐藏窗体后画的图像都不见了。

如何解决这个问题？

需要简单的代码示例

[兔子-顾问]

代码写到OnPaint事件里。或者呢。OnPaint事件轮训的画一个ArrayList里的shap，用到的地方往ArrayList里追加。这样还可以等于是矢量化的图，可以撤销，HOHO。

[pupo]

将画图代码写到 Paint 事件里面

[wqdzgh]

vb.net中不在支持AutoRedraw属性,你需要重写picturebox控件的paint事件,或使用双缓冲技术绘图:先把图形绘制在bitmap对象上,然后用picturebox1.image=bitmap来把图形绘制到picturebox控件上.

Sub draw()
Dim bmp As New Bitmap(100, 100)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim pen As New Pen(Color.Black, 1)
g.DrawLine(pen, 10, 10, 90, 10)
PictureBox1.Image = bmp
PictureBox1.Refresh()
End Sub

[wqdzgh]

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim bmp As New Bitmap(100, 100)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim pen As New Pen(Color.Black, 1)
g.DrawLine(pen, 10, 10, 90, 10)
PictureBox1.Image = bmp
End Sub

[GreatJason]

Sub draw()
Dim bmp As New Bitmap(100, 100)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim pen As New Pen(Color.Black, 1)
g.DrawLine(pen, 10, 10, 90, 10)
PictureBox1.Image = bmp
PictureBox1.Refresh()
End Sub

谢了，这个办法好使。

我该怎么给分？是斑竹来给还是我给？