vb.net图片水印 vb水印怎么弄在中间

基于java jsp asp php vb安卓系统毕业设计与实现论文源码下载？

及时送上了计算机毕业设计相关资源合意的换请采纳一下,大家顺遍点下赞吧

专注于为中小企业提供网站制作、网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业海湖新免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了数千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

在线考试制卷系统(任务书,论文,源码)

net小型证券术语解释及翻译系统的设计与开发(源码,论文)

原创vf员工培训管理系统(任务书,论文)

asp科研信息管理系统(任务书,开题,论文,源码)

android小型企业工资管理系统(源码,论文)

asp出租车管理系统(任务书,论文,源码)

vb.net实验室计算机的ip地址自动设置程序——服务器端(任务书,论文,源码)

rsa可视化算法程序的实现与研究(任务书,论文)

j2ee数控加工技术教学素材资源库的构建(任务书,论文,源码)

eims系统-oa子系统的设计与开发(任务书,开题,论文,源码)

jsp网上购书(任务书,论文)

vb图书管理系统(任务书,论文)

vc户籍管理系统(任务书,论文,源码)

php基于bs结构的工艺品销售系统的实现(源码,论文)

net模块化动态电子商务网站的开发(任务书,论文,源码)

pb电信人事管理系统设计(任务书,论文)

vb成本费用计算系统(源码,论文)

jsp出租车管理系统(任务书,开题,论文,源码)

asp.net求职招聘网站设计(源码,论文)

vb.net机房监控系统(全套)

vf学生办证管理系统(任务书,开题,论文,源码)

jsp基于网络超市商品销售管理系统(任务书,论文,源码)

jsp团员管理

asp.net一个动态文学网站

vf基于jme平台的掌上网络商店－服务器端的开发

c#报警系统

net(vc)办公自动化管理系统

jsp计算机等级考试查询系统jdbc

vb.net商品配送中心库存仿真软件设计

jsp网络购物

net在线英语自学系统——知识库管理的设计

jsp企业进销存管理系统

php某公司进销存信息管理系统

pb干部档案管理系统

delphi学生信息管理系统毕业设计

asp学生信息管理系统

asj2eetoc电子商务网站

delphi图书管理系统（毕业程序翻译%通过）

jsp网上商城系统

jsp客户关系管理系统

jsp企业人事管理系统

c#办公管理系统

jsp搜索引擎的研究与实现

jsp网络房产信息超市

php会员管理系统

j2ee基于usbkey的文件加密工具—-客户端的实现

net网上图书订阅系统的设计

php网站流量统计

asp.net团员管理

android文件传输

delphi并行接口器件功能演示的可视化设计学位

php房屋租赁管理信息系统jdbc

数据采集电路pcb的设计与制作

androidsmart系统-考试监控及阅卷模块的设计与开发

java流动资金贷款业务系统

asp电脑配机

vf物流管理系统--仓储管理子系统的实现

简化的cpu逻辑功能的仿真实现

net网上教材管理系统

net高校学生宿舍管理系统

vc药品公司进销售存管理系统

基于des加密算法的word加密插件的实现

asp.net基于asp.net的房产中介系统

c#简单图片转化

asp基于asp的反垃圾邮件管理系统的设计

delphi航空客运订票系统

c#windows简单防火墙设计与实现

j2ee车间调度系统

php《信息论与编码》在线考试系统

vb.net基于角色访问控制的oa系统

asp某小型数字图书馆

vb图形识别和编辑

pb电脑公司财务管理系统

asp网上购书

android光盘信息管理系统

php新闻网程序

php购物系统

vb.net考试系统vb.net

java学生管理系统

基于apriori算法的关联规则挖掘系统

vf布匹出口管理系统

c#会计电算化系统——财务管理子系统

php毕业生信息管理系统

pb酒店客房餐饮管理系统

vf库存管理

asp.net药品销售数据管理系统

asp.net网上论坛

基于linux的远程控制技术服务端实现

php网络商城

文件压缩与解压缩实践

asp学生管理系统

php科研项目网上申报管理系统

vb.net图片文件中的信息隐藏和还原的设计

asp销售供应链管理系统的设计与开发

asp基于asp技术的猎头公司管理软件的设计和实现——内部事务部分

