海思芯片代理:复制和粘贴的代码在VB里怎么写?

来源:百度文库 编辑:中科新闻网 时间:2024/04/27 22:32:19
ClipBoard对象?我不懂......我想把一个按钮具有复制的功能,用什么代码?

谢谢~

复制:
VB.Clipboard.Clear
VB.Clipboard.SetText text1.Text
粘贴:
text1.Text=VB.Clipboard.getText
复制对的,粘贴好象用不起来....删除和剪切的代码可以告诉我吗?

Text1.Text = VB.Clipboard.GetText为什么这个粘贴的命令不行??

Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub

Private Sub CmdCopy_Click()
'这只是按钮代码的起始而已,按钮名叫做CmdCopy,事件是单击
Clipboard.SetText TxtContent.SelText
'Clipboard指剪贴板;SetText是剪贴板对象的一个方法,用来设置剪贴板的内容;TxtContent是指一个文本框;SelText是文本框的一个属性,指文本框的内容
'翻译过来就是把剪贴板的内容设为文本框的内容,就是复制(因为原内容并没有消失,要实现剪切,在这句后面加一句TxtContent.SelText = "")
End Sub
'代码完毕
Private Sub CmdPaste_Click()
'按钮名叫CmdPaste,事件是单击
TxtContent.SelText = Clipboard.GetText
'TxtContent.SelText参见上文。Clipboard仍然指剪贴板,GetText指剪贴板的内容,是一个属性)
'翻译过来就是把文本框的内容设为剪贴板的内容,就是粘贴了
End Sub
'代码完毕

用ClipBoard对象就行了