移动端签字 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Case "shujushenhe.htm","qzb.htm" '数据审核

Functions.Execute("shujushenhe", e)

在请教一下老师，签字哪儿高度有点小，我调试应该是根据不同设备自动调整高度的，但是js函数里面没找到在哪儿调整，有点像flashcanvas里面1086行位置，但是把高度调整为120%无效果

此主题相关图片如下：1111.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:flashcanvas.txt

下载信息 [文件大小：下载次数： ]
点击浏览该文件:jsignature.min.txt

[此贴子已经被作者于2023/12/1 11:35:33编辑过]

在请教老师，不是用的二进制列，签名数据是存的转码后的字符串，在生成报时，先把字符串转码为图片，在引用图片，word报表中，怎么引用签名的图片。

比如这样转码后图片是正常的，怎么生成报表：

Dim tm As String = ProjectPath & "Attachments\测试报表.doc" '指定模板文件

Dim fl1 As String = ProjectPath & "Reports\测试报表.doc" '指定目标文件

Dim fl2 As String = ProjectPath & "Reports\测试报表.pdf" '指定目标PDF文件

Dim wrt As New WordReport(Tables("审核示例表"), tm, fl1) '定义一个WordReport

Dim r As Row = Tables("审核示例表").Current

Dim s1 As String = r("签字数据")

Dim s2 As String

s2 = s1.SubString(17)

Dim bs As Byte() = Convert.FromBase64String(s2)

Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)

Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)

'Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")

'pbx.Image = bmp

wrt.Replace("[签字照片]", 这个位置该怎么引用) '用代码替换制单人

wrt.BuildOne(r)

wrt.SaveToPdf(fl2) '保存为PDF适用

wrt.Quit() '退出

Dim Proc As New Process '打开PDF文件适用

Proc.File = fl2 'PDF文件适用

Proc.Start() 'PDF文件适用

[此贴子已经被作者于2023/12/1 13:36:04编辑过]

必须保存为本机图片，才能使用

请老师看看我那个代码该怎么写保存到本地？保存到本地后怎么引用，因为涉及多人的签字，还不能重复，谢谢！

[此贴子已经被作者于2023/12/1 13:52:26编辑过]

bmp.save("d:\123.jpg")

主题：移动端签字