首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

图片的蒙板效果,该怎么解决

2012-03-31 
图片的蒙板效果先说一下效果:一张图片,一个蒙板,蒙板有分为透明区域和不透明区域。透明区域是一个圆形(蒙板

图片的蒙板效果
先说一下效果:一张图片,一个蒙板,蒙板有分为透明区域和不透明区域。透明区域是一个圆形(蒙板是矩形),大小固定。

蒙板可以移动,这样可以显示不同的图片区域。

然后是双击截取透明区域的图片(不知道这次表达清楚了没)。

说问题:那个蒙板还不知道怎么做。用什么控件?透明怎么做?各位高手给点思路~谢先

[解决办法]
高手之一闭关修炼去了,我等只能顶了。
[解决办法]
楼主的问题需要图象方面的专业高手来解答,帮顶吧
[解决办法]
蒙版区域固定且蒙版不抗锯齿的话的话:
alphablend+SetClipRgn
[解决办法]
没有半透明的话在 VB 中很简单

VB code
Option ExplicitPrivate m_pic As IPictureDispPrivate Sub MaskPicture(ByVal X As Long, ByVal Y As Long)    '画黑白蒙板'    Picture1.Cls    Picture1.Circle (X, Y), 20    '用蒙板和图片进行 And 操作'    Picture1.PaintPicture m_pic, 0, 0, , , , , , , vbSrcAndEnd SubPrivate Sub Form_Load()    Me.ScaleMode = vbPixels        Picture1.AutoRedraw = True    Picture1.ScaleMode = vbPixels    Picture1.BackColor = vbBlack    Picture1.ForeColor = vbWhite    Picture1.FillColor = vbWhite    Picture1.FillStyle = vbFSSolid        Set m_pic = LoadPicture("C:\Temp\1.bmp")    MaskPicture 10, 10End SubPrivate Sub Picture1_DblClick()    SavePicture Picture1.Image, "C:\Temp\2.bmp"End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    MaskPicture X, YEnd Sub 

热点排行