vb.net复制到粘贴板 vb复制粘贴代码

VB.net 剪切板的操作

复制文件夹不用剪贴板，使用系统文件操作对象就好了

荥阳网站建设公司创新互联建站,荥阳网站设计制作，有大型网站制作公司丰富经验。已为荥阳上千提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱，请找那个售后服务好的荥阳做网站的公司定做！

CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Clipboard.SetDataObject(TextBox1.Text)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)

End Sub

复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当Text1没选中文字时,要使复制按钮Command1不可用

Private Sub Command1_Click()

Clipboard.SetText Text1.SelText

End Sub

Private Sub Command2_Click()

If Len(Clipboard.GetText) Then

Text1.SelText = Clipboard.GetText

End If

End Sub

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Command1.Enabled = Text1.SelLength 0

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Butt Then

Command1.Enabled = Text1.SelLength 0

End If

End Sub

比如Text1的内容为abc，而当前只选中了第一个字符a

那么Text1.text表示文本框的全部内容，即abc

而Text1.SelText表示文本框中当前选中的内容，即a--selText是select text（选中文字）的缩写

例如，把文件"E:\新建文件夹\a.txt"复制到剪贴板

CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"

文章名称：vb.net复制到粘贴板 vb复制粘贴代码
文章地址：http://myzitong.com/article/hepsdp.html