网络求职招聘系统

neterp系统(毕业设计

php基于web的商场管理系统

vb电脑公司财务管理系统

delphi客户管理系统

net图书馆管理信息系统

java超市商品管理系统

pb在线考试

java原创库存管理系统可执行程序

c语言文件系统设计

基于webservice的数据库同步系统

vb.net考勤管理系统vb.net

vb简单几何图形的识别和编辑系统

net某公司员工管理系统

vf酒店客房管理系统

vf商场管理系统

vb.net开发在windows下的串口异步通信程序

asp一个小型搜索引擎

j2ee高速公路票据管理系统

vb小区物业管理系统

php酒店房间预约系统设计

asp《信息论与编码》在线考试系统

vf宿舍管理系统

android基于局域网的文件传输系统

asp学生网上选课系统

php校园学生信息在线管理系统

asp基于web的商场管理系统

net基于web的订餐系统

jsp仓储管理系统

简易网络存储系统

javaftp客户端

jsp公交查询系统

java人才管理系统

net企业投资价值分析系统

asp基于bbs的bbs系统设计(structmy)好

android通用图书馆管理系统

asp网上选课系统

最新asp网上论坛

vc网络爬虫程序

net考勤系统(net)

net交通信息网上查询系统

美食网站

pb企业物料需求计划管理系统

delphi公交车查询系统delphi源

asp.net网络招聘系统

asp视频点播系统

vf学生学籍管理

android毕业管理系统

简易网络存储系统

vb.net一种基于cc模式的网上购物系统

asp.net网络文件管理系统

asp.net学生信息管理系统

j2ee城市公交查询系统

j2ee人机接口设备—示波器的仿真实现

jsp网络商城

net基于bs的图书销售管理系统

net基于net的公司网站

j2ee汽车零件销售管理系统

vf图片文件中的信息隐藏和还原的设计

vf医药管理系统

net技术的猎头公司管理软件——内部事务部分

最新net高校学生宿舍管理系统

vb局域网抓包软件

asp.net企业物流平台

asp.net学生排课管理系统

vb.net网络数据包捕获工具

android企业考勤

c#在线考试

j2eealendar的跨平台系统的设计

vf书店辅助进书系统

asp仓库即时查询系统

asp作业提交与批改系统

vb开发在windows下的串口异步通信程序

javaac自动组卷系统

asp网上体育用品商店

jsp华夏文化交流平台

delphi采购管理

php校园新闻发布管理系统

vb.net成绩管理系统vb.net

delphi五子棋游戏（网络版）的设计与开发

最新net网上图书订阅系统的设计

vb教学辅助系统vb

android试题库自动组卷系统

vc试题库自动组卷系统（vc）cym

asp.net基于bs的家教交流平台的实现

vf学生成绩管理系统vf

asp.net楼宇专业网站毕业设计

net多语种网络硬盘系统的设计

vf考试系统vf

端口信息工具

vf物业管理

net公交车管理系统的实现与设计

pb基于半打开的端口扫描技术及其实现

j2ee水费管理系统

vf用遗传算法解决车辆优化调度问题任务书

jsp办公自动化管理系统

jsp基于android的在线购物系统

asp.net车辆调度管理系统

pb线程插入木马

delphi基于delphi的串口通信服务的开发

asp药店管理系统

jsp实验室设备管理系统

kasumi算法的研究与j2ee实现

net基于.net的城市公交查询系统

jsp基于web的subversion用户管理系统phb

delphivbd租赁管理系统

linux下的网络层加密解密的实现

android药品公司进销售存管理系统

asp服装销售系统

j2ee电信人事管理系统设计

jsp员工信息管理系统

android考勤管理系统android

vf基于.net的网上购物系统

vb.net财务管理系统

vc题库管理系统

delphi基于webcam的人脸检测技术

php在线学习系统

最新php团员管理

vb原创图书管理系统)毕业设计

net某企业信息管理系统

asvbtoc电子商务网站

vf火车站售票管理系统

asp科研信息管理系统

net某企业信息管理系统

vb基于usbkey的文件加密工具—-客户端的实现

net基于.net企业订单管理系统的开发

net房地产评估系统

net作业在线提交系统

