求段：清空剪切板源码

尘缘一生 · 发表于 2020-4-18 16:31

如题，不知谁有吗？

chenbj0 · 发表于 2020-4-22 14:00

(setq Clip_board (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipboardData))
(Vlax-Invoke Clip_board 'clearData)

669423907 · 发表于 2020-4-18 17:26

(N粘帖板 "")
;向系统剪粘帖板中写入文字
(defun N粘帖板(STR / HTML RESULT)
(and (= (type STR) 'STR)
(setq HTML (vlax-create-object "htmlfile"))
(setq RESULT(vlax-invoke(vlax-get(vlax-get HTML 'PARENTWINDOW)'CLIPBOARDDATA)'SETDATA"Text"STR))
(vlax-release-object HTML)) )

尘缘一生 · 发表于 2020-4-18 17:29

669423907 发表于 2020-4-18 17:26
(N粘帖板 "")
;向系统剪粘帖板中写入文字
(defun N粘帖板(STR / HTML RESULT)

看到过这段，我想，不管剪切板有什么，想清空的代码，这个修改下可以？

669423907 · 发表于 2020-4-18 17:31

可以的，你试试

crtrccrt · 发表于 2020-4-21 09:58

清空剪切板，往剪切板放置为空的文字
，是两个概念。

尘缘一生 · 发表于 2020-6-9 21:03

chenbj0 发表于 2020-4-22 14:00
(setq Clip_board (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'Clipbo ...

这段代码才是正确的做法。

账号		自动登录	找回密码
密码			注册

[提问] 求段：清空剪切板源码

点评

点评

点评

[提问] 求段：清空剪切板 源码

点评

点评

点评

[提问] 求段：清空剪切板源码