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();