vb小程序源代码：为图片添加水印文字或水印图案

《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