復制文件夾不用剪貼板,使用系統文件操作對象就好了
滎陽網站建設公司創新互聯建站,滎陽網站設計制作,有大型網站制作公司豐富經驗。已為滎陽上千提供企業網站建設服務。企業網站搭建\成都外貿網站制作要多少錢,請找那個售后服務好的滎陽做網站的公司定做!
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://vcdvsql.cn/article18/hepsdp.html
成都網站建設公司_創新互聯,為您提供企業建站、品牌網站設計、App開發、網站設計公司、外貿網站建設、企業網站制作
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