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