vb.net照片加水印 vb在image中添加图片

VB 给图片添加文字水印

VB6.0给已有图片添加文字可通过定位vb.net照片加水印的Print 方法实现。要将添加文字的位图储存为JPG格式文件vb.net照片加水印，需要使用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:

    ' 用户按vb.net照片加水印了“取消”按钮

    Exit Sub

End Sub

相关问答

Q1: 给图片添加水印怎么做到的？

一般选择给文件或者图片添加水印，都是原创作者为自己的作品加上一个版权保护而已。

图片添加水印的类型有两种，一种是文字水印，另外一种是图片水印（如公司logo等）。那么这都是如何做到的呢？一般我是这么给图片添加水印的：

1、首先，电脑上需要安装一款软件，双击打开后，在软件界面左侧选择“添加水印”这个功能。

2、接下来，在软件左上方选择“添加文件”，再将需要添加水印的图片上传到软件上。

3、如图所示，在软件的右下方，我们设置水印的类型为“图片水印”

4、然后再点击右下加的文件夹按钮，将图片水印（如公司LOGO等）上传到软件中 。

5、图片水印添加后，在这里我们就可以对其的位置、大小等进行适当调整。

6、软件默认的存储路径是原文件夹，如果需要更改，可以到软件上方的“输出目录”中勾选“自定义”，然后再选择一个新的存储路径。

7、最后，点击右上方的“开始转换”按钮即可，完成后，直接打开查看就可以了

以上是图叫兽的使用方法，希望能帮到有需要的小伙伴~

Q2: 谁有VB 给图片加水印的源文件或代码

Private Sub Command1_Click()

AddTxtToPicAndSave Picture1, "文字水印", 100, 200, "c:\1.bmp", 0

End Sub

Private Sub AddTxtToPicAndSave(Picture As PictureBox, strText As String, x As Long, y As Long, SFile As String, SaveType As Integer)

With Picture

.AutoRedraw = True

.CurrentX = x

.CurrentY = y

.Font = "黑体"

.FontBold = True

.ForeColor = vbRed

.FontSize = 22

Picture.Print strText

Select Case SaveType

Case 0 'BMP

SavePicture .Image, SFile

Case 1

'需要第三方控件来保存为其它图像格式

End Select

Q3: 相片如何添加水印

问题一：怎样在原有vb.net照片加水印的照片上添加水印vb.net照片加水印？ 用p图软件美图秀秀

问题二：如何在图片上添加水印文字 工作中，在打印一些重要文件时给文档加上水印，例如“绝密”、“保密”的字样，可以让获得文件的人都知道该文档的重要性。Word2003具有添加文字和图片两种类型水印的功能，水印将显示在打印文档文字的下面，它是可视的，但不会影响文字的显示效果。

1.添加文字水印

制作好文档后，在“格式”菜单下“背景”中选择“水印”选项，选择“文字水印”，在“文字”菜单中选择水印的文字内容，也可自定义水印文字内容。设置好水印文字的字体、尺寸、颜色、透明度和版式后，确定应用，可以看到文本后面已经生成了设定的水印字样。

2.添加图片水印

在“水印”对话框中选择“图片水印”，然后找到要作为水印图案的图片。添加后，设置图片的缩放比例、是否冲蚀。冲蚀的作用是让添加的图片在文字后面降低透明度显示，以免影响文字的显示效果。

注意: Word2003只支持在一个文档添加一种水印，若是添加文字水印后又定义了图片水印，则文字水印会被图片水印替换，在文档内只会显示最后制作的那个水印。

3.打印水印

在“打印预览”中可预览制作的水印效果，然后设置“打印”选项。在“工具”菜单下打开“选项”对话框，在其中“打印”内选中“背景色和图像”。再进行文档打印，水印才会一同打出。

