Dim pbx As WinForm.PictureBox = Forms("选择产品").Controls("PictureBox1")
If pbx.Image IsNot Nothing Then
Dim path As String =ProjectPath & "tempImg"
If FileSys.DirectoryExists(path) = False Then '
FileSys.CreateDirectory(path)
End If
Dim fl As String = path & "\JCCP_" & .Current("sys_ID") & ".jpg"
If FileSys.FileExists(fl) Then
FileSys.DeleteFile(fl)
End If
pbx.Image.save(fl)
End If
去掉 pbx.Image.save(fl) 代码正常
[此贴子已经被作者于2020/8/19 14:10:38编辑过]