返回列表 上一主題 發帖

[發問] 請問在按鈕之下如何加入清空剪貼簿

donod

帖子
140 
主題
24 
精華
0 
積分
167 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-2-26 
最後登錄
2023-1-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-12-23 19:52 | 只看該作者

[發問] 請問在按鈕之下如何加入清空剪貼簿

本帖最後由 donod 於 2020-12-23 19:54 編輯

Private Sub CommandButton1_Click()
EmptyClipboard
收藏 分享

donod

帖子
140 
主題
24 
精華
0 
積分
167 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-2-26 
最後登錄
2023-1-30 
2#
發表於 2020-12-23 20:15 | 只看該作者
本帖最後由 donod 於 2020-12-23 20:25 編輯

這個會出現  visual basic 400
Dim data As New DataObject

Private Sub CommandButton1_Click()
　Set data = New DataObject
　data.SetText ""
　data.PutInClipboard

TOP

donod

帖子
140 
主題
24 
精華
0 
積分
167 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-2-26 
最後登錄
2023-1-30 
3#
發表於 2020-12-23 21:56 | 只看該作者
這個間中會出現  visual basic 400

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long

Private Sub CommandButton1_Click()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題