问题三：怎么给图片加上水印vb.net照片加水印？ 大家只要利用系统自带的画图程序，就可以轻松给图片添加水印。 第一步：制作背景透明的图片。添加水印实际上就是将一幅背景透明的图片粘贴在图片上，透明背景图片的制作可以通过Word来实现，有两种方法。 1. 通过插入艺术字。单击Word新建一空白文档，单击“插入→图片→艺术字”，选择一种合适样式、字体、字号的艺术字。用鼠标调整艺术字大小并移动到照片的合适位置，这里注意设置好艺术字的颜色，使之看起来更为醒目，如图所示。 2. 通过“图片工具栏”的“设置透明色”功能。首先准备一张合适大小的图片如“水印.jpg”，按上述方法导入Word，选中图片，右击选择“显示图片工具栏”，单击图片工具栏的“设置透明色”，此时鼠标变为斜下箭头状，将鼠标移动到“水印.jpg”的背景处，单击后即可去除“水印.jpg”的背景色。 如果vb.net照片加水印你不知道水印相对于图片的大小，可以将图片也先导入Word，然后将水印的版式设置为“浮于文字上方”，然后把水印移动到图片上调整位置、大小即可。现在用鼠标选中艺术字右击选择“复制”，将它们传送到剪贴板中。 第二步：添加水印。启动画图程序，打开需要添加水印的图片，单击“图像→不透明处理”，去除“不透明处理”选项。单击“编辑→粘贴”，这时可以看到艺术字被粘贴到图片的左上角，用鼠标调整其大小并移动到图片的合适位置，最后单击保存即可，添加水印的结果如图所示。 另外，我们也可以通过画图的添加文字功能来实现添加水印，用画图打开图片后，单击画图右边菜单的“A”图标，在图片合适位置输入版权说明文字，并设置好文字的字号、颜色。最后保存即可。不足的是此法只能添加文字水印，而且效果不如艺术字好。

问题四：手机上怎么快速给照片加水印。 下载一个美图秀秀app到手机上，然后安装，安装完打开美图秀秀，再打开你的照片，再用美图工具给你的图片加上水印即可~

问题五：word中插入图片后，怎么让水印显示在图片上面？ 问题没描述清楚

如果是图片上直接加水印,可以先编辑好后再插入,这样更易操作

如果是图片浮于文档上,可加背影水印

问题六：如何轻松给图片加LOGO和水印 给图片加一幅水印是很多朋友在图片后期处理时经常的工作，既可以保护图片不被滥用，又起到了标识的作用。这个步骤使用PHOTOSHOP等工具当然可以完成，但是每次都要使用那个“庞然大物”实在是让很多人望而却步，而且使用它也不是很方便，做出一副很好的水印至少需要你懂得蒙版之类的专业知识才可以得心应手。所以有这样一款专业软件就非常必要，这一款名叫“轻松水印”的软件。它对jpg、gif、bmp等格式的图片均适用。1、启动《轻松水印专业版》，在左侧的文件夹树里选择一个含有照片的文件夹或使用“文件”→“打开”命令选择要处理的图片。2、打开“对像”菜单，可以看到能够创建水印效果：线条、椭圆、文本、图片等。选择“文本”命令，为图像创建最简单的文字水印效果，在右侧的“对像编辑器”中输入要加入的水印文字如：“御花王朝版权所有”，这时会在图片上显示出水印文字效果。选中文字，在文字周围会出现八个控制点，拖动它们可以改变文字的大小和位置，另外，也可以通过选定右边对像编辑器下面的九个小方框确定位置，然后批量添加水印时不管你选的图片的大小是否一样，此水印都会在图片相应的方向出现，此功能很好。3、在工具栏中可以对水印文字的属性进行设置，包括字体、大小、粗体、下划线、颜色、角度、透明度等均可在此轻松完成。默认情况下文字的颜色为红色，单击F字母，会弹出调色板，选择你需要的颜色就可改变文字颜色了。小提示：我们往往并不需要水印文字太过明显的在图像中显示，可以调节透明度参数来改变文字的透明度，数值越小文字显示越清晰。4、在“文字属性”设置栏中，可以通过过右边几个按钮设置水印的颜色，凹凸，阴影半径，透明度等等。5、除了可以轻松制作水印文字外还可对图像进行修剪，并加入一些效果。单击工作区中的修剪按钮，在图像的周围会出现八个控制点，拖动它们就可对图像进行修剪了。在图片工具栏中可以为图片，增加一些滤镜效果，还可对图像做0、90、180、270度旋转，并可以做水平镜像或垂直镜像。6、如果你想将你的LOGO图片做成水印效果，也很容易实现，只要打开“对像”→“图片”菜单，选择你的LOGO图片就可以把它放置在图像上了。7、怎么样，很简单吧，到此就轻松完成了水印图片的制作。但对于一些经常在网站上发布图片的人来说，如果这样逐张地做水印太麻烦了，还好本软件还提供了“批量水印”的功能。你只要做好一个水印效果，就可以单击工作区上的“批量水印”按钮，打开“格式转换和改名选项”对话框，在这里设置好参数，然后单击“确定”按钮，选择要批量转换的图片文件，就可将这些图片按你的要求全部转换为带有水印效果的图片。点击这里下载

