一、问题提出
经常看到有网友文这样的问题:“如何实现复杂背景下的擦除效果?”也有很多网友回答:“如果背景很复杂比如说图片,实现的可能不大!.NET提供的例子也是单色背景下的擦除啊!”
二、解决思路
先把原始image对象保存到一个临时的对象当中,随着鼠标的移动,截取图片上的一块区域,然后绘制到目标图形相同区域的位置上去。
三、实现方法
用过VB6.0的都知道API函数Bitblt吧,这个函数提供了复制源图形到目标图形指定位置的功能。利用该函数完全可以按照上述思路实现复杂背景下的擦除效果。
可是新的问题又出来了,因为.NET不支持hDC(设备上下文)了!当然我们也可以利用其他方法使得.NET支持hDC,在利用Bitblt函数实现该功能。难道强大的.NET就没有简单的方法实现这样一个在图形处理中常用的方法吗?回答是:“有!”
让我们来了解一下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
五、后话
讲到这里很多人就要说:“原来这么简单啊!”其实真的就这么简单,.NET提供的GDI+对图形处理是相当强大的。只要大家肯动手钻研,多方面考虑问题,你就会发现GDI+是非常好的东东哦!