Question

请问vb中的 PaintPicture在vb.net中代码是什么。最好有实例

Picture1.PaintPicture(Picture2.Image, 0, 0, Picture1.Width, Picture1.Height, 5, 5, 100, 100, vbSrcCopy)换成vb.net的代码是什么

Answer 1

获取控件的Graphic对象，绘图方法都集中在了该对像中了。

1. 通过控件GreateGrapic方法获得

2. Paint 事件参数e中也有此对象

相应的图形方法是DrawImage，vb.net中没有自动重绘功能，图形不是持久的，所以应当在Paint事件中绘图。

 Private Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
        e.Graphics.SetClip(e.ClipRectangle)
        e.Graphics.DrawImage(PictureBox1.Image, New Rectangle(0, 0, PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height), New Rectangle(5, 5, 100, 100), GraphicsUnit.Pixel)
    End Sub