'设置剪粘板的图片
Dim dd As Row = Tables("材料选择_table1").Current
Dim idx As String
Dim fl As String
If ClipBoard.ContainsImage And dd IsNot Nothing Then
Dim dfs As List(of DataRow) = DataTables("材料图片表").sqlSelect("名称 like '" & dd("autoid") & "%' and MainID= '" & dd("autoid") & "' ")
If dfs.Count > 0 Then
Dim x1 As Integer = dfs.Count+1
idx = dd("autoid") & Format(x1,"000")
Else
idx = dd("autoid") & Format(1,"000")
End If
Dim img As Image
img = ClipBoard.GetImage()
fl = "F:\data$\project\copyimg\" & idx & ".jpg"
img.Save(fl)
Dim n As Integer = DataTables("材料图片表").SQLCompute("max(AutoID)")+1
Dim r As Row = Tables("材料表.材料图片表").AddNew()
r("AutoID") = n
r("MainID") = dd("autoid")
r("名称") = idx '写入文件名
r("照片Ext") = ".jpg" '写入文件后缀
r.Save '必须先保存
r.DataRow.SQLInsertFile("照片",fl) '插入文件
r.save
' r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
'End If
End If
1、上面代码 生成的图片，分辨率太小了。
2、还有，怎么，复制多张照片，然后，保存呢，然后存至二进制行；
3、上面的代码 ，没有获取：剪贴版，图片的后缀，现在发现，导入后，另一个软件报错。我把后缀改成：.PNG ，就好了。（因为，现在的照片复制 的是PNG后缀）
[此贴子已经被作者于2018/7/14 14:31:03编辑过]
加好友 
发短信
Post By：2018/7/14 13:22:00 [只看该作者]