vc多线程与线程安全实践-基于http协议的断点续传

vf地税局工资管理系统

delphi科研管理系统

delphi烟花爆竹经销管理系统

面向internet上的cscw的共享白板

php网络招聘系统

php网上求职与招聘系统

vb.net机房监控系统

asp.net考试报名信息处理系统

j2ee医院病房管理系统

基于进程和通信隐藏的木马设计与实现

net息加密与隐藏工具

c#汽车销售系统

jsp原创教师信息管理系统

android简易web服务器研究

asp科研项目网上申报管理系统

asp基于asp的论坛

php计算机组成原理教学网站

android超市销售系统

c#网络流量监控及分析工具

delphi电子邮件客户端软件

android排课系统程序

jsp网上拍卖平台系统)

j2ee某百货店pos积分管理系统-积分添加和通票回收

j2ee教务管理系统j2ee

vf银行代扣代发工资系统

php学生学籍管理系统

基于webservice的异构数据库检索系统的设计

android长途汽车信息管理系统

net系办办公自动化系统

c#网络计时管理系统

net网络商店销售管理系统

原创net高校学生宿舍管理系统

asp网络教学评判系统

net客户关系管理系统的实现

c语言遗传算法在求解tsp问题毕业

asp.net网上教学资源共享系统

基于icmp模拟网络控制软件的开发——控制管理模块

vb车间调度系统

net动态口令认证的网上选课系统

asp.net图书馆管理系统

asp企业公告及资料发布系统

pb原创图书管理系统)毕业设计

vf基于cs结构的企业人事管理系统

网络嗅探器

jsp网上书店售书系统

asp.net网上选课系统

asp酒店客房管理系统

asp.net自动排课系统

net信息安全研究所设备管理系统

最新net基于bs的图书销售管理系统

java药品销售系统

java简单小游戏设计

jsp基于web的旅游网站建设

android库存管理

php淘宝店主交易管理系统

net频点播系统

pb大型机房学生上机管理系统

jsp基于bs结构的工厂设备管理系统的设计与开发

web的入侵防御系统

最新php基于bbs的bbs系统设计(structmy)好

asp教师信息管理系统

net课件发布系统

j2ee在线英语自学系统——课程及自测管理的设计

asp网上二手商品交易管理系统

原创asp.net购物系统

pb小说租阅管理系统

人机接口设备—开关类部件的仿真实现

net校园新闻发布系统

php基于linux的远程管理系统客户端的实现

php在线exam

delphi物质管理系统

vb.net电信人事管理系统设计

android试题库自动组卷系统（android）cym

j2ee学生档案管理

net基于.net的内部邮件系统实现

asp.net学科建设

asp某公司进销存信息管理系统

java企业投资价值分析系统

java大随机数生成器算法的研究与实现

jsp某高校工资管理系统

vb在线英语自学系统——课程及自测管理的设计

net某店pos积分管理系统-清除履历表、日志表、月购买额

asp会员管理系统

原创美食网站

vs家庭理财系统

局域网监听系统

vc房屋租凭管理系统

jsp在线二手交易系统

vb.net模拟器件测试平台的设计与开发

原创net考勤系统(net)

java酒店管理信息系统

原创网络求职招聘系统

vf高校教务排课系统

c#rsa密码体制的实现

端口扫描与检测技术的实现

delphi猜数游戏的设计与开发

php宿舍管理系统设计

j2eeac自动组卷系统

原创php网络购物

android物质管理系统

php实验室设备管理系统

asp求职招聘网站设计

androidsc结构服装专卖店

net电子购物商城系统

java自动排课系统

java职员信息管理系统

vb书店辅助进书系统

android教师管理系统

jsp基于bs模式的中小企业人事管理系统

vc物质管理系统

最新简易网络存储系统

android并行接口器件功能演示的可视化设计学位

原创基于des加密算法的word加密插件的实现

net频点播系统

asp.net网络旅游信息系统

原创asp计算机组成原理教学网站

jsp车辆调度管理系统

asp.net基于bs的工艺品展示系统

基于纠错码的容错技术的研究——x码

asp电子商务系统

pb原创库存管理系统可执行程序

c#企业往来账务管理系统

vc超市售货管理系统

原创net网上图书订阅系统的设计

