首页 >> 读书频道 >> 电脑 >> 制作图形的Mask图
 
· 应用程序访问SQLSer
· 如何使Mouse的右键无
· ASP技术访问WEB数据
· ASP技术访问WEB数据
· ASP技术访问WEB数据
· 用ADO对象实现动态WE
· 取得TextBox 某一
· 限制Form Resiz
· 用ADO对象实现动态WE
· 显示、隐藏win95任务
· 用VB建立自己的回收站下
· 取得Disk Volum
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

制作图形的Mask图


查看有无更新版本

关键字:VB 2006-9-18

 

制作Mask图形的目的是为了把某一个图,去除其背景颜色,而将之画在另一个图上面,
比如说有一张方形的BitMap图,上有一枝笔,而其背景是蓝色,如何将这笔画在另一张
图上,而且笔原先的蓝背景不会画上去。
这个问题便得制造出笔的Mask图,与Invert的Mask图,该Mask图长像是:背景颜色(本例
是蓝色)变成白色,其他颜色变成黑色,而Inver的Mask图则反之。

本范例使用GetMaskPic()来取得Mask图的Handle of Memory DC (hMaskDC),用
GetInvertMaskPic()来取得Invert Mask图的Handle of Memory DC (hInvertMaskDC)
,事实上,如果想要二者同时取得实在没有必要分成两个函式来做,只要一个就好了,
这里只是一个范例,告诉大家如果想要个别取得时该如何做啦。

我将这原理简单的说明一下:

1.hdcMono = CreateCompatibleDC(0)
  产生一个Memory DC(与目前萤幕hDC相容),此时该MemoryDC绘的大小只有一个单色pixel
2.hbmpMono = CreateCompatibleBitmap(hdcMono, dx, dy)
  产生一个大小是dx*dy 的Bitmap,而它的第一个叁数是Memory DC所以是单色的BitMap
3.hbmpOld = SelectObject(hdcMono, hbmpMono)
  这个动作一做,该hdcMono的绘图区就变成hbmpMono了,也就是说可以想像hdcMono有一个
  大小是dx*dy(by pixels)的绘图区,在其上的画图会反映到hBmpMono之上  
4.picBack.AutoRedraw = True
  设定picBack.hDc指的是memory中的那份背景图
5.picBack.BackColor = RGB(255, 255, 255)
  设picBack的背景是白色,如此也会同时也使Window background Color变成白色,这边要
  提出说明的是,vb的BackColor指的是什麽大家都知道,但Window中的BackGround Color
  却不太相同,Window的 BackGround Color指的是在其上画线条或Print文字时,填充於线
  条  或文字外面的颜色,vb中一律使用Form/pictureBox的BackColor来填充,也就是说当
  BackColor变了时,同时也是让Window中所谓Background Color变,可以用以下程式一试
  便知:
      me.backcolor = RGB(255,255,255)
      Call SetBkColor(me.hDc, RGB(255,0,0))
      me.print "haha"
6.ColorBack = SetBkColor(picBack.hDC, TColor)
  设定PicBack的Window背景颜色成TColor,同时传回原本的Window BackGround Color
  存於ColorBack(先前第5步的设定,会使这ColorBack存的是白色的值)
7.BitBlt hdcMono, 0, 0, dx, dy, picBack.hDC, 0, 0, vbSrcCopy
  将picBack的背景图Copy 到memory DC之中,这边有一个重点,picBack是彩色图,但是
  目前记忆体Dc存的是单色的图,这麽Copy下去的结果会变成:PicBack的BackGround Color
  (即Tcolor)会变成1(白色),其他颜色变成0(黑色)。注:如果memory dc的图是彩色,就
  不会如此,而memory dc的图如何变彩色,那便是Step 3.
  SelectObject时传入一个彩色的hBitmap,而彩色的hBitmap又如何做到,那便是在Step
  2.时CreateCompatibleBitmap的第一个叁数,不传Memory DC,而传一个彩色的hDc,如
  form1.hdc (if 是彩色萤幕)