问题七：如何用photoshop给图片添加水印 首先打开你需要添加的图片 再打开已经制作好的水印文件

然后在水印文件里使用快捷键Ctrl+A 然后Ctrl+C

接着切换到你要添加水印的图片 Ctrl+V 水印就可以添加到需要的图片了

接着再使用移动工具（就是工具栏第一个小箭头）把水印移动到你需要的位置

如果水印大小不理想，可以选中水印图层（图层在页面右下角）用Ctrl+T进入自由变换大小工具 此时可以按住Shift键然后鼠标移动图片四个角落出现的小方框调整图片大小 （过程不要翻开Shift,否则图片比例会变化）

调整好适合大小后 可以回车直接应用变化

附带一句，一般我们添加水印都采取50%的透明度

透明度方法：在图层上方有个不透明度以及它右侧有个下拉框 从里面选取50%或者可以直接输入即可改变透明度

如果你不会的话我可以帮你做

问题八：如何给网站图片添加水印 如何给网站图片添加水印，解答如下

首先，我们要先把水印模板给做出来。新建一张5厘米*5厘米的透明图层。点击“文件”-“新建”。在弹出的对话框中宽度设为“5厘米”，高度也设为“5厘米”，背景内容设为“透明”，接着点“确定”。

步骤阅读.2 选择“横排文字工具”，把字体设为“楷体”，大小设为“30点”，文字颜色就不要紧了，反正待会要清空文字的。输文字的目的只是为了给文字描上一层灰色的边，我们要的是那层边。

步骤阅读.3 打完文字后，先不急着描边，先把文字放斜点。按一下“Ctrl+T”，进入“自由变换”模式，在文字的周围“按住鼠标左键就可以旋转文字”，按“回车键”退出自由变换模式。

步骤阅读.4 现在该给文字描边了，描边就是沿着字体的周围涂一层不厚也不薄的颜色，我们最后看到的水印其实就是这层边来的，一般的水印都是灰色的，好，我们就给文字描一层灰色的边。点击“添加图层样式∫X”-“描边”，进入“图层样式”对话框，大小为3像素，位置为外部，不透明度为100%，这些都按默认就行了。我们关键是要设置颜色。绝对不是要“黑色”，点击“黑色”部分进入“选取描边颜色”对话框。

步骤阅读.5 我们来到了“选取描边颜色”对话框，这里可以设置世界上会任何一种颜色，要对应的RGB码或LAB码，如果没有，那就到软件自带的“颜色库”里选取。拖动鼠标就能选到灰色。如果实在选不到，直接输入L=83，a=0，b=2也行。然后一路点“确定”就OK了。

步骤阅读.6 描完边后就成这样子了。

步骤阅读.7 接下来要把红色的字给清除了，把图层的“填充”调为0%就可以了。也许你们会误以为这样子就是最终的“水印”了。No，还差一点，这种水印太明显了，印在图片上只会让人有种“喧兵夺主”的感觉。那怎么办呢？

步骤阅读.8 很简单，把水印的“不透明度”调为60%就恰到好处了。这才是“终极水印”模板。

步骤阅读.9 我们把水印模板“自定义为图案”，随时可以为自己调用。点“编辑”-“定义图案”。在弹出的对话框中，随便填个“名称”，点“确定”，主要工作到这里基本结束了。剩下的就是如何调用的问题了。

步骤阅读.10用photoshop 随便打开一张图片，点击“编辑”-“填充”，在弹出的填充对话框中点击自定图案的“下三角箭头”，在弹出的图案框中，拖动窗口的滚动条到最下面就可以看到自己制作的图案了，选定它，然后点“确定”。

步骤阅读.11 这就是我自制作的生日蛋糕――水印图！觉得水印还是太明显了点，你制作的时候可以把“不透明度”再调低点。