android人事管理系统

原创php在线学习系统

vf桌面日历系统

java商业汇票(支票管理)

asp聊天室

java计科教务管理系统

vb.net物业管理系统

asp公共课平时成绩查询系统asp

最新asp会员管理系统

vc书店管理系统

win平台下的pe文件病毒的研究及实现

j2ee电子邮件客户端软件

asp.net基于asp.net的学生信息管理系统

vf企业人事工资管理系统

vbrsa密码体制的实现

java基于bs方式的即时通讯软件

vf煤气站管理系统dpac

pb多媒体教学控制系统-网络通讯平台的设计

delphi酒店管理系统

jsp基于bs结构的工厂设备管理系统的设计与开发

jsp企业人力资源管理系统的设计

java课程设计医药管理系统（java)应要求源文件代码打包上传

j2ee实验室仪器管理系统

pb网吧管理系统

pb车队综合业务管理系统

最新php网络商城

c#大随机数生成器算法的研究与实现

asp基于bs结构的二手交易系统

javad的网络三维技术

最新net考勤系统(net)

jsp基于web的信息处理系统

net小型门户网自助建站系统

社区论坛

asp公交查询系统

java文档资料管理系统

php红旗汽车修理厂物资流通管理系统

校园网络工程综合布线方案

vc高校缴费系统

php格式化系统——前台

原创asp网上选课系统

最新asp校园学生信息在线管理系统

android基于特征的入侵检测系统

vb人事管理系统

vb.net图书管理系统

java简易web服务器研究

jsp基于jsp学生成绩管理系统软件的开发

net模块化动态电子商务网站的开发

delphi中大迅通合同统计系统

linux下的简单网络管理控制系统的设计与开发

vf航空售票模拟系统

vb通用销售管理系统

c#教学信息管理系统毕业

vc企业投资价值分析系统

j2ee基于bs方式的即时通讯软件

asp.net科研信息管理系统

vb.net软件项目开发管理系统vb.net

android可视化图像处理系统

c#高校题库管理系统附原代码程序万字

net基于.net电子相册的开发

pb商品配送中心库存仿真软件设计

android成本费用计算系统

asp.net旅游信息管理系统

j2ee宿舍管理系统

vb.net气象信息服务系统

net基于tcp协议的简单即时通信软件

原创vb职员信息管理系统

php小型企业网上订单系统

android人事管理

vb.net汽车销售系统

如何把图片做很小上面的字体还很清晰

安装aspjpeg组件，可以自动生成缩略图:

/************

附aspjpeg组件的用法

*************/

aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详

细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。

这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括：

'图片缩略

'图片水印

'安全码技术

'图片切割

'图片合并

'数据库支持

'更多不常用的方法介绍

'以及相关的一些实用技术

aspjpeg唯一点不足的就是输出方式比较单一。在这里，我们主要谈将图片处理保存后再调用的这种输出方法。

学过vb或者.net的同志肯定一看就明白了。

一、图片缩略

Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件

Path = Server.MapPath("images") "\clock.jpg" '待处理图片路径

Jpeg.Open Path 打开图片

'高与宽为原图片的1/2

Jpeg.Width = Jpeg.OriginalWidth / 2

Jpeg.Height = Jpeg.OriginalHeight / 2

'保存图片

Jpeg.Save Server.MapPath("images") "\clock_small.jpg"

IMG SRC="images/clock_small.jpg" '查看处理的图片

二、图片水印

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Jpeg.Open Server.MapPath("images/dodge_viper.jpg")

'开始写文字

Jpeg.Canvas.Font.Color = 000000' red '颜色

Jpeg.Canvas.Font.Family = "Courier New" '字体

Jpeg.Canvas.Font.Bold = True '是否加粗

Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."

'打印坐标x 打印坐标y 需要打印的字符

'以下是对图片进行边框处理

Jpeg.Canvas.Pen.Color = H000000' black '颜色

Jpeg.Canvas.Pen.Width = 2 '画笔宽度

Jpeg.Canvas.Brush.Solid = False '是否加粗处理

Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height

'起始X坐标起始Y坐标输入长度输入高度

Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") '保存

三、安全码

安全码的道理和加水印差不多，很多朋友问我要具体的代码技术，在这里我就写出来和大家分享.

