本篇內(nèi)容主要講解“VBS怎么實(shí)現(xiàn)將字符串寫(xiě)入剪切板”，感興趣的朋友不妨來(lái)看看。本文介紹的方法操作簡(jiǎn)單快捷，實(shí)用性強(qiáng)。下面就讓小編來(lái)帶大家學(xué)習(xí)“VBS怎么實(shí)現(xiàn)將字符串寫(xiě)入剪切板”吧!

創(chuàng)新互聯(lián)公司于2013年成立，先為吳中等服務(wù)建站，吳中等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢(xún)服務(wù)。為吳中企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。

函數(shù)代碼:

復(fù)制代碼 代碼如下:

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub

'調(diào)用

復(fù)制代碼 代碼如下:

CopyString "創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司， www.jb51.net"

完整測(cè)試代碼

復(fù)制代碼 代碼如下:

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
CopyString "創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司， www.jb51.net"
msgbox "ok"

到此，相信大家對(duì)“VBS怎么實(shí)現(xiàn)將字符串寫(xiě)入剪切板”有了更深的了解，不妨來(lái)實(shí)際操作一番吧！這里是創(chuàng)新互聯(lián)建站，更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢(xún)，關(guān)注我們，繼續(xù)學(xué)習(xí)！

網(wǎng)頁(yè)名稱(chēng)：VBS怎么實(shí)現(xiàn)將字符串寫(xiě)入剪切板-創(chuàng)新互聯(lián)
URL地址：http://weahome.cn/article/hggij.html