精华内容
下载资源
问答
  • 2021-06-28 07:56:46

    简单实用的给图片加水印源代码

    在窗体上添加3个图片框,窗体和图片框的ScaleMode属性都设为3,AutoRedraw属性都设为True,其中Picture1加载背景图像,Size要大一点,水印也将要加在这上面;Picture2加载水印图像,Size要小一点;Picture3也要小一点,它打印水印文字。

    再添加2个按纽,点击Command1,把Picture2上的图像加到Picture1上,点击Command2,把Picture3上的文字加到Picture1上。

    水印可调节透明度,其值在10-90之间选择,此值越大越透明。

    文字颜色、字体以及水印位置可自由设置。

    你可以只加图像水印或只加文字水印,也可两者都加。

    代码较简单,不多说了。

    Option Explicit

    Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As

    Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As

    Long

    Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long,

    ByVal x As Long, ByVal y As Long) As Long

    Private Sub

    Command1_Click() '加水印图像

    Dim transparence As

    Integer '水印透明度

    Dim x1 As Integer, y1 As Integer '水印图取点坐标

    Dim x2 As Integer, y2 As Integer '背景图上的水印位置坐标

    Dim c As Long

    Dim r1 As Integer, g1 As Integer, b1 As Integer

    Dim r2 As Integer, g2 As Integer, b2 As Integer

    transparence =

    50 '此值在 10-90 之间,越大越透明

    y2 = 80

    For y1 = 0 To Picture2.ScaleHeight - 1

    x2 = 30

    For x1 = 0 To Picture2.ScaleWidth - 1

    c =

    GetPixel(Picture2.hdc, x1, y1) '从水印图像取点

    r1 = c Mod

    256

    g1 = c \ 256

    Mod 256

    b1 = c \ 256

    \ 256

    c =

    GetPixel(Picture1.hdc, x2, y2) '从背景图像取点

    r2 = c Mod

    256

    g2 = c \ 256

    Mod 256

    b2 = c \ 256

    \ 256

    r1 = r1 -

    transparence * (r1 - r2) / 100

    g1 = g1 -

    transparence * (g1 - g2) / 100

    b1 = b1 -

    transparence * (b1 - b2) / 100

    SetPixelV

    Picture1.hdc, x2, y2, RGB(r1, g1, b1)

    x2 = x2 +

    1

    Next

    y2 = y2 + 1

    Next

    Picture1.Refresh

    End Sub

    Private Sub

    Command2_Click() '加水印字符

    Dim transparence As

    Integer '水印透明度

    Dim x1 As Integer, y1 As Integer '水印字符图取点坐标

    Dim x2 As Integer, y2 As Integer '背景图上的水印起始位置

    Dim c1 As Long, c2 As Long

    Dim r1 As Integer, g1 As Integer, b1 As Integer

    Dim r2 As Integer, g2 As Integer, b2 As Integer

    Dim st As String

    transparence = 50

    y2 = 100

    st = "编程爱好者" '水印文字

    c2 =

    &HFF& '文字为红色

    With Picture3

    .FontSize = 14

    .FontBold = True

    .ForeColor = c2

    .Width = .TextWidth(st) + 2

    .Height = .TextHeight(st) + 2

    .Cls

    Picture3.Print st

    .Refresh

    End With

    For y1 = 0 To Picture3.Height - 1

    x2 = 40

    For x1 = 0 To Picture3.Width - 1

    c1 =

    GetPixel(Picture3.hdc, x1, y1) '从水印字符图取点

    If c1

    <> c2 Then

    r1 = c1 Mod 256

    g1 = c1 \ 256 Mod 256

    b1 = c1 \ 256 \ 256

    c1 = GetPixel(Picture1.hdc, x2, y2) '从背景图像取点

    r2 = c1 Mod 256

    g2 = c1 \ 256 Mod 256

    b2 = c1 \ 256 \ 256

    r1 = r1 - transparence * (r1 - r2) / 100

    g1 = g1 - transparence * (g1 - g2) / 100

    b1 = b1 - transparence * (b1 - b2) / 100

    SetPixelV Picture1.hdc, x2, y2, RGB(r1, g1, b1)

    End If

    x2 = x2 +

    1

    Next

    y2 = y2 + 1

    Next

    Picture1.Refresh

    End Sub

    更多相关内容
  • 给图片加水印

    2018-12-06 13:55:01
    1.VB写的小程序给图片增加水印,默认把图片拍摄日期作为水印;
  • 使用Node.js给图片加水印,首先要确保本地安装了node环境。然后,我们进行图像编辑操作需要用到一个Node.js的库:images。具体详情大家可以通过本文了解下
  • 微信小程序用Canvas给图片加水印,拼接图片,制作名片PHelper-master.zip
  • 为了防止辛苦做出来的图片被盗用,很多照片都会加上水印,可以直接用图片工具添加水印再上传,但PHP中就可以实现给图片加水印的功能,本文章向码农们介绍 php 给图片加水印的两种方法,感兴趣的码农可以参考一下本...
  • 内容索引:VC/C++源码,图形处理,水印 VC++ 给图片加水印效果示例,导入原图片、导入水印图片,可以将两张图叠加到一张图上,相当于加水印效果,不过实现起来里面有很多细节的,具体请看代码。源程序编译正常,不过加...
  • 在线图片加水印,canvas加水印,在线给图片加水印、照片上添加文字,通过前端canvas你的证件加上水印,防止证件被盗。 演示地址:http://watermark.dxcweb.com/
  • 能批量文件夹下的所有图片加水印.可以是文字水印也可以是图片水印. 字体,大小,旋转都可调, 还可以左右上下重复,以及加上随机颜色波动防止轻易被去掉.还可以保存水印设置
  • 主要介绍了C#给图片加水印的简单实现方法,涉及C#操作图片的相关技巧,非常具有实用价值,需要的朋友可以参考下
  • 在一些应用如微博中,为了防止用户图片被盗用,一般会在图片上加上水印,接下来就大家分享一个iOS中给图片加水印的简单方法.一起来看看吧。
  • 下面我就将介绍一下怎么给图片添加水印图片的拼接,怎么制作个性名片以及制作一个涂鸦的画板。   水印 水印的添加总的来说可以简单的分为三步来走,第一步先完成一个画布的创建,第二步在画板上画出你想添加水印...
  • 一个基于C# winform实现的图片加水印工具的Watermark源码文件,C#图形处理相关示例,有一定参考价值。可加文字水印和图片水印,使用System.Drawing.Image copyImage对图片进行加水印操作,保存加水印过后的图片会...
  • 主要介绍了用PHP代码给图片加水印的相关资料,需要的朋友可以参考下
  • 本资源是博文:《 Python程序设计项目案例》— Python给图片加水印(可批量加水印)小程序代码与免安装应用(博文链接地址:https://blog.csdn.net/meenr/article/details/124486259)一文中发布的第一版即V1.1版本...
  • 一、准备工作: 首先,你要阅读完这篇文章://... 然后,我们安装node.js的一个模块:imageinfo。 npm install imageinfo 二、直接上DEMO: 步骤如下: step1:文件夹结构 step2:JS代码 ...var watermarkImg
  • PHP最简单的加水印方法 <?php $img = imagecreatefromjpeg($filename); $logo = imagecreatefromjpeg($filename); /*imagecraetefromjpeg-由文件或URL创建一个新图像 imagecreatefromjpeg(string $filename) ...
  • Qt编写的给图片加水印的工具,选择图片所在文件夹,即可批量自动给图片加水印,加水印过程中没有用多线程,会卡住界面。但适合自己批量加水印的小工具。
  • 本文实例讲述了C#实现给图片加水印的方法。分享大家供大家参考,具体如下: using System; using System.Drawing; using System.Drawing.Imaging; using System.Drawing.Drawing2D; namespace Tutorial { class ...
  • 批量给图片加水印软件
  • php /* * 功能:PHP图片水印 (水印支持图片或文字) * 参数: * $groundImage 背景图片,即需要加水印图片,暂只支持GIF,JPG,PNG格式; * $waterPos 水印位置,有10种状态,0为随机位置; * 1为顶端...
  • 参数说明: $max_file_size : 上传文件大小限制, 单位BYTE $destination_folder : 上传文件路径 $watermark : 是否附加水印(1为加水印,其他为不加水印); 使用说明: 1. 将PHP.INI文件里面的”extension=...
  • 1、在网上查看了很多 资料,一般合成图片的方法,有两种;这种要简单、灵活些; 2、做成一哥demo,供学习参考;
  • C#给图片加水印的工具类,新手可以参考,也可以直接拿来用

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 25,183
精华内容 10,073
关键字:

给图片加水印