以文本方式查看主题 - 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 |