獲得文字直接用
韓城ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書(shū)未來(lái)市場(chǎng)廣闊!成為成都創(chuàng)新互聯(lián)公司的ssl證書(shū)銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:18982081108(備注:SSL證書(shū)合作)期待與您的合作!
Clipboard.GetText
獲得圖片可以用
Clipboard.GetData
設(shè)置文字直接用
Clipboard.SetText
設(shè)置圖片可以用
Clipboard.SetData
清空
Clipboard.Clear
檢測(cè)剪貼板中的內(nèi)容
Clipboard.GetFormat(1)
返回True則文字
返回False則其他
不用剪切板可以這樣
Dim s
Private Sub Command1_Click()
s = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
s = Text1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + s
End Sub
Private Sub Form_Load()
Command1.Caption = "剪切"
Command2.Caption = "復(fù)制"
Command3.Caption = "粘貼"
End Sub
我用的是C#不知道你用的是什么語(yǔ)言,不過(guò).net的類庫(kù)應(yīng)該是通用的 你可以看下Clipboard這個(gè)類 下面代碼我測(cè)試成功了
System.Collections.Specialized.StringCollection sc=new System.Collections.Specialized.StringCollection();
sc.Add(@"C:\Users\Lenovo\Desktop\練習(xí)2010\練習(xí)2010\bin\Debug\練習(xí)2010.exe");
Clipboard.SetFileDropList(sc);
VB6.0只能復(fù)制一個(gè),例如把文件 "D:\aaaa.xml" 復(fù)制到剪貼板。
XP系統(tǒng)可用的代碼:
CreateObject("Shell.Application").NameSpace("D:").ParseName("aaaa.xml").InvokeVerb?"復(fù)制(C)"
XP和win7都能用的代碼:
For?Each?v?In?CreateObject("Shell.Application").NameSpace("D:").ParseName("aaaa.xml").Verbs
If?v.Name?=?"復(fù)制(C)"?Then?v.DoIt
Next
Dim p1 As New Point(0, 0)
Dim p2 As New Point(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height) '除工具欄全屏
Dim pic As New Bitmap(p2.X, p2.Y)
Using g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(p1, p1, p2)
PictureBox1.Image = pic
End Using
Clipboard.SetImage(PictureBox1.Image)
截圖到PictureBox1中顯示,然后在把PictureBox1.image放到剪切板中
新聞名稱:vb.net裁剪 vb裁剪圖片
文章來(lái)源:http://muchs.cn/article4/docchoe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信小程序、外貿(mào)網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站維護(hù)、網(wǎng)站導(dǎo)航、域名注冊(cè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)