复杂图形下擦除图像

复杂图形下擦除图像

2008-08-25 19:08

让我们来了解一下GDI+的工作过程吧！在GDI+中要绘制图形首先要创建Graphics（图形）对象，然后再利用Draw...（绘制方法，有很多）在Graphics对象上绘制。在众多的Draw...中有没有类似Bitblt函数的方法呢？有！就是DrawImage方法！！在DrawImage方法的众多重载中这样一个： Overloads Public Sub DrawImage(Image, Rectangle, Single, Single, Single, Single, GraphicsUnit) “在指定位置并且按指定大小绘制指定的Image 对象的指定部分。” 利用这个重载，我们完全可以实现复杂背景下的擦除功能！ 例子 1，首先创建一个临时Image对象，用于保存原始背景图形     Dim imgBack As Image '用于保存背景图形的临时对象      imgBack = PictureBox1.Image '保存原始图形 2，在PictureBox1的MouseMove事件中实现擦除功能     Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove         If e.Button = MouseButtons.Left Then            '根据鼠标移动位置确定目标区域             Dim dx, dy, dw, dh As Integer             dx = e.X :   dy = e.Y : dw = 5 :   dh = 5             '创建矩形目标区域             Dim destRect As New Rectangle(dx, dy, dw, dh)             '确定矩形度量单位             Dim units As GraphicsUnit = GraphicsUnit.Pixel             '实现擦除功能             PictureBox1.CreateGraphics.DrawImage(imgBack, destRect, dx, dy, dw, dh, units)             PictureBox1.Refresh()         End If     End Sub