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

cooler 2003-05-13 12:26:36
想要实现拷贝文字到系统剪切板,怎么做呢?
...全文
41 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-13 12:26
社区公告
暂无公告