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

VB小程序源代码：为图片添加水印文字或水印图案 以下是窗体代码，在 VB6 和 WinXP 调试通过需在窗体放置以下控件，所有控件不必设置任何属性（包括位置和大小），全部采用默认设置：???1 个 文本框：Text1???5 个 按钮：Command1、Command2、Command3、Command4、Command5???6 个 下拉列表框：Combo1、Combo2、Combo3、Combo4、Combo5、Combo6???3 个 选择按钮：Check1、Check2、Check3???2 个 图片框：Picture1、Picture2???1 个 形状控件：Shape1本人原创，转载请注明文章来源：/100bd/blog/item/c4199fed77e54f3563d09fb5.htmlPrivate Type BitMap???bmType As Long?????????图像类型：0 表示是位图???bmWidth As Long????????图像宽度（像素）???bmHeight As Long???????图像高度（像素）???bmWidthBytes As Long???每一行图像的字节数???bmPlanes As Integer????图像的图层数???bmBitsPixel As Integer 图像的位数???bmBits As Long?????????位图的内存指针End TypePrivate Declare Function GetObject Lib quot;gdi32quot; Alias quot;GetObjectAquot; (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As LongPrivate Declare Function GetBitmapBits Lib quot;gdi32quot; (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As LongPrivate Declare Function SetBitmapBits Lib quot;gdi32quot; (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As LongPrivate Type tyRGB???R As Long: G As Long: B As LongEnd TypeDim ctIsText As Boolean, ctRun As Boolean, ctF As StringPrivate Sub Form_Load()???Me.Caption = quot;水印quot;???Me.ScaleMode = 3???Command1.Caption = quot;文字水印quot;: Command1.ToolTipText = quot;切换到叠加文字水印状态quot;?? Command2.Caption = quot;图片水印quot;: Command2.ToolTipText = quot;切换到叠加图片水印状态quot;?? Command3.Caption = quot;装载水印图片quot;?? Command4.Caption = quot;打开quot;: Command4.ToolTipText = quot;加载背景图片quot;?? Command5.Caption = quot;保存quot;: Command5.ToolTipText = quot;保存图片quot;?? Check1.Caption = quot;下凹文字quot;: Check2.Caption = quot;斜体quot;: Check3.Caption = quot;粗体quot;???????Picture1.AutoRedraw = True: Picture1.ScaleMode = 3???Picture2.AutoRedraw = True: Picture2.ScaleMode = 3???Picture1.AutoSize = True: Picture2.AutoSize = True???Picture1.BackColor = amp;H888888???Picture2.Picture = Me.Icon??????Set Shape1.Container = Picture1???Shape1.DrawMode = 14???Shape1.FillStyle = 0??????Dim I As Long???For I = 1