vb如何做剪切、復(fù)制、粘貼按鈕

獲得文字直接用

公司主營(yíng)業(yè)務(wù)：網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)、移動(dòng)網(wǎng)站開(kāi)發(fā)等業(yè)務(wù)。幫助企業(yè)客戶(hù)真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競(jìng)爭(zhēng)能力。創(chuàng)新互聯(lián)公司是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開(kāi)放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來(lái)的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶(hù)帶來(lái)驚喜。創(chuàng)新互聯(lián)公司推出寶塔免費(fèi)做網(wǎng)站回饋大家。

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#/VB.NET中模擬按鍵問(wèn)題...為什么我運(yùn)行無(wú)效??

一、模擬鍵盤(pán)操作

以下示例程序當(dāng)點(diǎn)擊button1按鈕，模擬鍵盤(pán)在文本框textBox1中作輸入操作，詳細(xì)說(shuō)明請(qǐng)參看MSDN幫助中的SendKeys類(lèi)。

//事件完整代碼

private void button1_Click(object sender, System.EventArgs e)

{

this.textBox1.Focus(); //先必須讓文本框得到焦點(diǎn)，因?yàn)榻裹c(diǎn)在button1上

SendKeys.Send("^a"); //Ctrl+A

SendKeys.Send("{DEL}"); //Delete

SendKeys.Send("+(ec)"); //Shift+"ec"

SendKeys.Send("{ENTER}"); //Enter

SendKeys.Send("+ec"); //Shift+'e'＋'c'

SendKeys.Send("{ENTER}"); //Enter

SendKeys.Send("{h 10}"); //"hhhhhhhhhh"

SendKeys.Send("{ENTER}"); //Enter

SendKeys.Send("^%{DEL}"); //Alt+Ctrl+Del

}

二、模擬鼠標(biāo)操作

以下示例程序當(dāng)點(diǎn)擊DBButton按鈕，模擬鼠標(biāo)雙擊窗體事件，并將鼠標(biāo)向左上方移動(dòng)10*10象素，其它操作類(lèi)似。

//引入名字空間

using System.Runtime.InteropServices

//申明

[DllImport("user32")]

private static extern int mouse_event(int dwFlags,int dx,int dy, int cButtons, int dwExtraInfo);

const int MOUSEEVENTF_MOVE = 0x0001;

const int MOUSEEVENTF_LEFTDOWN = 0x0002;

const int MOUSEEVENTF_LEFTUP = 0x0004;

const int MOUSEEVENTF_RIGHTDOWN = 0x0008;

const int MOUSEEVENTF_RIGHTUP = 0x0010;

const int MOUSEEVENTF_MIDDLEDOWN = 0x0020;

const int MOUSEEVENTF_MIDDLEUP = 0x0040;

const int MOUSEEVENTF_ABSOLUTE = 0x8000;

//事件完整代碼

private void Form_DoubleClick(object sender, System.EventArgs e)

{

MessageBox.Show("你雙擊了屏幕");

}

private void DBButton_Click(object sender, System.EventArgs e)

{

mouse_event(MOUSEEVENTF_MOVE,-10,-10,0,0); //移動(dòng)鼠標(biāo)，否則事件發(fā)生在按鈕上

Down,Up合為一次單擊事件

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);

mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);

mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

}

vb.net， 怎樣寫(xiě)才能實(shí)現(xiàn)對(duì)文本的復(fù)制呢？

寫(xiě)的不是很清楚，理解為復(fù)制文件

File.Copy 方法

Copy(string, String) 將現(xiàn)有文件(string路徑)復(fù)制到新文件(string路徑)。 不允許覆蓋同名的文件。

Copy(String, String, Boolean) 將現(xiàn)有文件(string路徑)復(fù)制到新文件(string路徑)。 允許覆蓋同名的文件。

請(qǐng)問(wèn)如何用VB程序來(lái)模擬鍵盤(pán)操作

set ws=createobject("wscript.shell")

ws.sendKeys "^{esc}r"VBS中SendKeys的基本應(yīng)用模擬鍵盤(pán)操作，將一個(gè)或多個(gè)按鍵指令發(fā)送到指定Windows窗口來(lái)控制應(yīng)用程序運(yùn)行，

其使用格式為：object.SendKeys string

“object”：表示W(wǎng)shShell對(duì)象

“string”：表示要發(fā)送的按鍵指令字符串，需要放在英文雙引號(hào)中。

1.基本鍵

一般來(lái)說(shuō)，要發(fā)送的按鍵指令都可以直接用該按鍵字符本身來(lái)表示，例如要發(fā)送字母“x”，使用“WshShell.SendKeys "x"”即可。當(dāng)然，也可直接發(fā)送多個(gè)按鍵指令，只需要將按鍵字符按順序排列在一起即可，例如，要發(fā)送按鍵“happy”，可以使用“WshShell.SendKeys "happy"”。

2.特殊功能鍵

對(duì)于需要與Shift、Ctrl、Alt三個(gè)控制鍵組合的按鍵，SendKeys使用特殊字符來(lái)表示：

Shift---------WshShell.SendKeys "+"

Ctrl---------WshShell.SendKeys "^"

Alt---------WshShell.SendKeys "%"

由于“+”、“^”這些字符用來(lái)表示特殊的控制按鍵了，如何表示這些按鍵呢？

只要用大括號(hào)括住這些字符即可。例如:

要發(fā)送加號(hào)“+”，可使用“WshShell.SendKeys "{+}"”

另外對(duì)于一些不會(huì)生成字符的控制功能按鍵，也同樣需要使用大括號(hào)括起來(lái)按鍵的名稱(chēng)，例如要發(fā)送回車(chē)鍵，需要用“WshShell.SendKeys "{ENTER}"”表示，發(fā)送向下的方向鍵用“WshShell.SendKeys "{DOWN}"”表示。

Space---------WshShell.SendKeys " "

Enter---------WshShell.SendKeys "{ENTER}"

←---------WshShell.SendKeys "{RIGHT}"

↑---------WshShell.SendKeys "{UP}"

F1---------WshShell.SendKeys "{F1}"

Tips:如果需要發(fā)送多個(gè)重復(fù)的單字母按鍵，不必重復(fù)輸入該字母，SendKeys允許使用簡(jiǎn)化格式進(jìn)行描述，使用格式為“{按鍵 數(shù)字}”。例如要發(fā)送10個(gè)字母“x”，則輸入“WshShell.SendKeys "{x 10}"”即可。

實(shí)例：

----------------------------------------------------

按下F5刷新桌面

Dim WshShell,Path,i

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "{F5}"

----------------------------------------------------

電腦的自動(dòng)重啟

set WshShell = CreateObject("WScript.Shell")

WshShell.SendKeys "^{ESC}u"

WshShell.SendKeys "R"

----------------------------------------------------

啟動(dòng)任務(wù)管理器

set WshShell = CreateObject("WScript.Shell")

WshShell.SendKeys "^+{ESC}"

本文標(biāo)題：vb.net模擬鍵盤(pán)復(fù)制 vb復(fù)制按鈕
轉(zhuǎn)載注明：http://chinadenli.net/article14/hpehde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊(cè)、標(biāo)簽優(yōu)化、網(wǎng)站策劃、品牌網(wǎng)站制作、面包屑導(dǎo)航、電子商務(wù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)