Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共13 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:如何在窗口加水印

1楼
a2704g 发表于:2024/5/30 19:08:00
如何在窗口加水印
2楼
有点蓝 发表于:2024/5/30 20:42:00
加不了
3楼
a2704g 发表于:2024/5/31 8:37:00
ftp图片预览或者打开可以打水印吗
4楼
有点蓝 发表于:2024/5/31 8:39:00
不可以的
5楼
a2704g 发表于:2024/5/31 8:41:00
蓝版,我们现在遇到的问题是,图片担心别人翻拍泄漏,所以初步是想通过水印解决,有其他解决方案吗
6楼
有点蓝 发表于:2024/5/31 8:54:00
使用Photoshop等图片处理软件给图片加上水印,再添加到图片管理器中
7楼
a2704g 发表于:2024/5/31 9:09:00
'主图
Dim imgback As image = getimage("d:\1796308622301859841.jpg") '主图
Dim bmp As New bitmap(imgback.width, imgback.height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height) '绘制主图'


'文字
Dim fnt As New Font("宋体", 16)
Dim msg As String = Vars("帐号")
g.DrawString(msg, fnt, Brushes.Black, 100, 100)
g.DrawString(msg, fnt, Brushes.Black, 200, 200)
g.DrawString(msg, fnt, Brushes.Black, 300, 300)

'保存图片
bmp.Save("d:\c.jpg") '保存
bmp.dispose '释放资源'
MessageBox.Show("打印成功")
8楼
a2704g 发表于:2024/5/31 9:09:00
初步想法通过绘制,但是不知道怎样实施
9楼
有点蓝 发表于: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
10楼
a2704g 发表于:2024/5/31 10:32:00
Dim fnt As New Fon 怎样设置字体颜色
共13 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.