'生成安全码的函数

function make_randomize(max_len,w_n) max_len '生成长度，w_n：0 可能包含字母，1：只为数字

randomize

for intcounter=1 to max_len

whatnext=int((1-0+1)*rnd+w_n)

if whatnext=0 then

upper=122

lower=97

else

upper=57

lower=48

end if

strnewpass=strnewpass chr(int((upper-lower+1)*rnd)+lower)

make_randomize=strnewpass

end function

'生成安全码的图片。当然你要预先准备一张背景图

%random_num=make_randomize(4,1) '生成4位数字的安全码

session("random_num")=random_num '为什么调用session，没有session的安全码是完全没有意义的。

Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件

Jpeg.Open Server.MapPath("infos/random_pic/random_index.gif") '打开准备的图片

Jpeg.Canvas.Font.Color = H006699

Jpeg.Canvas.Font.Family = "Arial Black"

Jpeg.Canvas.Font.Bold = false

Jpeg.Canvas.PrintText 0, -2, random_num

jpeg.save Server.MapPath("infos/random_pic/random_index.bmp") '保存

% img src="infos/random_pic/random_index.bmp" border="0" align="absmiddle"

四、图片切割

一直以来，对aspjpeg不了解的人以为是无法用它来进行切割的。

其实有这样的一个方法的

crop x1,y1,x2,y2

切割长方型左上角x坐标，y坐标右下角x坐标 y坐标

下面我就做一个演示

Set Jpeg = Server.CreateObject("Persits.Jpeg")

jpeg.open server.MapPath("/pic/1.gif")

jpeg.width=70

Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth

jpeg.crop 0,0,70,52 '开始切割其实是把超过52象素的下部分去掉

jpeg.save server.MapPath("/temp_pic/small_1.gif") '保存

五、图片合并

我们这里是要把logo图片加到dodge_viper.jpg图片上去

其实，图片合并的方法也可以用来动态打水印

Set Photo = Server.CreateObject("Persits.Jpeg")

PhotoPath = Server.MapPath("images") "\dodge_viper.jpg"

Photo.Open PhotoPath

Set Logo = Server.CreateObject("Persits.Jpeg")

LogoPath = Server.MapPath("images") "\clock.jpg"

Logo.Open LogoPath

Logo.Width = 70

Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth

Photo.DrawImage 0, 0, Logo

Photo.SendBinary 这里用了sendBinary的输出方法。当然，你也可以先保存更改后的dodge_viper.jpg，再输入也可以。我个人不大喜欢用sendBinary方法，在网速慢的时候容易出错。在速度方面也不怎样。

六、数据库支持

这里不多说了。其实就是Binary方法，大家知道图片存进数据库只能存为二进制的文件的。所以代码就懒的写了。

七、更多方法介绍

Canvas.Line(Left, Top, Right, Bottom)

画一条直线

Canvas.Ellipse(Left, Top, Right, Bottom)

画出一个椭圆

Canvas.Circle(X, Y, Radius)

画出一个圆

Canvas.Bar(Left, Top, Right, Bottom)

画出一个长方形，上面有代码介绍了

Canvas.Font.ShadowColor

文字阴影颜色

Canvas.Font.ShadowXOffset As Long

阴影X坐标设定

Canvas.Font.ShadowYOffset As Long

Y坐标设定

Canvas.Font.BkMode As String

文字背景

通过截图或拍照将企业文件外发出去，如何管理？

企业电脑可安装专业的防泄密软件，针对需要外发的文件进行加密，并设置外发文件的最大打开次数最长查看天数避免二次泄密，可禁止截屏，并添加屏幕水印防止恶意拍摄

1. 透明加解密

系统根据管理策略对相应文件进行加密，用户访问需要连接到服务器，按权限访问，越权访问会受限，通过共享、离线和外发管理可以实现更多的访问控制。

2. 泄密控制

对打开加密文档的应用程序进行打印、内存窃取、拖拽和剪贴板等操作管控，用户不能主动或被动地泄漏机密数据。

3. 审批管理

支持共享、离线和外发文档，管理员可以按照实际工作需求，配置是否对这些操作进行强制审批。用户在执行加密文档的共享、离线和外发等操作时，将视管理员的权限许可，可能需要经过审批管理员审批。

