13518219792
上委托啊，单或者多播任选。
网站建设、网站设计介绍好的网站是理念、设计和技术的结合。成都创新互联拥有的网站设计理念、多方位的设计风格、经验丰富的设计团队。提供PC端+手机端网站建设，用营销思维进行网站设计、采用先进技术开源代码、注重用户体验与SEO基础，将技术与创意整合到网站之中，以契合客户的方式做到创意性的视觉化效果。
"线程来操作 结束后 响应事件"
直接用线程回调就行了
执行键盘事件方法如下：
第一步，点击VS工具。
第二步，打开后，新建一个Windows窗体应用程序。
第三步，请看右下方Form的属性栏。
第四步，双击KeyDown。
第五步，输入提示按键代码，如图所示。
第六步，再次输入代码，设置属性KeyPreview为true。
第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获。
raiseevent
在合适的地方或时机触发事件，以执行已与该事件绑定的所有函数。
事件一旦被触发，将执行所有与该事件有关的函数，同一个事件执行的函数代码可以完全不同，开发者可以通过一个事件去做不同的事情。
——
开发一个按钮类，并定义好一个点击事件，通过用户点击按钮类来触发事件，最后创建两个按钮的实例：按钮1和按钮2。
点击按钮1，点击事件执行弹出一个消息框的代码。
点击按钮2，点击事件执行打开一个文件的代码。
若点击按钮不触发事件，而是执行某一定义好的函数paly，在点击后，按钮1和按钮2将只能执行相同的函数play。
浅见，通过一个事件可以做不同的事情，通过一个函数只可以做该函数规定的事情，除非每次都去修改函数，如果拥有该事件的类\控件是别人开发的，在别人没有提供源代码的情况之下，那根本不可能修改。
一定要先在VB中添加excel引用。
在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。
调用excel的工作表中的命令按钮，代码如下：
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打开的工作簿路径名称
SheetName = "sheet1" '命令按钮所在的工作表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
end sub
