资源描述：
《编成放大图片像素的方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、要处理一个图像，首先要获得该图像的像素值，而VB本身提供的PICTURE控件虽然可以打开很多类型的图片，但是它提供的那个POINT方法读取像素实在是太慢。而使用GetPixel这个API的速度也快不到哪里去，因为PIONT方法本身就是对于GetPixel的一个包装。 在VB中要快速获取一幅在PICTURE中打开的图像比较快速的方法是使用DIB方法，当然还有DDB方法，不过使用DDB方法还需要考虑不同颜色深度的图像的分别处理，在程序的实现上要相对复杂，而使用DIB方法则不必，并且在处理速度上比DDB方法也慢的
2、有限。 过程一：获得一个在PICTURE控件中打开的图像的所有像素。PublicSubDibGet(ByValIdSourceAsLong,XBeginAsLong,ByValYBeginAsLong,ByValXEndAsLong,ByValYEndAsLong) DimiBitmapAsLong DimiDCAsLong DimIAsLongDim DimWAsLong DimHAsLong OnErrorGoToErrLine Done=False TimeGet=timeGetTime InPutW
3、id=XEnd-XBegin InPutHei=YEnd-YBegin W=InPutWid+1 H=InPutHei+1 I=(Bits8)-1 ReDimColVal(I,InPutWid,InPutHei) Withbi24BitInfo.bmiHeader .biBitCount=Bits .biCompression=0& .biPlanes=1 .biSize=Len(bi24BitInfo.bmiHeader) .biWidth=W .biHeight=H EndWith iBit
4、map=GetCurrentObject(IdSource,7&) GetDIBitsIdSource,iBitmap,0&,H,ColVal(0,0,0),bi24BitInfo,0&DeleteObjectiBitmap Done=True TimeGet=timeGetTime-TimeGetExitSubErrLine: MsgBox"错误号："&Err.Number&"："&Err.DescriptionEndSub 在这个过程中所用到的只是一些参数的设定和API的调用，不涉及算法。 过程二：图
5、像输出的过程：PublicSubDIBPut(ByValIdDestinationAsLong) DimWAsLong DimHAsLong OnErrorGoToErrLine Done=False TimePut=timeGetTime W=OutPutWid+1 H=OutPutHei+1 Withbi24BitInfo.bmiHeader .biWidth=W .biHeight=H LineBytes=((W*Bits+31)And&HFFFFFFE0)8 .biSizeImage=Lin
6、eBytes*H EndWith SetDIBitsToDeviceIdDestination,0,0,W,H,0,0,0,H,ColOut(0,0,0),bi24BitInfo.bmiHeader,0 Done=True TimePut=timeGetTime-TimePut ExitSubErrLine: MsgBoxErr.DescriptionEndSub 下面解释一下在过程中到的全局变量和数据结构，以及API的定义。 API定义： 删除一个DCPrivateDeclareFunctionDel
7、eteDCLib"gdi32"(ByValhdcAsLong)AsLong 删除一个对象PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong 选择当前对象PrivateDeclareFunctionGetCurrentObjectLib"gdi32"(ByValhdcAsLong,ByValuObjectTypeAsLong)AsLong 获取DIBPrivateDeclareFunctionGetDIBitsLib
8、"gdi32"(ByValaHDCAsLong,ByValhBitmapAsLong,ByValnStartScanAsLong,ByValnNumScansAsLong,lpBitsAsAny,lpBIAsBitMapInfo,ByValwUsageAsLong)AsLong 获取系统时间PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"()AsLon
