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

https://social.msdn.microsoft.com/Forums/en-US/d997ada3-ea48-44ba-8aa2-f15c49d469c3/vbnet-clipboardsettexttextbox1text-not-working-backgroundworker
--
FROM 106.121.71.*

看不出来和我写的有啥区别啊
【 在 billybear04 (billybear04) 的大作中提到: 】
: 标  题: Re: 为什么vb6在win10里剪贴板操作不好使
: 发信站: 水木社区 (Thu Jun  4 18:39:00 2020), 站内
:
: 【 在 wuuduan (wuuduan) 的大作中提到: 】
: : 以前win7,xp啥的好像没问题啊。
: : 现在用clipboard.settext根本没作用。
: : 但也不报错。
: : ...................
: 好不好使不知道
:
: https://social.msdn.microsoft.com/Forums/en-US/d997ada3-ea48-44ba-8aa2-f15c49d469c3/vbnet-clipboardsettexttextbox1text-not-working-backgroundworker
:
: --
: 谁能想到一头整天游手好闲的青年绿龙，竟然会沉溺于阅读，他几乎什么都看，无论是诙谐的小说还是慷慨激昂的史诗，连晦涩的宗教典籍都能耐着性子看下去。在起居室内，甚至有一张斜面桌供绿龙阅读时使用。...要破解密码盘，不仅要足够的实力来到这，还要熟悉矮人风俗、矮人宗教学和矮人史。而矮人们肯定不会闯入祖先的祭坛，那熟知以上知识的外族人去哪找？斯坦德路此时简直想放声大笑，过往积累的知识，阅读书籍受到的嘲笑，终于有了报偿！
:
:
: ※ 来源:·水木社区 http://newsmth.net·[FROM: 106.121.71.*]
--
FROM 202.98.13.*

vb6不能直接调用API？这个不行，就直接用API完事。
--
FROM 123.115.133.*

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.*