clipboard是什么东西？
原来我用dataobject，有兼容性问题，后来改API

Public Function ClipBoard_SetData(MyString As String)
   Dim hGlobalMemory As LongPtr, lpGlobalMemory As LongPtr
   Dim hClipMemory As LongPtr, X As Long

   ' Allocate moveable global memory.
   '-------------------------------------------
   hGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1)

   ' Lock the block to get a far pointer
   ' to this memory.
   lpGlobalMemory = GlobalLock(hGlobalMemory)

   ' Copy the string to this global memory.
   lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString)

   ' Unlock the memory.
   If GlobalUnlock(hGlobalMemory) <> 0 Then
      MsgBox "Could not unlock memory location.Copy aborted."
      GoTo OutOfHere2
   End If

   ' Open the Clipboard to copy data to.
   If OpenClipboard(0&) = 0 Then
      MsgBox "Could not open the Clipboard.Copy aborted."
      Exit Function
   End If

   ' Clear the Clipboard.
   X = EmptyClipboard()

   ' Copy the data to the Clipboard.
   hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)

OutOfHere2:

   If CloseClipboard() = 0 Then
      MsgBox "Could not close Clipboard."
   End If

   End Function


【 在 wuuduan (wuuduan) 的大作中提到: 】
: 以前win7,xp啥的好像没问题啊。
: 现在用clipboard.settext根本没作用。
: 但也不报错。
: ...................
--
FROM 113.109.24.*