vb.net照片加水印 照片加水印网站
如何为图片添加水印
为图片添加水印 批量操作的办法
成都创新互联公司是专业的荆门网站建设公司，荆门接单;提供网站制作、成都网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行荆门网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
不管是普通人拍的照片，还是摄影师的作品，大家都不希望照片被别人盗用，于是就会在照片上加上透明或者半透明的水印，表示这张图片的所有权是归自己的。
那么，怎么才能为一张图片添加上水印呢？如果有大量的照片怎么进行批量的操作呢？
咱们就来学习一下，如何为图片添加水印，如何进行批量添加水印。
在本教程中用到的应用是：为图片添加水印 批量操作
图片批量添加水印
1、打开界面，点选“批处理”按钮，进入批量添加水印的页面；
2、在界面左侧显示添加多张图片或者直接添加文件夹，我们可以根据自己的需要进行选择；
3、选择好要添加水印的图片之后，点击“图片水印”这一选项；
4、此时，右侧出现导入水印图片的按钮；
5、右侧下方可以对水印的大小、透明度、位置等信息进行调整和选择；
6、找一个美观的方式，点击确定即可；
7、批处理完毕了，点击打开文件夹找到已经添加好水印的图片；
8、为图片添加水印完成了，下图中，水印位于右下角位置。
按照上述教程，我们就轻松完成了图片的批量添加水印，您学会了吗？此外，这个应用还可以免费为图片添加文字等，也可以试一试哦。
如何在照片上添加文字水印
在图片上添加水印的方法是：
一、制作水印图像
水印可以是图标、图案或者文字，现以文字水印为例：
1、新建文档。
2、键入文字，根据自己的艺术构思和要求，设置文字的字体、色彩。如下图：
3、删除背景图层，把图像存储为PNG文件。
二、添加水印
1、打开需要加水印的图片。
2、置入水印图像，调整大小及位置，如下图：
在照片上怎样加上水印
快速批量给图片添加水印的方法：
步骤1，下载“优速水印工厂”软件后安装使用。选择左边的【图片水印】功能按钮，再点击【添加文件】按钮，将需要添加水印的图片导入到软件中，软件支持批量处理，请一次性添加完成。
步骤2，接下来进行水印设置，先选择水印类型（文字水印或图片水印，单个或者多个）；然后设置水印文字内容或上传logo；最后设置水印的样式：大小/颜色/字体/透明度/缩放比例/旋转角度/水印密度（数量）/位置/边距等。在上方可实时预览，点击可放大预览。
步骤3，如下图所示，设置输出目录（文件保存到哪个文件夹）后，点击【开始转换】按钮启动软件程序。等所有图片加完水印后，软件会自动打开输出目录文件夹。
步骤4，从案例可以看到，所有图片上都加上了统一的水印。
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
图片水印怎么弄?
水印弄在图片上的方法：
打开美图app，首先在手机上找到并打开美图秀秀APP；
美化图片，在页面中所指处的“美化图片”；
点开文字
在页面中选择所指处的“文字”；
添加水印，在页面中选择处的“水印”，在图片上添加水印即可。
照片水印主要指的是现代的数字照片上面留下的一些logo、信息、网址什么的，图像，声音，视频信号等等在里面加了一些数字信息，这样是为了版权保护，当然加入水印也是不能影响原始文件的可读性以及观瞻的，水印具有以下几个特征，首先是证明各位是这个照片的原始主人，或者有的商家为了做宣传用，也会在照片上增加自己的网址，品牌名字等等。
文章标题：vb.net照片加水印 照片加水印网站
文章来源：http://6mz.cn/article/hphoog.html