步骤阅读.12如果你嫌整张图片布满水印不好看，可以把做成的“水印模板”定义为“画笔预设”，以后想在图片的哪个地方添加水印，只要选择画笔，在那个地方一点就可以了。我们来试一下，点击“编辑”-定义画笔预设。

步骤阅读.13随便输入个名称，然后点击“确定”。那这张“水印模板”就变成“画笔工具”的一个“预设”，当我们选择“画笔工具”的时候，就可以调用了。

步骤阅读.14我们选用“画笔工具”。

步骤阅读.15选择“画笔预设”，选中刚才制作的“水印模板”。

步骤阅读.16然后在图片上一点就是一个水印，再点一下，又一个水印，可以非常灵活。由于“画笔工具”一般是以“前景色”为画笔颜色的。所以，“前景色”的设置不同，也会导致水印的颜色不同。

步骤阅读.17前景色可以配合着photoshop自带的“色板”使用，只要在“色板”上一点中，前景色就会换成相应的颜色。

...

问题九：怎样在照片上添加水印 水印分两种，一是文字，二是图形（或者说图标），但用光影魔术手都很简单的，相对来说版本3的是后续版本更好用，这里说明的就是用版本3为例~

打开照片，找到水印功能模块，见下图

文字的水印就是需要我们自己输入，比如我上面的“建亚五金机械”，之后现在字体 字体大小 大概方位（就是左下或者右上之类的），预览一下，再通过数字调整具 *** 置就完成了~

要是用图形做水印，就选择“水印”打开对话框，先选择你需要用作水印的图片，之后在打开的对话框中进行各项设置，比如透明度 大小 位置等等~你看到上面的“建亚五金机械LOGO”就是图形的水印

两种水印都添加之后的效果就是下面这样的

问题十：用PS如何给图片加水印? PHOTOSHOP中的“水印”和我们所谓的“水印”不是一回事，PHOTOSHOP中的水印是数字水印，为了保护图象的版权而设置的，需要通过申请才有的水印号，该水印被隐含到图象中，肉眼是看不见的，并且不会因为图象的修改而被删除。

我们说的“水印”是可见的，如果是文字水印的话，你可以用文字工具（快捷键T）打上浅灰色的字，然后将文字这个图层的不透明度（也在图层栏里面）减少到30%左右即可。

Q4: 如何给整张图片加水印

1、首先，准备好水印图片，用ps打开

2、接着点击【编辑】-【定义图案】

3、设置图案的名称，设不设置都可以

4、接着打开你要加水印的图片，点击【编辑】-【填充】

5、选择【内容】为【图案】

6、【自定图案】选择刚才设置的图案，一般是最后一个

7、脚本选择【砖型填充】，同时可以设置图案的不透明度，默认是20%，数值越高，越不透明

8、接着会出现下面的窗口，可以调整水印的多少，旋转的角度等，大家根据自己的需要进行设置，左侧可以看到预览效果

9、确定后，就可以看到水印加到图片上了

Q5: 怎么给照片加水印

水印照片的操作办法如下：

手机：华为Mate40Pro

系统：HarmonyOS2.0

软件：美图秀秀9.3.6.5

1、打开手机相机，点击更多。

2、在更多页面，点击水印。

3、选择并调整水印，点击拍摄即可拍摄水印照片了。

水印照片的好处

开启水印相对而言还是可以有效防伪的，水印类似有点版权保护，大多数时候还是能起到点作用。大部分博主发布的图片、视频内容均会一致默认添加水印。在社交平台上发的分享图也是必带水印，就害怕被盗图，反正那种心情最好大家永远也体会不到。

影像作为记录生活和当下情绪表达的方式，水印照片其实也算一种风格。那种添加了时间、天气和地点的水印，可能日后回看这些照片也能想起来当时的那份心境。

拍照时有个水印让原本平平无奇的照片，最后莫名的带点高级感。不用靠太多的后期，单纯的加了水印后感觉拍出来的照片更有内味了。当然这个并不是绝对的，对于不同的照片，有的照片加上水印就会显得非常高级。水印功能让手机影像的标签更加显眼，手机摄影的概念深入人心。

关于vb.net照片加水印和vb在image中添加图片的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。