VB中实现图形柔和化

发布: 2007-6-21 21:57 | 作者: | 来源: | 查看: 15次 | 进入软件测试论坛讨论

　　
　　VB中实现图形柔和化
--------------------------------------------------------------------------------

柔化可使原来的图形变成模糊化，其效果就好像透过毛玻璃看一物体（如图）：

原理：位图是显示在不同控件上的对像素进行处理的图形，而位图中任何可以想像的颜色都可以表示为红、绿、蓝三原色来表示，我们可以通过ＶＢ中的Ｐｏｉｎｔ方法在图形中读取像素值，然后分析出这个像素值的三原颜色值，并把这些颜色值放在一个三维数组中。图形的柔化，就是使相邻像素间的颜色差别减小。若取９个像素为一组（如图），其中像素５就是要处理的像素，它的红、绿、蓝三值分别取其周围８个像素红、绿、蓝三值的平均值，使像素５的颜色向周围像素靠近，从而达到模糊的效果。
主要控件设计：
对像属性设置值
Ｐｉｃｔｕｒｅ１Ｓｃａｌｅｍｏｄｅ３
ＡｕｔｏｒｅｄｒａｗＴｒｕｅ
ＡｕｔｏｓｉｚｅＴｒｕｅ
Ｆｏｒｍ１Ｗｉｎｄｏｗｓｔａｔｅ０
程序代码：
Ｄｉｍｉｍａｇｅｐｌｓ（２，１０００，１０００）ＡｓＩｎｔｅｇｅｒ‘数组用于存放各像素的三原颜色值Ｄｉｍｘ，ｙＡｓＩｎｔｅｇｅｒＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）Ｃｏｍｍａｎｄ１．Ｖｉｓｉｂｌｅ＝ＦａｌｓｅＤｉｍｉ，ｊＤｉｍｒｅｄＡｓＩｎｔｅｇｅｒ，ｇｒｅｅｎＡｓＩｎｔｅｇｅｒ，ｂｌｕｅＡｓＩｎｔｅｇｅｒＤｉｍｐｌ＆ＣｏｍｍｏｎＤｉａｌｏｇ１．Ｆｉｌｔｅｒ＝＂位图（＊．ＢＭＰ）｜＊．ＢＭＰ＂‘用对话框装入图形文件ＣｏｍｍｏｎＤｉａｌｏｇ１．ＳｈｏｗＯｐｅｎＰｉｃｔｕｒｅ１．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（ＣｏｍｍｏｎＤｉａｌｏｇ１．ｆｉｌｅｎａｍｅ）Ｆｏｒｍ１．Ｒｅｆｒｅｓｈｘ＝Ｐｉｃｔｕｒｅ１．ＳｃａｌｅＷｉｄｔｈ‘获取图形Ｘ坐标值ｙ＝Ｐｉｃｔｕｒｅ１．ＳｃａｌｅＨｅｉｇｈｔ‘获取图形Ｙ坐标值Ｆｏｒｍ１．Ｗｉｄｔｈ＝Ｆｏｒｍ１．ＳｃａｌｅＸ（Ｐｉｃｔｕｒｅ１．Ｗｉｄｔｈ，ｖｂＰｉｘｅｌｓ，ｖｂＴｗｉｐｓ）Ｆｏｒｍ１．Ｈｅｉｇｈｔ＝Ｆｏｒｍ１．ＳｃａｌｅＹ（Ｐｉｃｔｕｒｅ１．Ｈｅｉｇｈｔ，ｖｂＰｉｘｅｌｓ，ｖｂＴｗｉｐｓ）Ｆｏｒｍ１．Ｒｅｆｒｅｓｈ‘分析各像素的颜色，并放在数组ｉｍａｇｅｐｌｓ中Ｆｏｒｉ＝０Ｔｏｙ－１Ｆｏｒｊ＝０Ｔｏｘ－１ｐｌ＆＝Ｆｏｒｍ１．Ｐｉｃｔｕｒｅ１．Ｐｏｉｎｔ（ｊ，ｉ）‘获取像素的颜色值（长整形）ｒｅｄ＝ｐｌ＆Ｍｏｄ２５６‘获取像素的红色值ｇｒｅｅｎ＝（（ｐｌ＆Ａｎｄ＆ＨＦＦ００）／２５６＆）Ｍｏｄ２５６＆‘获取像素的绿色值ｂｌｕｅ＝（ｐｌ＆Ａｎｄ＆ＨＦＦ００００）／６５５３６‘获取像素的蓝色值ｉｍａｇｅｐｌｓ（０，ｉ，ｊ）＝ｒｅｄｉｍａｇｅｐｌｓ（１，ｉ，ｊ）＝ｇｒｅｅｎｉｍａｇｅｐｌｓ（２，ｉ，ｊ）＝ｂｌｕｅＮｅｘｔＰｒｏｇｒｅｓｓＢａｒ１．Ｖａｌｕｅ＝ｉ＊１００／（ｙ－１）‘分析图形的进程显示Ｎｅｘｔ‘模糊过程Ｆｏｒｉ＝１Ｔｏｙ－２Ｆｏｒｊ＝１Ｔｏｘ－２ｒｅｄ＝ｉｍａｇｅｐｌｓ（０，ｉ－１，ｊ－１）＋ｉｍａｇｅｐｌｓ（０，ｉ－１，ｊ）＋ｉｍａｇｅｐｌｓ（０，ｉ＿－１，ｊ＋１）＋ｉｍａｇｅｐｌｓ（０，ｉ，ｊ－１）＋ｉｍａｇｅｐｌｓ（０，ｉ，ｊ）＋ｉｍａｇｅｐｌｓ（０，ｉ，ｊ＋１）＋＿ｉｍａｇｅｐｌｓ（０，ｉ＋１，ｊ－１）＋ｉｍａｇｅｐｌｓ（０，ｉ＋１，ｊ）＋ｉｍａｇｅｐｌｓ（０，ｉ＋１，ｊ＋１）ｇｒｅｅｎ＝ｉｍａｇｅｐｌｓ（１，ｉ－１，ｊ－１）＋ｉｍａｇｅｐｌｓ（１，ｉ－１，ｊ）＋ｉｍａｇｅｐｌｓ（１，＿ｉ－１，ｊ＋１）＋ｉｍａｇｅｐｌｓ（１，ｉ，ｊ－１）＋ｉｍａｇｅｐｌｓ（１，ｉ，ｊ）＋ｉｍａｇｅｐｌｓ（１，ｉ，ｊ＋１）＋＿ｉｍａｇｅｐｌｓ（１，ｉ＋１，ｊ－１）＋ｉｍａｇｅｐｌｓ（１，ｉ＋１，ｊ）＋ｉｍａｇｅｐｌｓ（１，ｉ＋１，ｊ＋１）ｂｌｕｅ＝ｉｍａｇｅｐｌｓ（２，ｉ－１，ｊ－１）＋ｉｍａｇｅｐｌｓ（２，ｉ－１，ｊ）＋ｉｍａｇｅｐｌｓ（２，＿ｉ－１，ｊ＋１）＋ｉｍａｇｅｐｌｓ（２，ｉ，ｊ－１）＋ｉｍａｇｅｐｌｓ（２，ｉ，ｊ）＋ｉｍａｇｅｐｌｓ（２，ｉ，ｊ＋１）＋＿ｉｍａｇｅｐｌｓ（２，ｉ＋１，ｊ－１）＋ｉｍａｇｅｐｌｓ（２，ｉ＋１，ｊ）＋ｉｍａｇｅｐｌｓ（２，ｉ＋１，ｊ＋１）Ｐｉｃｔｕｒｅ１．ＰＳｅｔ（ｊ，ｉ），ＲＧＢ（ｒｅｄ／９，ｇｒｅｅｎ／９，ｂｌｕｅ／９）ＮｅｘｔＰｉｃｔｕｒｅ１．ＲｅｆｒｅｓｈＮｅｘｔ ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ２＿Ｃｌｉｃｋ（）‘结束演示Ｅｎｄ ＥｎｄＳｕｂ（浙江省新昌中学俞永江３１２５００）

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容