VB怎么操纵系统剪切板啊?

cooler 2003-05-13 12:26:36
想要实现拷贝文字到系统剪切板,怎么做呢?
...全文
87 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
qbilbo 2003-05-13
  • 打赏
  • 举报
回复
用Clipboard对象

如:
Clipboard.SetText "测试"
就是拷贝“测试”两个字到系统剪切板
enj1224 2003-05-13
  • 打赏
  • 举报
回复
Clipboard对象
cooler 2003-05-13
  • 打赏
  • 举报
回复
问题解决。就是按照 Clipboard.Clear做法。谢谢诸位大侠援手。
Sean918 2003-05-13
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Clipboard.Clear             ''使用前必须先清空
Clipboard.SetText Text1.Text
MsgBox "拷贝"
End Sub
qbilbo 2003-05-13
  • 打赏
  • 举报
回复
Clipboard对象肯定是系统的剪贴板,这点决不会错!

试试这样。
Clipboard.Clear
Clipboard.SetText "测试"
cooler 2003-05-13
  • 打赏
  • 举报
回复
应该不是啊。
我换成写字板什么的都不成功。

我用Clipboard.SetText Text1.Text拷贝后,粘贴到写字板里出现的是其他的内容(真正的系统剪贴板里内容)
CBASE 2003-05-13
  • 打赏
  • 举报
回复
同意lihonggen0(李洪根,用.NET,标准答案来了)意见
qbilbo 2003-05-13
  • 打赏
  • 举报
回复
Clipboard就是系统的剪切板。

有可能是在启动WORD会清空剪切板,你先启动完WORD再试试上面的代码。
cooler 2003-05-13
  • 打赏
  • 举报
回复
谢谢指教。但是这个好像不是系统剪切板啊,而是只是在本程序内部有效的那种。
我按照上述代码,在点击了command1完成拷贝之后,跑到WORD里面粘贴不出来的。
怎么半呢?
lihonggen0 2003-05-13
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Clipboard.SetText Text1.Text
MsgBox "拷贝"
End Sub

Private Sub Command2_Click()
Text2.Text = Clipboard.GetText
MsgBox "粘贴到text2"
End Sub

Private Sub Form_Load()
Text1.Text = "AAA"
Text2.Text = ""
End Sub

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