4. 离线文档管理

对于员工外出无法接入网络的情况可采用系统的离线管理功能。通过此功能授权指定用户可以在一定时间内不接入网络仍可轻松访问加密数据，而该用户相应的安全策略仍然生效，相应数据仍然受控，文档权限也与联网使用一样。

5. 外发文档管理

本功能主要是解决数据二次泄密的威胁，目的是让发出的文档仍然受控。通过此功能对需要发出的文件进行审批和授权后，使用者不必安装加密客户端即可轻松访问受控文件，且可对文件的操作权限及生命周期予以管控。

6. 审计管理

对加密文档的常规操作，进行详细且有效的审计。对离线用户，联网后会自动上传相关日志到服务器。

7. 自我保护

通过在操作系统的驱动层对系统自身进行自我保护，保障客户端不被非法破坏，并且始终运行在安全可信状态。即使客户端被意外破坏，客户端计算机里的加密文档也不会丢失或泄漏。

如何在VB中保存图片

VB6.0可使用SavePicture 语句来保存窗体或图像框中经修改的图片。

1）SavePicture 语句，从对象或控件（如果有一个与其相关）的 Picture 或 Image 属性中将图形保存到文件中。

说明：无论在设计时还是运行时图形从文件加载到对象的 Picture

属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是 GIF 或 JPEG 文件，则将保存为位图文件。

2）AutoRedraw 属性，返回或设置从图形方法到持久图形的输出。

该属性为True，可使 Form 对象或 PictureBox

控件的自动重绘有效。图形和文本输出到屏幕，并存储在内存的图象中。该对象不接受绘制事件，必要时，用存储在内存中的图象进行重绘。

以下代码保存窗体装载并进行文字修饰的图片：

Option Explicit

Private Sub Command1_Click()

SavePicture Image, App.Path "\TEST" ' 将图片保存到文件。

End Sub

Private Sub Form_Click()

FontSize = 24

Print " 将图片保存到文件"

End Sub

Private Sub Form_Load()

Me.AutoRedraw = True

End Sub

3）若要保存为JPG图片需要采取使用API函数实现。参考以下步骤和代码：

a.在图片框加载需要添加文字水印的图片。

b.使用如下代码实现添加文字到图片框。

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

c.将以下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

d.使用以下代码实现将加好文字水印图片保存为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

C#如何给PDF文件添加水印

PDF水印分为两种：文本水印和图片水印。文本水印一般被用在商业领域，提醒读者该文档是受版权保护的，其他人不能抄袭或者免费使用。除了这个特征，水印还可以用来标记这个文档的一些基本状态信息，例如是草稿状态还是最终版本？图片水印是美化PDF文件的一个很好的选择，它可以用多彩的、独特的图片来作为PDF文件的背景。那么，怎样用编程的方式给PDF文件添加水印呢？有很多种实现方法，其中一种最快最容易的办法也许是用第三方软件，例如Spire.PDF。本文会阐述怎样用免费的第三方软件Spire.PDF来给PDF文件添加文本水印和图片水印。

免费版Spire.PDF软件介绍

免费版Spire.PDF软件是一款免费的独立的PDF控件，它提供给编程者一系列丰富的PDF功能，例如读，写，新建，编辑，操作和通过C#或VB.NET转化PDF文件等。请注意，免费版仅支持10页的PDF文件和三页的转换功能。

如何得到？

首先，请从E-iceblue website网站上下载并安装Spire.PDF。安装完成后，你就可以利用“SampleCenter”和界面帮助快速开始了，其中有很多代码片段和详细的应用程序功能介绍。

下面就列举一些怎样给PDF文件添加图片水印和文本水印的代码片段。我把它分为两部分。一部分是图片水印，另一部分是文本水印。

第一部分：添加图片水印

首先，准备一张你想设置为PDF文件水印的图片。其次，我们只需要调用Image.FromFile(stringfilename)方法来加载图片，非常简单、方便。然后，设置PDF图片背景。

代码如下：

步骤1：创建一个新的PDF实例。然后导入PDF文件

PdfDocument pdf = new PdfDocument();

pdf.LoadFromFile("sample.pdf");

