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

VB小程序?源代码：为图片添加?水印文字或?水印图案 以下是窗体?代码，在 VB6 和 WinXP? 调试通过需在窗体放?置以下控件?，所有控件不?必设置任何?属性（包括位置和?大小），全部采用默?认设置：???1 个 文本框：Text1????5 个 按钮：Comma?nd1、Comma?nd2、Comma?nd3、Comma?nd4、Comma?nd5???6 个 下拉列表框?：Combo?1、Combo?2、Combo?3、Combo?4、Combo?5、Combo?6???3 个 选择按钮：Check?1、Check?2、Check?3???2 个 图片框：Pictu?re1、Pictu?re2???1 个 形状控件：Shape?1本人原创，转载请注明?文章来源：http://hi.baidu?.com/100bd?/blog/item/c4199?fed77?e54f3?563d0?9fb5.htmlPriva?te Type BitMa?p???bmTyp?e As Long?????????图像类型：0 表示是位图????bmWid?th As Long????????图像宽度（像素）???bmHei?ght As Long???????图像高度（像素）???bmWid?thByt?es As Long???每一行图像?的字节数???bmPla?nes As Integ?er????图像的图层?数???bmBit?sPixe?l As Integ?er 图像的位数????bmBit?s As Long?????????位图的内存?指针End TypePriva?te Decla?re Funct?ion GetOb?ject Lib quot;gdi32?quot; Alias? quot;GetOb?jectA?quot; (ByVal? hObje?ct As Long, ByVal? nCoun?t As Long, lpObj?ect As Any) As LongPriva?te Decla?re Funct?ion GetBi?tmapB?its Lib quot;gdi32?quot; (ByVal? hBitm?ap As Long, ByVal? dwCou?nt As Long, lpBit?s As Any) As LongPriva?te Decla?re Funct?ion SetBi?tmapB?its Lib quot;gdi32?quot; (ByVal? hBitm?ap As Long, ByVal? dwCou?nt As Long, lpBit?s As Any) As LongPriva?te Type tyRGB????R As Long: G As Long: B As LongEnd TypeDim ctIsT?ext As Boole?an, ctRun? As Boole?an, ctF As Strin?gPriva?te Sub Form_?Load()???Me.Capti?on = quot;水印quot;???Me.Scale?Mode = 3???Comma?nd1.Capti?on = quot;文字水印quot;: Comma?nd1.ToolT?ipTex?t = quot;切换到叠加?文字水印状?态quot;?? Comma?nd2.Capti?on = quot;图片水印quot;: Comma?nd2.ToolT?ipTex?t = quot;切换到叠加?图片水印状?态quot;?? Comma?nd3.Capti?on = quot;装载水印图?片quot;?? Comma?nd4.Capti?on = quot;打开quot;: Comma?nd4.ToolT?ipTex?t = quot;加载背景图?片quot;?? Comma?nd5.Capti?on = quot;保存quot;: Comma?nd5.ToolT?ipTex?t = quot;保存图片quot;?? Check?1.Capti?on = quot;下凹文字quot;: Check?2.Capti?on = quot;斜体quot;: Check?3.Capti?on = quot;粗体quot;???????Pictu?re1.AutoR?edraw? = True: Pictu?re1.Scale?Mode = 3???Pictu?re2.AutoR?edraw? = True: Pictu?re2.Scale?Mode = 3???Pictu?re1.AutoS?ize = True: Pictu?re2.AutoS?ize = True???Pictu?r