返回列表 上一主題 發帖

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

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

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

Private Sub CommandButton1_Click()
EmptyClipboard

本帖最後由 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

這個間中會出現  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

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題