如题所述
关闭之前,清空剪贴板内容就可以了。
清空剪贴板的相关代码如下:
Option Explicit
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
-----------------------
Function ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Function
清空剪贴板的相关代码如下:
Option Explicit
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
-----------------------
Function ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Function
温馨提示:答案为网友推荐,仅供参考