以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何清除或者终止截图后粘贴板 (已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183707)

--  作者:洮沙
--  发布时间:2022/11/14 15:50:00
--  [求助]如何清除或者终止截图后粘贴板 (已解决)
老师,有以下截图代码,第一次截图成功后,第二次截图时选择区域后点击“×”还是能够保存,好像是ClipBoard.GetImage(粘贴板)上内容不为空造成的,麻烦帮忙解决一下,谢谢!
Dim proc As New Process 
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
Dim fl2 As String = ProjectPath & "Reports\\" & Format(Date.Now , "yyyyMMddHHmmss") & CStr (Rand.Next(10000, 99999)) & ".png"
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save(fl2)
Else
    MessageBox.Show("截图失败,请重新截图!", "提示")
    Return 
End If

解决代码:
 ClipBoard.Clear \'清除粘贴板
[此贴子已经被作者于2022/11/14 16:21:06编辑过]

--  作者:有点蓝
--  发布时间:2022/11/14 16:08:00
--  
参考:http://www.foxtable.com/webhelp/topics/2069.htm