8.Call SetBkColor(picBack.hDC, ColorBack)
  window BackGround再设回原本的ColorBack之颜色(在这里是白色)
9.BitBlt picBack.hDC, 0, 0, dx, dy, hdcMono, 0, 0, vbSrcCopy
  将Memory dc内的图再画回PicBack的背景图中,相同的,单色图如何放入彩色图呢?原则
  似乎是(这是我的testing,Win32 help中没有说明): 1(白色)会以目的hdc(在此是
  picack.hdc)之window Background color来填(此时是ColorBack = 白色) ,而 0(黑色)
  就以黑色画上去,如此一来,一个图的Mask不就造出来了吗?
10.将Mask的图放到另一个彩色的Memory DC之中
    hMaskDC = CreateCompatibleDC(0)
    hBmpMask = CreateCompatibleBitmap(picBack.hDc, dx, dy)
    Call SelectObject(hMaskDC, hBmpMask)
    BitBlt hMaskDC, 0, 0, dx, dy, picBack.hDc, 0, 0, vbSrcCopy
11.Call SelectObject(hdcMono, hbmpOld)
   因已大功告成,所以将hdcMono上的绘图区设回原先的区域(於Step 2中记录),不过
   我个人没有这个习惯,但没有做有没有影响系统资源,我是半路出家,实在不知。
12.Call DeleteDC(hdcMono)
   删除记忆体 DC,这没做就不好了。
13.Call DeleteObject(hbmpMono)
   删除Bitmap,这没做就不好了。
