【学术研究】利用ＶｉｓｕａｌＢａｓｉｃ直接采集并剪裁图片的方法于占虎（锦州师专，辽宁锦州１２１０００）摘要：在应用程序中，经常要进行图片处理，且经常只需要图片的一部分，为此给出一种在ＶｉｓｕａｌＢａｓｉｃ中借助ＰｉｃｔｕｒｅＣｌｉｐ控件利用摄像头直接采集并剪裁图片的方法示例．关键词：ＰｉｃｔｕｒｅＣｌｉｐ控件；摄像头；图片框；剪裁中图分类号：ＴＰ３１２ＶＢ文献标识码：Ａ文章编号：１００８—５６８８（２００８）０４—００４５—０１很多应用软件中经常利用摄像头进行图片采集，比如在报名软件中采集报名者的照片，经常只需要使用采集到的图片的一部分，这时就需要一种方法将采集到的图片中所需要的部分剪裁下来再使用，可以利用图片处理软件进行处理，但是使用时很麻烦．现给出一种在ＶｉｓｕａｌＢａｓｉｃ中利用ＰｉｃｔｕｒｅＣｌｉｐ控件直接剪裁摄像头采集到的图片的方法示例，希望能给从事计算机应用程序开发和教学的同行们提供一定的借鉴．１图片采集剪裁处理技术ＰｉｃｔｕｒｅＣｌｉｐ控件允许选择一个位图的一部分，然后在窗体或图片框中显示该部分的图片并保存，因而可以达到剪裁图片的目的．ＰｉｃｔｕｒｅＣｌｉｐ控件运行时不可见．由于ｅｚＶｉｄＣａｐ控件不支持ＭｏｕｓｅＭｏｖｅ事件，因此不能对摄像头采集到的图片直接进行区域选择，也就不能直接进行剪裁．而在ＶｉｓｕａｌＢａｓｉｃ中图片框控件具有ＭｏｕｓｅＭｏｖｅ事件，和ＰｉｃｔｕｒｅＣｌｉｐ控件相结合使用可以对图片进行区域选择，因此可采用如下方法解决：利用摄像头进行图片采集，将采集到的图片导入到图片框和ＰｉｃｔｕｒｅＣｌｉｐ控件中，利用图片框显示源图片，利用ＰｉｃｔｕｒｅＣｌｉｐ控件和图片框的ＭｏｕｓｅＭｏｖｅ事件选择图片要剪裁的区域并进行剪裁，将剪裁的图片在另外的图片框中显示．２方法示例２．１示例实现步骤（１）新建一个标准工程，创建一个新窗体，添加两个图片框，其中Ｐｉｃｔｕｒｅｌ用于显示源图片，Ｐｉｃｔｕｒｅ２用于显示剪裁后的图片．（２）在“部件”对话框中选择“ｅｚＶｉｄＣａｐＣｏｍｐｏｎｅｎｔｂｙＲａｙＭｅｒｃｅｒ（ｖ１３６）”和“ＭｉｃｒｏｓｏｆｔＰｉｃｔｕｒｅＣｌｉｐＣｏｎｔｒｏｌ６．０”复选框，将ｅｚＶｉｄＣａｐ控件和ＰｉｃｔｕｒｅＣｌｉｐ控件添加到工具箱中．（３）在Ｐｉｃｍｒｅｌ中添加ＰｉｃｔｕｒｅＣｌｉｐ控件和ｅｚＶｉｄＣａｐ控件，并将这两个控件的Ｔｏｐ和Ｌｅｆｔ属性设为０．（４）将Ｐｉｃｔｕｒｅｌ的ＳｃａｌｅＭｏｄｅ属性设置为Ｐｉｘｄ．（５）添加一个“确定图片”的命令按钮．（６）所有控件均使用默认的控件名．２．２衣例代码ＰｕｂｌｉｃｘｌＡｓＳｉｎｇｌｅ，ｙｌ缸Ｓｉｎｇｌｅ，ｘ２ＡｓＳｉｎｇｌｅ，ｙ２Ａｓｐｉｃｔｕｒｅ—ｔｅｍｐ．ｊｐｇ＂）ＳｉｎｇｌｅＥｎｄＳｕｂＰｕｂｉｃｍｙｃｏｌｏｒＡｓＬｏｎｇＰｒｉｖａｔｅＳｕｂＦｏｒｍ—Ｌｏａｄ（）ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄｌ—Ｃｌｉｃｋ（）ｍｙｃｏｌｏｒ＝＆ＨＦＦ００＆７设定剪裁图片时线框的颜色ｅｚＶｉｄＣａｐｌ．ＳａｖｅＤＩＢ（Ａｐｐ．Ｐａｔｈ＆”＼ｐｉｅｒｕｒｅ—Ｐｉｃｔｕｒｅｌ．ＤｒａｗＭｏｄｅ＝７’Ｘｏｒ笔，线条在移动时还原该ｔｅｍｐ．ｊｐｇ＂）’设定存放临时图片文件的路径线画出之前原有的显示内容．ｅｚＶｉｄＣａｐｌ．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ７隐藏摄像头控件以便可以显Ｐｉｃｔｕｒｅｌ．ＭｏｕｓｅＰｏｉｎｔｅｒ＝２’鼠标指针在图片框上时显示示图片框内容为十字型ＥｎｄＳｕｂＰｉｃｔｕｒｅＩ．Ｐｉｃｔｕｒｅ＝ＣｏａｄＰｉｃｔｕｒｅ（Ａｐｐ．Ｐａｔｈ＆”＼ｐｉｃｔｕｒｅ—Ａｓｔｅｍｐ．ｉｐｒ）’导入摄像头采集的图片ＰｒｉｖａｔｅＳｕｂＰｉｃｔｕｒｅｌ一ＭｏｕｓｅＤｏｗｎ（ＢｕｔｔｏｎＰｉｃｔｕｒｅＣｌｉｐｌ．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（Ａｐｐ．Ｐａｔｈ＆”＼（下转７１页）收稿日期：２００８—１０—２０作者简介：于占虎（１９７５一），男，辽宁义县人，讲师，主要从事网络教学研究万方数据
本文来源：https://www.2haoxitong.net/k/doc/6ba88bd4c1c708a1284a44d7.html
