|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.初级好久没有写这个系列了,比来一向在忙其他的器材
初级的组件话题我们将会商一些对照难完成的,庞大的器材
前段工夫我写了一个龙卷风缩略图水印组件,感到效果还不错,因为是vb写的,有一些难度,人人一同来看看
这里有帖子:http://community.csdn.net/Expert/topic/4115/4115767.xml?temp=.9513056
功效以下:
龙卷风缩略图水印组件1.0版
功效特性:
1.撑持从bmp位图,jpeg,gif导进
2.仅撑持天生jpeg格局
3.笔墨水印,撑持自界说字体,扭转角度,色彩,字体宽度和高度
4.图片水印,撑持通明度
5.临时不撑持间接将文件流写进扫瞄器
6.损耗体系资本少
7.每一个例子都有具体的正文
龙卷风缩略图水印组件0.9版
功效特性:
1.仅仅撑持从bmp位图导进
2.仅仅撑持天生jpeg格局
3.损耗体系资本少
版本汗青
龙卷风缩略图水印组件1.0版
工夫:2005-02-13
增添了对jpg,gif图象导进的撑持
工夫:2005-02-12
功效:增添了图片水印功效
工夫:2005-02-11
功效:增添了笔墨水印功效
龙卷风缩略图水印组件0.9版
工夫:2005-02-10
功效:仅撑持bmp位图导进功效,撑持天生jpeg功效,只要缩略功效
能够无偿使用,无任何限定
若有成绩,但愿提出,以便我改善
我的email:yyg19780718@163.com
代码以下:
模块1:
OptionExplicit
有部分代码不必要,今后大概会用到
PublicConstLR_LOADFROMFILE=&H10
PublicConstIMAGE_BITMAP=0
PublicConstIMAGE_ICON=1
PublicConstIMAGE_CURSOR=2
PublicConstIMAGE_ENHMETAFILE=3
PublicConstSRCCOPYAsLong=&HCC0020
PublicConstBI_RGB=0&
PublicConstDIB_RGB_COLORS=0布局BITMAPINFO中包括了RGB值的数组RGBQUAD
PublicConstSTRETCH_HALFTONEAsLong=&H4&
PublicTypeBITMAPINFOHEADER40字节位图文件头
biSizeAsLong布局所需字节数
biWidthAsLong图象宽度
biHeightAsLong图象高度
biPlanesAsInteger必需为1,不必思索
biBitCountAsInteger色彩位数
biCompressionAsLong指定是不是紧缩,一样平常取BI_RGB
biSizeImageAsLong实践的位图占有的字节数,=biWidth(必需是4的整数〕*biHeight
biXPelsPerMeterAsLong程度分辩率
biYPelsPerMeterAsLong垂直分辩率
biClrUsedAsLong本图象用到的实践实践色彩数
biClrImportantAsLong本图象中主要的色彩数,为0,则以为一切的图象都是主要的
EndType
PublicTypeRGBQUAD
rgbBlueAsByte该色彩的蓝色份量
rgbGreenAsByte该色彩的绿色份量
rgbRedAsByte该色彩的白色份量
rgbReservedAsByte保存值
EndType
PublicTypeBitmap
bmTypeAsLong
bmWidthAsLong
bmHeightAsLong
bmWidthBytesAsLong
bmPlanesAsInteger
bmBitsPixelAsInteger
bmBitsAsLong
EndType
PublicTypeBitmapInfo
bmiHeaderAsBITMAPINFOHEADER
bmiColorsAsRGBQUAD
EndType
PublicTypeBITMAPFILEHEADER
bfType(1To2)AsByte
bfSizeAsLong
bfReserved1AsInteger
bfReserved2AsInteger
bfOffBitsAsLong
EndType
PublicDeclareFunctionCreateCompatibleDCLib"gdi32"(ByValhdcAsLong)AsLong
PublicDeclareFunctionCreateDIBSectionLib"gdi32"(ByValhdcAsLong,pBitmapInfoAsBitmapInfo,ByValunAsLong,ByVallplpVoidAsLong,ByValhandleAsLong,ByValdwAsLong)AsLong
PublicDeclareFunctionGetDIBitsLib"gdi32"(ByValaHDCAsLong,ByValhBitmapAsLong,ByValnStartScanAsLong,ByValnNumScansAsLong,lpBitsAsAny,lpBIAsBitmapInfo,ByValwUsageAsLong)AsLong
PublicDeclareFunctionSetDIBitsToDeviceLib"gdi32"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong,ByValdxAsLong,ByValdyAsLong,ByValSrcXAsLong,ByValSrcYAsLong,ByValScanAsLong,ByValNumScansAsLong,BitsAsAny,BitsInfoAsBitmapInfo,ByValwUsageAsLong)AsLong
PublicDeclareFunctionSelectObjectLib"gdi32"(ByValhdcAsLong,ByValhObjectAsLong)AsLong
PublicDeclareFunctionDeleteDCLib"gdi32"(ByValhdcAsLong)AsLong
PublicDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong
PublicDeclareFunctionBi
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时. |
|