|
▼若葉マークのPC運転手 さん:
どこで教えていただいたものか不明ですが。
クリップボードの中身を消すなら
Option Explicit
'クリップボードをオープン
Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As _
Long
'クリップボードを空にし、クリップボード内のデータのハンドルを解放
Declare Function EmptyClipboard Lib "User32" () As Long
'クリップボードをクローズ
Declare Function CloseClipboard Lib "User32" () As Long
'クリップボードクリア関数呼び出し
'別にこれを呼び出さなくても直接
'CLR_ClipBoard "" でかまいません
Sub ClipCLR()
CLR_ClipBoard ""
End Sub
Function CLR_ClipBoard(myString As String)
Dim ret As Long
'クリップボードオープン
If OpenClipboard(0&) = 0 Then
GoTo ERR1
End If
'クリップボードクリア
ret = EmptyClipboard()
'クリップボードクローズ
If CloseClipboard() = 0 Then
GoTo ERR2
End If
Exit Function
ERR1:
MsgBox "クリップボードが開けません(エラー)"
Exit Function
ERR2:
MsgBox "クリップボードが閉じれません(エラー)"
Exit Function
End Function
|
|