vb.net批量添加水印 如何批量添加水印
如何给大量图片快速添加水印
快速批量给很多图片加水印的方法：
成都创新互联公司服务项目包括武穴网站建设、武穴网站制作、武穴网页制作以及武穴网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，武穴网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到武穴省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
步骤1，打开“优速图片格式转换器”软件，点击左边功能区中最下面的“添加水印”按钮。
步骤2，如下图所示点击任意一个红框，将需要添加水印的图片全部添加到软件中，软件支持批量添加图片水印，可以一次执行很多个图片，节省时间。
步骤3，添加好图片后，右下方位置会出现水印设置的地方，软件支持文字水印和图片水印，并且可以设置不同的样式/颜色/位置/透明度/大小等参数。这里案例中我们就设置文字水印。
步骤4，然后点击【开始转换】按钮，启动批量加水印程序，稍等片刻软件会自动弹出一个文件夹，添加水印后的图片会全部保存到这里。
步骤5，通过案例可以看出，图片成功地加上了设置的文字水印。
如何批量为图片添加水印
批量给图片加水印的方法：
步骤1，电脑上下载工具软件后安装使用，点击左边第一个【图片水印】功能，进入下一步操作。
步骤2，然后点击【添加文件】按钮，将需要添加水印的图片文件全部导入到软件中，软件可以一次性批量给很多图片加logo水印，提高效率。
步骤3，导入图片后就进行设置，如下图所示：水印类型选择“图片水印”（也可以选择“文字水印”），然后上传水印logo图片，最后设置logo水印的透明度/大小比例/位置等参数，上面可以随时预览到加水印后的样子。
步骤4，设置好了后就点击【开始转换】按钮，启动软件操作程序。随后软件会自动弹开一个文件夹，所有添加logo水印后的图片会全部保存到这里。
步骤5，查看处理后图片可以看到，全部成功的添加上了logo水印。
批量加水印方法 怎么加文字
批量添加水印方法：
1、打开2345看图王，点击菜单在弹出框中选择“批量添加水印”根据自己需要的选择；水印图片；大小、透明度；水印的位置
2、打开2345看图王，点击菜单在弹出框中选择“批量添加文字”；可以添加文字，字体、文字大小、透明度、和文字的位置等都可以自行选择
VB 给图片添加文字水印
VB6.0给已有图片添加文字可通过定位的Print 方法实现。要将添加文字的位图储存为JPG格式文件，需要使用API函数等实现。
具体步骤：
1）在图片框加载需要添加文字水印的图片。
2）使用如下代码实现添加文字到图片框。
Private Sub CmdEdit_Click() '修改
Dim strTxt As String
strTxt = "风雨无阻 拍摄"
Picture1.FontSize = 18
Picture1.CurrentY = Picture1.ScaleHeight - 30
Picture1.CurrentX = Picture1.ScaleWidth / 2 - Picture1.TextWidth(strTxt) / 2
Picture1.ForeColor = vbWhite
Picture1.FontItalic = True
Picture1.Print strTxt
End Sub
3）将以下API转换图片格式代码放置于标准模块，模块命名为saveApg。
Option Explicit
Public Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Public Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Public Type EncoderParameter
GUID As GUID
NumberOfValues As Long
type As Long
Value As Long
End Type
Public Type EncoderParameters
Count As Long
Parameter As EncoderParameter
End Type
Public Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, ByVal outputbuf As Long) As Long
Public Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Public Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long
Public Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Public Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal fileName As Long, clsidEncoder As GUID, encoderParams As Any) As Long
Public Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long
Public Declare Function GdipCreateBitmapFromFile Lib "GDIPlus" (ByVal fileName As Long, Bitmap As Long) As Long
Public Function PictureBoxSaveJPG(ByVal pict As StdPicture, ByVal fileName As String, Optional ByVal quality As Byte = 80) As Boolean
Dim tSI As GdiplusStartupInput
Dim lRes As Long
Dim lGDIP As Long
Dim lBitmap As Long
'初始化 GDI+
tSI.GdiplusVersion = 1
lRes = GdiplusStartup(lGDIP, tSI, 0)
If lRes = 0 Then
'从句柄创建 GDI+ 图像
lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap)
If lRes = 0 Then
Dim tJpgEncoder As GUID
Dim tParams As EncoderParameters
'初始化解码器的GUID标识
CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
'设置解码器参数
tParams.Count = 1
With tParams.Parameter ' Quality
'得到Quality参数的GUID标识
CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID
.NumberOfValues = 1
.type = 4
.Value = VarPtr(quality)
End With
'保存图像
lRes = GdipSaveImageToFile(lBitmap, StrPtr(fileName), tJpgEncoder, tParams)
'销毁GDI+图像
GdipDisposeImage lBitmap
End If
'销毁 GDI+
GdiplusShutdown lGDIP
End If
If lRes Then
PictureBoxSaveJPG = False
Else
PictureBoxSaveJPG = True
End If
End Function
4）使用以下代码实现将加好文字水印图片保存为jpg格式图片。
Private Sub Command3_Click() '保存为.jpg图片
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "JPEG Files" "(*.jpg)|*.jpg"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowSave
' 显示选定文件的名字
'MsgBox CommonDialog1.fileName
Set Picture2.Picture = Picture1.Image '转移Picture1所绘图为Picture2.Picture赋值
Dim ret As Boolean
ret = PictureBoxSaveJPG(Picture2, CommonDialog1.fileName) '保存压缩后的图片
If ret = False Then
MsgBox "保存失败"
End If
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
文章名称：vb.net批量添加水印 如何批量添加水印
本文来源：http://cdiso.cn/article/hghoic.html
