Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

站在用戶的角度思考問題,與客戶深入溝通,找到恭城網(wǎng)站設(shè)計與恭城網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:成都做網(wǎng)站、網(wǎng)站設(shè)計、外貿(mào)營銷網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名注冊、虛擬主機、企業(yè)郵箱。業(yè)務(wù)覆蓋恭城地區(qū)。
Dim my_text() As String
my_text = RichTextBox1.Lines
System.Array.Reverse(my_text)
ReDim Preserve my_text(my_text.GetUpperBound(0) - 3)
System.Array.Reverse(my_text)
RichTextBox1.Lines = my_text
End Sub
例如,把文件"E:\新凱散建文臘中件夾\a.txt"復(fù)制到剪貼板
CreateObject("Shell.Application").NameSpace("E:\新建文件夾"輪孫山).ParseName("a.txt").InvokeVerb?"復(fù)制(C)"
復(fù)制文件夾不用剪貼板,使用系統(tǒng)文件操作對象橋碼就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\殲液Program Files"敏改哪, "D:\Program Files"
Clipboard.SetText()是方法,必須給它傳遞參數(shù)才能將內(nèi)容保存在剪切板上。
Clipboard.SetText(TextBox1.Text);
SelectedText是只讀屬性,只能讀取文本框內(nèi)選定的內(nèi)容,而不能對其賦值仔笑腔。
Clipboard.GetText()用于獲得剪切板內(nèi)的內(nèi)容。如念衫:升蔽
TextBox2.Text=Clipboard.GetText();
名稱欄目:關(guān)于vb點虐
實現(xiàn)剪切文件的信息
網(wǎng)站地址:http://www.chinadenli.net/article26/ddpspjg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信公眾號、虛擬主機、做網(wǎng)站、品牌網(wǎng)站制作、用戶體驗、企業(yè)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)