步骤2：获取PDF文件的第一页

PdfPageBase page = pdf.Pages[0];

步骤3：导入图片并把它设置为PDF文件的背景

Image img = Image.FromFile("img.jpg");

page.BackgroundImage = img;

步骤4：保存文件为PDF格式，命名为"ImageWaterMark.pdf"

pdf.SaveToFile("ImageWaterMark.pdf");

添加了图片水印的效果图如下：

图片 1: 图片水印

第二部分：添加文本水印

和添加图片水印不同的是，添加文本水印更为复杂。为了最好的匹配PDF页面，我们需要在PDF中制作出水印文本，然后设置文本的字体，颜色，位置和文本格式。以上两种功能均可以通过调用这种方法来快速实现：DrawString(strings, PdfFontBase font, PdfBrush brush, float x, float y, PdfStringFormat format).下面是代码片段：

步骤1：创建一个新的PDF实例。然后导入PDF文件。

PdfDocument pdf= new PdfDocument();

pdf.LoadFromFile("sample.pdf");

步骤2：获取PDF文件的第一页

PdfPageBase page = pdf.Pages[0];

步骤3：添加文本水印到文件的第一页，设置文本格式

PdfTilingBrush brush = new PdfTilingBrush(new SizeF(page.Canvas.ClientSize.Width / 2, page.Canvas.ClientSize.Height / 3));

brush.Graphics.SetTransparency(0.3f);

brush.Graphics.Save();

brush.Graphics.TranslateTransform(brush.Size.Width / 2, brush.Size.Height / 2);

brush.Graphics.RotateTransform(-45);

brush.Graphics.DrawString("Draft Version", new PdfFont(PdfFontFamily.Helvetica, 24), PdfBrushes.Blue,0, 0, new PdfStringFormat(PdfTextAlignment.Center));

brush.Graphics.Restore();

brush.Graphics.SetTransparency(1);

page.Canvas.DrawRectangle(brush, new RectangleF(new PointF(0, 0), page.Canvas.ClientSize));

步骤4：保存文件为PDF格式，命名为"TextWaterMark.pdf"

pdf.SaveToFile("TextWaterMark.pdf");

添加了文本水印的效果图如下：

图片 2: 文本水印

总结

虽然有很多文章介绍了不用第三方软件就可以用编程的方式来添加水印的方法，但这里我仍然使用了免费版的Spire.PDF软件，因为除了水印功能以外，我还需要使用新建，转换，打印和保护PDF等功能，而这个软件全部支持这些功能。它工作的很好，并且大大的提高了我的工作效率。如果你也感兴趣的话，不妨试试它。

asp jpeg问题

aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。

这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括：

图片缩略

图片水印

安全码技术

图片切割

图片合并

数据库支持

更多不常用的方法介绍

以及相关的一些实用技术

aspjpeg唯一点不足的就是输出方式比较单一。在这里，我们主要谈将图片处理保存后再调用的这种输出方法。另外，本人比较懒，所以有些代码仍然引用于原文档，不懂的地方偶会加以解释！

学过vb或者.net的同志肯定一看就明白了。刷子来着。呵呵。

一、图片缩略

Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件

Path = Server.MapPath("images") "\clock.jpg" 待处理图片路径

Jpeg.Open Path 打开图片

高与宽为原图片的1/2

Jpeg.Width = Jpeg.OriginalWidth / 2

Jpeg.Height = Jpeg.OriginalHeight / 2

保存图片

Jpeg.Save Server.MapPath("images") "\clock_small.jpg"

IMG SRC="images/clock_small.jpg" 查看处理的图片

二、图片水印

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Jpeg.Open Server.MapPath("images/dodge_viper.jpg")

开始写文字

Jpeg.Canvas.Font.Color = 000000' red 颜色

Jpeg.Canvas.Font.Family = "Courier New" 字体

Jpeg.Canvas.Font.Bold = True 是否加粗

Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."

打印坐标x 打印坐标y 需要打印的字符

以下是对图片进行边框处理

Jpeg.Canvas.Pen.Color = H000000' black 颜色

Jpeg.Canvas.Pen.Width = 2 画笔宽度

Jpeg.Canvas.Brush.Solid = False 是否加粗处理

Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height

