以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教受控文件章的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135807)
--  作者：happyft
--  发布时间：2019/6/3 17:06:00
--  请教受控文件章的问题

图片点击可在新窗口打开查看此主题相关图片如下：受控文件.png
图片点击可在新窗口打开查看

如上图,要示pdf图标发行时在上面加一个受控文件单,在ps中做了一个没有填写日期及版本号的文件另存为jpg文件了,想问下我在ft中
用一个窗口打开这个图片后,窗口中有两个控件,版本号 及日期 ,能否在填写日期及版本号后将其值显示在原来那个jpg文件对应位置后
又可以另存为一个新的加了日期,版本号的图片来使用?

谢谢!
--  作者：有点甜
--  发布时间：2019/6/3 18:47:00
--  

方法一：可以截图，如

 

Dim trv = e.Form.Controls("picturebox1").BaseControl
Dim point As Point = e.Form.panel.PointToScreen(trv.Bounds.Location)
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(trv.width, trv.height) \'截取的大小
Dim bit As New Bitmap(s.Width, s.Height , myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) \'截取的开始位置,坐标(100, 200)
bit.save("d:\\test.jpg")
memoryGraphics.dispose
myGraphics.dispose
bit.dispose

Dim Proc As New Process \'定义一个新的Process
Proc.File = "d:\\test.jpg"   \'指定要打开的文件
Proc.Start() \'打开文件
--  作者：有点甜
--  发布时间：2019/6/3 18:54:00
--  

方法二：直接绘制进去

 

Dim imgback As image = e.Form.controls("picturebox1").image
Dim bmp As new bitmap(imgback.width, imgback.height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height)

Dim lbl1 As WinForm.Label = e.Form.controls("label1")
Dim msg As String = lbl1.Text
Dim fnt As font = lbl1.Font
g.DrawString(msg,fnt,New SolidBrush(lbl1.ForeColor), lbl1.Left, lbl1.Top)

bmp.save("d:\\test.jpg")
bmp.dispose

Dim Proc As New Process \'定义一个新的Process
Proc.File = "d:\\test.jpg"   \'指定要打开的文件
Proc.Start() \'打开文件