請問有沒人知道怎么判斷剪切板為空嗎
如果用以下代碼，當剪切板為空時會提示：dataobject:gettext invalid formatetc structure，請問有沒人還有其他辦法
由于 DataObject 是Form物件的成員，所以你必須先添加一個表單，空表單也行
1. Option Explicit
2. '判斷剪貼板是否為空
3. Function CheckClipboard() As Boolean
4. Dim MyData As DataObject, MyStr As String
5. Set MyData = New DataObject
6. MyData.GetFromClipboard '獲得剪切板內容
7.
8. MyStr = MyData.GetText '賦值給變數
9.
10. If MyStr = "" Then
11. CheckClipboard = False
12. Else
13. CheckClipboard = True
14. End If
15. End Function
16.
17. Sub test()
18. MsgBox CheckClipboard
19. End Sub
以上代碼為一網友提供
uj5u.com熱心網友回復：
Option Explicit
'判斷剪貼板是否為空
Function CheckClipboard() As Boolean
If Clipboard.GetText = "" Then
CheckClipboard = False
Else
CheckClipboard = True
End If
End Function
Private Sub Command1_Click()
MsgBox CheckClipboard
End Sub
Private Sub Command2_Click()
Clipboard.Clear
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/126360.html
標籤：VBA