Foxtable(狐表)用户栏目专家坐堂 → 如何在窗口加水印


  共有291人关注过本帖树形打印复制链接

主题:如何在窗口加水印

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107703 积分:547842 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/30 20:42:00 [显示全部帖子]

加不了

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107703 积分:547842 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/31 8:39:00 [显示全部帖子]

不可以的

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107703 积分:547842 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/31 8:54:00 [显示全部帖子]

使用Photoshop等图片处理软件给图片加上水印,再添加到图片管理器中

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107703 积分:547842 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/31 9:25:00 [显示全部帖子]

那就不能使用内置的图片管理器了,自己及设计窗口,使用图片管理器控件,然后添加一个按钮用来上传文件,上传前先使用上面的代码给图片添加文字,保存后再上传:http://www.foxtable.com/webhelp/topics/2699.htmhttp://www.foxtable.com/webhelp/topics/1410.htm

Dim dlg As New OpenFileDialog
Dim
 piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg
.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If
 dlg.ShowDialog = DialogResult.OK Then
'主图
Dim imgback As image = getimage(dlg.FileName) '主图
  ....
图片添加文字的其代码
bmp.Save("d:\c.jpg") '保存到一个指定的目录
bmp.dispose '释放资源'
Dim ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"
If 
ftp1.Upload("d:\c.jpg","\c.jpg") = True Then
piv.AddFile("c.jpg")
    
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End
 If

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107703 积分:547842 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/31 10:44:00 [显示全部帖子]

比如红色

g.DrawString(msg, fnt, Brushes.Red, 100, 100)


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107703 积分:547842 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/31 13:35:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=142398

 回到顶部