起始X坐标起始Y坐标输入长度输入高度

Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") 保存

三、安全码

安全玛的道理和加水印差不多，很多朋友问我要具体的代码技术，在这里我就写出来和大家分享，一般人我还不告诉他。呵呵。

生成安全码的函数

function make_randomize(max_len,w_n) max_len 生成长度，w_n：0 可能包含字母，1：只为数字

randomize

for intcounter=1 to max_len

whatnext=int((1-0+1)*rnd+w_n)

if whatnext=0 then

upper=122

lower=97

else

upper=57

lower=48

end if

strnewpass=strnewpass chr(int((upper-lower+1)*rnd)+lower)

make_randomize=strnewpass

end function

生成安全码的图片。当然你要预先准备一张背景图哦

%random_num=make_randomize(4,1) 生成4位数字的安全码

session("random_num")=random_num 为什么调用session，没有session的安全码是完全没有意义的。呵呵

Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件

Jpeg.Open Server.MapPath("infos/random_pic/random_index.gif") 打开准备的图片

Jpeg.Canvas.Font.Color = H006699

Jpeg.Canvas.Font.Family = "Arial Black"

Jpeg.Canvas.Font.Bold = false

Jpeg.Canvas.PrintText 0, -2, random_num

jpeg.save Server.MapPath("infos/random_pic/random_index.bmp") 保存

% img src="infos/random_pic/random_index.bmp" border="0" align="absmiddle"

自己做做看。呵呵。

四、图片切割

一直以来，对aspjpeg不了解的人以为是无法用它来进行切割的。

其实有这样的一个方法的

crop x1,y1,x2,y2

切割长方型左上角x坐标，y坐标右下角x坐标 y坐标

下面我就做一个演示哈

Set Jpeg = Server.CreateObject("Persits.Jpeg")

jpeg.open server.MapPath("/pic/1.gif")

jpeg.width=70

Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth

jpeg.crop 0,0,70,52 开始切割其实是把超过52象素的下部分去掉

jpeg.save server.MapPath("/temp_pic/small_1.gif") 保存

怎么样，很简单吧

五、图片合并

我们这里是要把logo图片加到dodge_viper.jpg图片上去

其实，图片合并的方法也可以用来动态打水印哦

Set Photo = Server.CreateObject("Persits.Jpeg")

PhotoPath = Server.MapPath("images") "\dodge_viper.jpg"

Photo.Open PhotoPath

Set Logo = Server.CreateObject("Persits.Jpeg")

LogoPath = Server.MapPath("images") "\clock.jpg"

Logo.Open LogoPath

Logo.Width = 70

Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth

Photo.DrawImage 0, 0, Logo

Photo.SendBinary 这里用了sendBinary的输出方法。当然，你也可以先保存更改后的dodge_viper.jpg，再输入也可以。我个人不大喜欢用sendBinary方法，在网速慢的时候容易出错。在速度方面也不怎样。呵呵。

六、数据库支持

这里不多说了。其实就是Binary方法，大家知道图片存进数据库只能存为二进制的文件的。所以代码就懒的写了。

七、更多方法介绍

Canvas.Line(Left, Top, Right, Bottom)

画一条直线

Canvas.Ellipse(Left, Top, Right, Bottom)

画出一个椭圆

Canvas.Circle(X, Y, Radius)

画出一个圆

Canvas.Bar(Left, Top, Right, Bottom)

画出一个长方形，上面有代码介绍了

Canvas.Font.ShadowColor

文字阴影颜色

Canvas.Font.ShadowXOffset As Long

阴影X坐标设定

Canvas.Font.ShadowYOffset As Long

Y坐标设定

Canvas.Font.BkMode As String

文字背景

本文作者：雨浪

本处为转载，版权归原作者所有

本文题目：vb.net图片水印 vb水印怎么弄在中间
当前URL：http://ybzwz.com/article/dossosd.html

vb.net图片水印 vb水印怎么弄在中间

基于java jsp asp php vb安卓系统毕业设计与实现论文源码下载？

如何把图片做很小上面的字体还很清晰

通过截图或拍照将企业文件外发出去，如何管理？

如何在VB中保存图片

C#如何给PDF文件添加水印

asp jpeg问题

其他资讯