'以下在form 需二个PictureBox,一个Image Control, 一个Command BoxPrivate Sub Command1_Click()Dim dx As Long, dy As LongCall GetInvertMaskPic(Picture1, Image1, RGB(0, 0, 255))'请确认相对pen.bmp图的背景颜色是什麽,本例中是蓝色,故使用RGB(0,0,255)Call GetMaskPic(Picture1, Image1, RGB(0, 0, 255))dx = Me.ScaleX(Image1.Picture.Width, vbHimetric, vbPixels)dy = Me.ScaleY(Image1.Picture.Height, vbHimetric, vbPixels)'以下将image1的图去除背景画在Picture2之上Set Picture1.Picture = Image1.PictureBitBlt Picture2.hDc, 0, 0, dx, dy, hMaskDC, 0, 0, vbSrcAndBitBlt Picture1.hDc, 0, 0, dx, dy, hInvertMaskDC, 0, 0, vbSrcAndBitBlt Picture2.hDc, 0, 0, dx, dy, Picture1.hDc, 0, 0, vbSrcPaintEnd SubPrivate Sub Form_Load()Picture1.Visible = FalsePicture1.AutoRedraw = True'Picture1.Appearance = 0 '要事先设定Picture1.BorderStyle = 0Set Image1.Picture = LoadPicture("c:\pen.bmp") '请自行设定您的图Set Picture2.Picture = LoadPicture("c:\bkpic.bmp") '请设定成自己的背景图End SubPrivate Sub Form_Unload(Cancel As Integer) Call DeleteDC(hMaskDC) Call DeleteObject(hBmpMask) Call DeleteDC(hInvertMaskDC) Call DeleteObject(hBmpInvertMask)End Sub'以下在.BASDeclare Function CreateCompatibleBitmap Lib "GDI32" _ (ByVal hDc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongDeclare Function CreateCompatibleDC Lib "GDI32" _ (ByVal hDc As Long) As LongDeclare Function DeleteObject Lib "GDI32" _ (ByVal hObject As Long) As LongDeclare Function SelectObject Lib "GDI32" _ (ByVal hDc As Long, ByVal hObject As Long) As LongDeclare Function DeleteDC Lib "GDI32" _ (ByVal hDc As Long) As LongDeclare Function BitBlt Lib "GDI32" _ (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, _ ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _ ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As LongDeclare Function SetBkColor Lib "GDI32" _ (ByVal hDc As Long, ByVal crColor As Long) As LongPublic hMaskDC As Long, hBmpMask As LongPublic hInvertMaskDC As Long, hBmpInvertMask As Long'取得 hMaskDC 的自订函数,该hMaskDC内的图像是souImg图之背景为白色' 而souImg的前景图是黑色'PicBack 叁数: 用来制作 Mask 图的图片盒'souImg 叁数: 摆放原图的影像之物件,可以是 image/picturebox'TColor 叁数: 欲去除的颜色,即souImg的背景色Public Sub GetMaskPic(picBack As PictureBox, _ souImg As Control, ByVal TColor As Long)Dim hdcMono, hbmpMono, hbmpOldDim ColorBack As LongDim dx As Long, dy As Long With picBack '取得该图的大小, by Pixels dx = .ScaleX(souImg.Picture.Width, vbHimetric, vbPixels) dy = .ScaleY(souImg.Picture.Height, vbHimetric, vbPixels) '设定pictureBox的大小与Source Image的大小相同 .Width = souImg.Width .Height = souImg.Height Set .Picture = souImg.Picture End With hdcMono = CreateCompatibleDC(0) hbmpMono = CreateCompatibleBitmap(hdcMono, dx, dy) hbmpOld = SelectObject(hdcMono, hbmpMono) picBack.AutoRedraw = True picBack.BackColor = RGB(255, 255, 255) ColorBack = SetBkColor(picBack.hDc, TColor) BitBlt hdcMono, 0, 0, dx, dy, picBack.hDc, 0, 0, vbSrcCopy Call SetBkColor(picBack.hDc, ColorBack) BitBlt picBack.hDc, 0, 0, dx, dy, hdcMono, 0, 0, vbSrcCopy hMaskDC = CreateCompatibleDC(0) hBmpMask = CreateCompatibleBitmap(picBack.hDc, dx, dy) Call SelectObject(hMaskDC, hBmpMask) BitBlt hMaskDC, 0, 0, dx, dy, picBack.hDc, 0, 0, vbSrcCopy Call SelectObject(hdcMono, hbmpOld) Call DeleteDC(hdcMono) Call DeleteObject(hbmpMono) End Sub'取得 hInvertMaskDC 的自订函数,该hMaskDC内的图像是souImg图之背景为白色' 而souImg的前景图是黑色'PicBack 叁数: 用来制作 Mask 图的图片盒'souImg 叁数: 摆放原图的影像之物件,可以是 image/picturebox'TColor 叁数: 欲去除的颜色,即souImg的背景色Public Sub GetInvertMaskPic(picBack As PictureBox, _ souImg As Control, ByVal TColor As Long)Dim hdcMono, hbmpMono, hbmpOldDim ColorBack As LongDim dx As Single, dy As Single With picBack dx = .ScaleX(souImg.Picture.Width, vbHimetric, vbPixels) dy = .ScaleY(souImg.Picture.Height, vbHimetric, vbPixels) '设定pictureBox的大小与Source Image的大小相同 .Width = souImg.Width .Height = souImg.Height Set .Picture = souImg.Picture End With hdcMono = CreateCompatibleDC(0) hbmpMono = CreateCompatibleBitmap(hdcMono, dx, dy) hbmpOld = SelectObject(hdcMono, hbmpMono) picBack.AutoRedraw = True picBack.BackColor = RGB(255, 255, 255) ColorBack = SetBkColor(picBack.hDc, TColor) BitBlt hdcMono, 0, 0, dx, dy, picBack.hDc, 0, 0, vbSrcCopy Call SetBkColor(picBack.hDc, ColorBack) BitBlt picBack.hDc, 0, 0, dx, dy, hdcMono, 0, 0, vbNotSrcCopy hInvertMaskDC = CreateCompatibleDC(0) hBmpInvertMask = CreateCompatibleBitmap(picBack.hDc, dx, dy) Call SelectObject(hInvertMaskDC, hBmpInvertMask) BitBlt hInvertMaskDC, 0, 0, dx, dy, picBack.hDc, 0, 0, vbSrcCopy Call SelectObject(hdcMono, hbmpOld) Call DeleteDC(hdcMono) Call DeleteObject(hbmpMono) End Sub

制作图形的Mask图

[ 1 ]
制作图形的Mask图 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