资源描述：
《vb代码vb小程序：将彩色图像转变为黑白图像》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VB代码VB小程序：将彩色图像转变为黑白图像 本程序使用两种方法将一幅彩色图像转变为黑白图像：用API方法、用VB控件方法。通过比较两种方法不难发现： 用VB控件进行转换，过程直观，代码好理解，对学习和理解VB绘图语句很有帮助，但速度慢。 用API方法进行转换，需操作二进制数组，像素点的行列定位较复杂，但转换速度快，几乎是瞬间就完成了转换。''以下是窗体代码，在VB6调试通过'需在窗体放置5个控件：Command1、Command2、Command3、Picture1、Text1'本人原创，转载请注明文章来源：http://hi.baidu.com/100bd/blog/item/1f4
2、653397c5d693296ddd800.htmlDimctExitAsBooleanPrivateTypeBitMap bmTypeAsLong '图像类型：0表示是位图 bmWidthAsLong '图像宽度（像素） bmHeightAsLong '图像高度（像素） bmWidthBytesAsLong '每一行图像的字节数 bmPlanesAsInteger '图像的图层数 bmBitsPixelAsInteger'图像的位数 bmBitsAsLong '位图的内存指针EndTypePriv
3、ateDeclareFunctionGetObjectLib"gdi32"Alias"GetObjectA"(ByValhObjectAsLong,ByValnCountAsLong,lpObjectAsAny)AsLongPrivateDeclareFunctionGetBitmapBitsLib"gdi32"(ByValhBitmapAsLong,ByValdwCountAsLong,lpBitsAsAny)AsLongPrivateDeclareFunctionSetBitmapBitsLib"gdi32"(
4、ByValhBitmapAsLong,ByValdwCountAsLong,lpBitsAsAny)AsLongPrivateSubForm_Load() Me.Caption="转变为黑白图片" Text1.Text=App.Path&"Tu1.jpg" Command1.Caption="打开":Command1.ToolTipText="打开指定的图片文件" Command2.Caption="转换1":Command2.ToolTipText="用AP
5、I方法转变为黑白图片" Command3.Caption="转换2":Command3.ToolTipText="用VB控件方法转换为黑白图像" Picture1.AutoSize=True:Picture1.AutoRedraw=True Picture1.ScaleMode=3 Picture1.ToolTipText="如果已转换为黑白图像，双击恢复为原来的图像" '设置控件位置，实际可以在设计窗体时完成 DimW1AsLong W1=Me.TextWidth("A"
6、;) Command2.MoveW1,W1,W1*6,W1*3 Command3.MoveW1*8,W1,W1*7,W1*3 Command1.MoveW1*15,W1,W1*7,W1*3 Text1.MoveW1*22,W1,W1*80,W1*3 Picture1.MoveW1,W1*5,W1*40,W1*40 CallRndImg(Picture1)'随机画一些图像EndSubPrivateSubRndImg(KjAsObject) '随机画一些图像 DimIAsLong Randomize Kj.DrawWidth=3 ForI=1To1
7、00 Kj.Line(Kj.ScaleWidth*Rnd,Kj.ScaleHeight*Rnd)-Step(50,50),&HFFFFFF*Rnd,BF Kj.Circle(Kj.ScaleWidth*Rnd,Kj.ScaleHeight*Rnd),30*Rnd,&HFFFFFF*Rnd Next Kj.DrawWidth=1 Kj.Font.Siz
