欢迎来到天天文库
浏览记录
ID:17423859
大小:16.85 KB
页数:16页
时间:2018-08-31
《vb小程序源代码:为图片添加水印文字或水印图案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、VB小程序源代码:为图片添加水印文字或水印图案''以下是窗体代码,在VB6和WinXP调试通过'需在窗体放置以下控件,所有控件不必设置任何属性(包括位置和大小),全部采用默认设置:' 1个文本框:Text1' 5个按钮:Command1、Command2、Command3、Command4、Command5' 6个下拉列表框:Combo1、Combo2、Combo3、Combo4、Combo5、Combo6' 3个选择按钮:Check1、Check2、Check3' 2个图片框:Picture1
2、、Picture2' 1个形状控件:Shape1'本人原创,转载请注明文章来源:http://hi.baidu.com/100bd/blog/item/c4199fed77e54f3563d09fb5.htmlPrivateTypeBitMap bmTypeAsLong '图像类型:0表示是位图 bmWidthAsLong '图像宽度(像素) bmHeightAsLong '图像高度(像素) bmWidthBytesAsLong '每一行图像的字节数
3、 bmPlanesAsInteger '图像的图层数 bmBitsPixelAsInteger'图像的位数 bmBitsAsLong '位图的内存指针EndTypePrivateDeclareFunctionGetObjectLib"gdi32"Alias"GetObjectA"(ByValhObjectAsLong,ByValnCountAsLong,lpObjectAsAny)AsLongPrivateDeclareFunctionGet
4、BitmapBitsLib"gdi32"(ByValhBitmapAsLong,ByValdwCountAsLong,lpBitsAsAny)AsLongPrivateDeclareFunctionSetBitmapBitsLib"gdi32"(ByValhBitmapAsLong,ByValdwCountAsLong,lpBitsAsAny)AsLongPrivateTypetyRGB RAsLong:GAsLong:BAsLongEndTypeDimctIsTextA
5、sBoolean,ctRunAsBoolean,ctFAsStringPrivateSubForm_Load() Me.Caption="水印" Me.ScaleMode=3 Command1.Caption="文字水印":Command1.ToolTipText="切换到叠加文字水印状态" Command2.Caption="图片水印":Command2.ToolTipText="切换到叠加图片水印状态&quo
6、t; Command3.Caption="装载水印图片" Command4.Caption="打开":Command4.ToolTipText="加载背景图片" Command5.Caption="保存":Command5.ToolTipText="保存图片" Check1.Caption="下凹文字":Check2.Caption="斜体":Check3.Captio
7、n="粗体" Picture1.AutoRedraw=True:Picture1.ScaleMode=3 Picture2.AutoRedraw=True:Picture2.ScaleMode=3 Picture1.AutoSize=True:Picture2.AutoSize=True Picture1.BackColor=&H888888 Picture2.Picture=Me.Icon SetShape1.Container=Picture1
8、 Shape1.DrawMode=14 Shape1.FillStyle=0 DimIAsLong ForI=1To9 Combo1.AddItem"0."&I&"水印清晰度" Next Combo1.AddItem"1 水印清晰度" Co
此文档下载收益归作者所有