| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何在窗口加水印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192135) |
|
| -- 作者：a2704g -- 发布时间：2024/5/30 19:08:00 -- 如何在窗口加水印 如何在窗口加水印 |
|
| -- 作者：有点蓝 -- 发布时间：2024/5/30 20:42:00 -- 加不了 |
|
| -- 作者：a2704g -- 发布时间：2024/5/31 8:37:00 -- ftp图片预览或者打开可以打水印吗 |
|
| -- 作者：有点蓝 -- 发布时间：2024/5/31 8:39:00 -- 不可以的 |
|
| -- 作者：a2704g -- 发布时间：2024/5/31 8:41:00 -- 蓝版，我们现在遇到的问题是，图片担心别人翻拍泄漏，所以初步是想通过水印解决，有其他解决方案吗 |
|
| -- 作者：有点蓝 -- 发布时间：2024/5/31 8:54:00 -- 使用Photoshop等图片处理软件给图片加上水印，再添加到图片管理器中 |
|
| -- 作者：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("打印成功")
|
|
| -- 作者：a2704g -- 发布时间：2024/5/31 9:09:00 -- 初步想法通过绘制，但是不知道怎样实施 |
|
| -- 作者：有点蓝 -- 发布时间：2024/5/31 9:25:00 -- 那就不能使用内置的图片管理器了，自己及设计窗口，使用图片管理器控件，然后添加一个按钮用来上传文件，上传前先使用上面的代码给图片添加文字，保存后再上传：http://www.foxtable.com/webhelp/topics/2699.htm、http://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
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") End IfMessagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If |
|
| -- 作者：a2704g -- 发布时间：2024/5/31 10:32:00 -- Dim fnt As New Fon 怎样设置字体颜色 |