Dzwebs.Net

撰写电脑技术杂文十余年

清除剪贴板的内容

Admin | 2012-1-23 10:02:39 | 被阅次数 | 12790

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  当我们复制了某些内容之后,会在剪贴板里面留下内容。

  如果不小心,就会把内容给粘贴出来,造成资料混乱不好管理。

  剪贴板是内存中一块临时存储区,用来存放各应用软件剪切或复制的信息。如果当时剪贴板中存放的是一幅图像或一段相当篇幅的文本,则占用了相当多的内存,这就可能导致内存不足,所以只要消除剪贴板中的图像或文本,就可能缓解当时内存不足的问题。

  下面,就教给你一种方法,清理、删除剪贴板中的内容。

  方法如下:这是最简单的办法了:

  “开始”→“运行”,打开运行对话框,在里面输入如下内容:

  clipbrd 

  并按下回车键

  这样就会打开“剪贴薄查看器”,然后,在此窗口中,找到菜单“编辑”→“删除”。

  这样,剪贴板中的内容就被清除了。

  知识扩展:

  如果你经常使用VBA,可通过如下清除剪贴板的内容

  '声明API函数
  Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  '定义鼠标消息
  Private Const WM_LBUTTONDOWN As Long = &H201&
  Private Const WM_LBUTTONUP As Long = &H202&

  Sub ClearClipBoard()

      Dim hWord, hClipBoard, hWindow As Long 'Word主窗口、剪贴板、临时窗口句柄
      Dim nXY As Long '剪贴板“全部清空”按钮的坐标
      Dim strCaption As String    'Word主窗口的标题

      Application.ShowClipboard  '打开剪贴板
      CommandBars("Task Pane").Visible = False '关闭任务窗格
   
  '先获取Word主窗口的标题
      If Documents.Count = 0 Then   '没有文档打开
          strCaption = "Microsoft Word"
     Else
          strCaption = ActiveWindow.Caption & " - Microsoft Word"
      End If
   
      hWord = FindWindowEx(0&, 0&, "OpusApp", strCaption)   '获取Word主窗口句柄
      hWindow = FindWindowEx(hWord, 0&, "MsoWorkPane", "MsoWorkPane") '获取任务窗格窗口句柄
      hClipBoard = FindWindowEx(hWindow, 0&, "bosa_sdm_Microsoft Office Word 11.0", "Collect and Paste 2.0") '获取剪贴板窗口句柄
   
      If hClipBoard = 0 Then  '未知原因,没有找到剪贴板的窗口句柄
          MsgBox "剪贴板清空失败!"
          Exit Sub
     End If
   
      nXY = 100 + 10 * 65536   '(x,y)=(100,10),取(92,6)~(168,27)均可
   
      Call PostMessage(hClipBoard, WM_LBUTTONDOWN, 0&, nXY) '模拟鼠标按下
      Call PostMessage(hClipBoard, WM_LBUTTONUP, 0&, nXY) '模拟鼠标弹起
   
  End Sub

  如果你会使用VBS,就使用如下代码也是可行的。

  dim s
  set s=createobject("wscript.shell")
  s.run "c:\windows\system32\clipbrd.exe"
  wscript.sleep 1000
  s.appactivate "剪贴簿查看器"
  wscript.sleep 100
  s.sendkeys "(%e)dy"
  wscript.sleep 50
  s.sendkeys "(%{F4})"
  wscript.quit


该杂文来自: 基础知识杂文

上一篇:关闭IE清除临时文件夹

下一篇:给文件文件添加行号、程序代码添加行号的批处理代

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计