vb如何做剪切、复制、粘贴按钮

获得文字直接用

公司主营业务：网站设计、成都网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出宝塔免费做网站回馈大家。

Clipboard.GetText

获得图片可以用

Clipboard.GetData

设置文字直接用

Clipboard.SetText

设置图片可以用

Clipboard.SetData

清空

Clipboard.Clear

检测剪贴板中的内容

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 = "复制"

Command3.Caption = "粘贴"

End Sub

C#/VB.NET中模拟按键问题...为什么我运行无效??

一、模拟键盘操作

以下示例程序当点击button1按钮，模拟键盘在文本框textBox1中作输入操作，详细说明请参看MSDN帮助中的SendKeys类。

//事件完整代码

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

{

this.textBox1.Focus(); //先必须让文本框得到焦点，因为焦点在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

}

二、模拟鼠标操作

以下示例程序当点击DBButton按钮，模拟鼠标双击窗体事件，并将鼠标向左上方移动10*10象素，其它操作类似。

//引入名字空间

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); //移动鼠标，否则事件发生在按钮上

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， 怎样写才能实现对文本的复制呢？

写的不是很清楚，理解为复制文件

File.Copy 方法

Copy(string, String) 将现有文件(string路径)复制到新文件(string路径)。 不允许覆盖同名的文件。

Copy(String, String, Boolean) 将现有文件(string路径)复制到新文件(string路径)。 允许覆盖同名的文件。

请问如何用VB程序来模拟键盘操作

set ws=createobject("wscript.shell")

ws.sendKeys "^{esc}r"VBS中SendKeys的基本应用模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，

其使用格式为：object.SendKeys string

“object”：表示WshShell对象

“string”：表示要发送的按键指令字符串，需要放在英文双引号中。

1.基本键

一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeys "happy"”。

2.特殊功能键

对于需要与Shift、Ctrl、Alt三个控制键组合的按键，SendKeys使用特殊字符来表示：

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

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

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

由于“+”、“^”这些字符用来表示特殊的控制按键了，如何表示这些按键呢？

只要用大括号括住这些字符即可。例如:

要发送加号“+”，可使用“WshShell.SendKeys "{+}"”

另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称，例如要发送回车键，需要用“WshShell.SendKeys "{ENTER}"”表示，发送向下的方向键用“WshShell.SendKeys "{DOWN}"”表示。

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

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

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

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

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

Tips:如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“{按键 数字}”。例如要发送10个字母“x”，则输入“WshShell.SendKeys "{x 10}"”即可。

实例：

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

按下F5刷新桌面

Dim WshShell,Path,i

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

WshShell.SendKeys "{F5}"

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

电脑的自动重启

set WshShell = CreateObject("WScript.Shell")

WshShell.SendKeys "^{ESC}u"

WshShell.SendKeys "R"

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

启动任务管理器

set WshShell = CreateObject("WScript.Shell")

WshShell.SendKeys "^+{ESC}"

当前题目：vb.net模拟键盘复制 vb复制按钮
分享路径：http://chengdu.cdxwcx.cn/article/hpehde.html