Private Sub CommandButton1_Click()
EmptyClipboard作者: donod 時間: 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作者: donod 時間: 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
