说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

将我的程序的文本直接送到WORD中(不用粘贴)-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
将我的程序的文本直接送到WORD中(不用粘贴)-VB资料


程序只有一个form,其上有一个text。我想实现
的功能如下
首先调用miscrosoft word或其他文字处理软件,
新建一个文档,然后运行程序,在文本框中输入文本。
如果我这时候点击word的话(激活),怎么将文本框
中输入的文字粘贴到word中。直接粘贴,不用ctrl-v.


在"唯一"的form窗体中再添加一个timer控件(interval=200,如果运行不正常,可适当加大此值), (当然还
有一个text),接着代码如下∶
Private Declare Function GetForegroundWindow& Lib "user32" ()
Private Declare Function GetWindowText& Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte,
_
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey& Lib "user32" Alias "MapVirtualKeyA" _
(ByVal wCode As Long, ByVal wMapType As Long)

Private Const VK_CONTROL& = &H11 'ctrl键的虚拟键值
Private Const KEYEVENTF_KEYUP% = &H2
Private Const VK_V& = &H56 'V键的ascii码值(虚拟键值)

Private Sub Text1_Change()
Timer1.Enabled = True
Clipboard.Clear
Clipboard.SetText Form1.Text1.Text
End Sub

Private Sub Timer1_Timer()
Dim dl1&, dl2&
Dim Canp As String * 255
dl1& = GetForegroundWindow&() '获取当前活动窗口的句柄
dl2& = GetWindowText&(dl1&, Canp$, 255) '获取窗口的标题
If Left(Canp$, 14) = "Microsoft Word" Then
MyCapture 1
Timer1.Enabled = False
End If
End Sub
Public Sub MyCapture(ByVal mode%) '生成一次模拟击键∶Ctrl+V
Dim altscan%
Dim dl&
Dim snapparam%
altscan% = MapVirtualKey(VK_CONTROL, 0)
keybd_event VK_CONTROL, altscan, 0, 0
keybd_event VK_V, 0, 0, 0
keybd_event VK_CONTROL, altscan, KEYEVENTF_KEYUP, 0
End Sub
注∶本例程只适用于microsoft word.要适用于其他文字处理程序,请
修改程序中的 If Left(Canp$, 14) = "Microsoft Word" Then 条件检测。

如何识别显示器当前的分辨率-Delphi资料 如何为Delphi程序添加事件和事件处理器 如何写小执行程序-Delphi资料 如何隐藏桌面上的图标-Delphi资料 如何用API更改改计算机名字-Delphi资料 如何用Delphi映射网络驱动器? 如何在字符串截取中避免分割到半个汉字-Delphi资料 如何知道用户点击了窗口的最小化按钮?-Delphi资料 如何中断线程的执行-Delphi资料 如何终止一个线程-Delphi资料 如何转让控制权-Delphi资料 使用Delphi 4.0编写多线程 使用Delphi获取系列信息 使用DELPHI实现文本文件显示和声音同步播放 为系统菜单添加新菜单-Delphi资料 显示密码编辑框中的密码-Delphi资料 写小执行程序-Delphi资料 隐藏和显示Windows的任务条-Delphi资料 隐藏桌面上的图标-Delphi资料 用DELPHI编制Windows95下的钩子函数 用Delphi的THML控件实现触摸屏的使用 用Delphi实现禁止用户关闭Window9X 用Delphi制作能够干净地删除自己的程序 用DELPHI 做一个简单的屏幕保护程序 用Enter键代替Tab键-Delphi资料 用修改文件时间的方法来加密文件-Delphi资料 用最原始的方法编制程序-Delphi资料 运用Delphi编写Windows NT中服务程序 在DELPHI编程中确定系统运行模式 在Delphi程序中调用控制面板设置功能 在DELPHI下读取与设置系统时钟 请教,如何用jbuilder 写midas的服务器, 我们公司一个程序员的头式太难看了,我每次见他就恨不得拿剃头的推子给他剃光光! 寻最好的ftp软件 autoCAD的问题 找本站里面《程序员测试软件》的注册码 刚毕业的不能报? .lib 文件到底是怎么回事?如何查看它的内容? 请问,下面的警告提示什么意思(关于sybase) 那位可以给我描述一下“代表”? 请问有WINsock编程高手么,帮我看一下下面的程序 紧急招聘PB程序员(成都) 关于产品序列号的问题……想了很久了。 这里有几个问题,能者请进! 请教VC项目开发经验 如何让下载的程序变成免费的? 请问有Pdf到Text的转化的源代码么? 能否让下载的程序变成免费的? 请问怎样才能自动复制文本框中的文本到剪贴板? 是否可用简体中文的VB开发翻体中文的应用程序? 使用JavaMail转发邮件 在servlet中是不是不可以引用其它的类中的函数.(这个类不是派生于HttpServlet) 为什么买书配送的光盘文件在BCB工程中打开后不让修改(打开前已转换为存档文件了)? 请教使用OPEN CLIENT 的一个小问题 索求算法 请问能否将下载的程序变成免费的? 现在学习C#不晚吧,:P 关于VB中控制运行实例的问题 请教关于DBGRid的问题。 请问在Java下如何实现文件压缩?有没有现成的接口或者压缩算法代码?多谢 这里下载C#电子书《C#教程》(中文 希望出版社) 我如何才能删除ORACLE中建立的用户??总是提示用户不存在或SQL第归错误等等!! CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!! 如何用简体中文VB开发翻体中文软件? 高分请教!!!! 一定加分!!!1111111 在打印或打印预览前如何获取报表页数 求助.希望有人帮忙!! 我用ACTIVE REPORT出了问题....相教 请问如何获得硬盘的序列号? 请问各位,有什么好的方法来为用户分配权限,要多少分就给多少? 我有一个www.cnjava.com,有没有人愿意要这个域名? 请问Delphi中关于fropro数据库的软删除问题!急用!谢谢! 当两个表用主键关联时,删除主表的一条记录,关联表对应的记录能不能自动删除(不用代码)? 大家来谈谈各自在制作网页时的css于inc的运用吧 小弟对Java及C#的一点看法-请大家指正! 高手请进,帮我看看这是什么意思?感谢非常 基于组件的三层应用程序怎么打包?200分相赠!!! 如何执行带OUT参数的ORACLE的存储过程 有谁做过矩阵奇异值分解的程序? 讨论:爱需要表白吗? 请教各位大侠:我用TNMStrm控件发送数据时,怎样实现定时连续发送?我现在发送一次成功,紧接着第二次发送就不行了,出现蓝屏. slide中的滚动条,有NM_RELEASEDCAPTURE事件,是响应mouseup,有没有什么事件响应mousedown的? 某工人三天做完一批零件,第一天做了84个,第二天做了余下的2/7,第三天和前两天做总数一样多,这批零件有几算式 工程队用了2天修了一条路,第一天完成全程的百分之50还多72米,第二天修的相当于第一天修的5分之3,这条路全长多少? 一个工程队计划3天修完一条水渠,第一天修了200米,第二天修了全长的五分之二,第三天修了前两天总和的一半,这条水渠长多少米? 小王三天做完一批零件,第一天做了总数的1/4,第二天比第一天多做了5个,第三天做了25个这批零件有多少个 工程队用两天时间修完一条路,第一天完成全程50%多72米,第二天修的是第一天修的3/5,这条路长多少米?不要方程 工程队计划三天修完一条公路,第一天修了全长的百分之六十,第二天与第三天修的长度比是3:5.已知第二天比第一天少修45米.这条公路有多长? 王师傅用3天共加工零件1200个,他第一天加工了总数的3分之1,第二天加工了余下的8分之3,第3天加工多少个 工程队修一条路每天修72米,28天可以修完,如每天修96米,多少天能修完?以---为等量关系,设X天修完,方程是: 工程队计划3天修完一条路,第一天修了200米,第二天修了全长的2/5,第3天修了前两天总和的一半.这条路有几米? 某工人1月份生产某零件1200个 修路队用两天时间完成一条公路,第一天修了全程的50%还多72米,第二天修的相当于第一天修的1/3这条公路长多少米(方程) 甲队计划3天修完一条水渠.第一天修200米,第二天修全长的2/5,第三天修全长的一半.这条 水渠长多少米? 某车间原计划加工1200个零件,实际第一天完成了原计划的3/8 ,第二天完成了原计划的5/12,第三天加工的是前两天的和,实际超过原计划的几分之几? 工程队修一条路,第一天修了全长的5分之2,第二天修了全长的百分之25,还剩154米没修,这条路全长多少米? 一个工程队计划修一条水渠,第一天修了九分之二,第二天修了二分之一,还剩200米没修完,这条水渠长多少米 王师傅要加工一批零件,第一天完成计划的58 ,第二天完成计划的712 ,实际完成的超过原计划的几分之几?怎怎么做 工程队修一条路,第一天修5分之1,第二天修4分之1,第二天比第一天少修25米这条路有多少米?工程队修一条路,第一天修总路程的5分之1,第二天修总路程的4分之1,第二天比第一天少修630米这条路 工程队计划修一条水渠,第一个月完成了全长的五分之二,第二天完成了全长的七分之三,这条水渠全长21km1.两个月一共修了多少km2.第二个月比第一个月多修多少km3.还剩多少km没修 红旗车间三天生产了一批零件,第一天生产了总数的 ,第二天比第一天多生产20个,第三天生产了55个.这批零 工程队修一条路,第一天修了全长的5分之1,第二天与第一天所修的长度比是4比3,这时还剩下600米没修,这条路全长多少? 先不加分,等回答完加 修一条水渠用了3天,第一天修了全长的25%,第一天比第三天少修21米,第二、三天的比是7:8,这条水渠长多少 红旗车间三天生产了一批零件,第一天生产了总数的七分之二,第二天比第一天多生产了20个,第三天生产了55个这批零件宫有多少个? 工程队已修了一条路的3/8,还剩下1000米没修,要修的这条路长多少米? 修一条水渠用了三天第一天修了全长的25%,第一天比第三天少修21天第2、3天的比是7比8,这条水渠长多少米? 李师傅计划三天内运完一批货物,第一天运了42吨,占这批货物的五分之二,第二天与第三天的运货量之比是4:3.李师傅第二天运货多少吨. 工程队修一条路,第一天修了全长的8分之3,第二天修了剩下的5分之2,第三天比第二天多修640米,这条路长多少米 长顺工程师三天修完一条水渠,第一天修了全长的25%,第二天与第三天的比是7:8,第一天比第三天少21水渠多长? 搬运工计划三天内运完一批货物,第一天运了42吨,占这批货物的5分之2,第二天与第三天的运量比是4比3,第二天运多少吨 某工程队修一条路,第一天修了全长的5/27,第二天修了余下的3/11,第三天修了第二天余下的5/6,第四天修8千米, 某队修一条水渠,第一天修了全场的25%,第二天与第三天的比是7:8,第一天修的比第三天修的少21米,这条水渠全长多少米? 青年运输队计划3天运完一批货物.第一天运480吨,占这批货物的40%.第二天运的和第三天运的比是3比5.问:第三天的货物有多少吨? 工程队修一条路,第一天修了240米,第2天修了余下的40%,其余的第2天修完,已知第三天修的与全长的比是1:3.这条路有多少米 某队修一条水渠,第一天修了全场的25%,第二天与第三天的比是7:8,第一天修的比第三天修的少21米,这条水渠全长多少米?不要用2个未知数方程 某建筑队计划3天修完一条公路,第一天修了全长的五分之二,第二天修的是第一天的百分之八十,第二天比第一天少修120米问这条路长多少米?第三天修了多少米?怎么列式谢谢 某工程队修一条路,第一天修了全长的27分之15第二天修了余下的11分之3,第三天修了第二天余下的6分之5,第四天修了8千米,正好修完,求这条路的长度. 工程队修一条路,第一天修了全长的25%,第2天与第3天修的比是7:8,第一天比第3天少修21米,这条路全长多少 修路队计划修一条长1500m的公路,第一天修了全长的五分之二,第二天修了全长三分之一,还剩下多少米 工程队两天修完一条路,第一天修了5分之3千米,比第二天多修了8分之1千米,这条路 工程队修一条路第一天修的比全长的三分之一少100米第二天修了300米两天共修了全长的40%这条路全长多少米 市公路管理计划修一条全长200千米的公路,第一天计划修全长的五分之二,余下的第二修完,第二天计划修多少千 某工程队修一条路,第一天修了全长的27分之5,第二天修了余下的7分之3,第二天修了8千米,求这条路的长度.尽量用算术法,不然我不懂,也可以用方程, 工程队3天修一条水渠第一天修全长的25%第二天与第三天修的比是7:8第一天比第二天少21米这水渠全长多少 王师傅计划3天内运完一批货物,第一天运了42吨,占这批货物的2/5,第二天与第三天的重量比是4:3第二天运货多少吨(要有详细的算式) 工程队修完一段公路,第一天修了全长的30%,第二天修了150米,第三天修了全长的2/5,第三天正好完成,这段公路长多少米 工程队修一条水渠,第一天修了全长了四分之一,第二天修了全长的百分之三十,还剩下900米没修.这水渠全长 码头上有一批货物,计划三天运完.第一天运走了全部的五分之三,第二天运走了五分之三吨,第三天还要运四分之三吨.第二天和第三天共运了多少吨?第二和第三天共运的是这批货物的几分之几? 工程队修公路,第一天修全长的4分之1,第二天修150米,第三天修8分之1,三天完成,这段公路长多少米 工程队修一条水渠,第一天修了全长了四分之一,第二天修了全长的百分之三十,还剩下900米没修水蕖全长不要方程 王师傅计划3天内运完一批货,第一天运了42吨,占这批货的5分之2,第二天与第三天运的重量比是4:3,第二天运多少吨?(上下接着的)急, 工程队修公路,第一天修了公路全长的8分之1,第二天修了后已修的长度与未修的比是3:5,工程队第二天公路修了全长的几分之几?(用比例来列)2.一个零件长2cm,它的长度与模型的长度比是1:5,模 工程队修一条水渠,第一天修了全长了1/4,第二天修了全长的30%,还剩下900米没修.这条水渠全场多少米? 某工人计划在3天内加工完一批零件,第一天加工480个,占这批零件的40%,第二天与第三天加工零件数的比是2: 某个工程队修一条路,第一天修了全长的3分之一.第二天修了全长的4分之一 工程队修一条水渠,第一天修了全长的25%,第二天修了全长的30%,还剩下900米没修,这条渠全长多少米?今天就要 某车间计划加工一批零件,第一天加工了计划总数的1/4,第二天比第一天多加工1/3,第三天比第一天少加工1/3某车间计划加工一批零件,第一天加工了计划总数的1/4,第二天比第一天多加工1/3, 某工厂计划在3天内加工完一批零件,第2天加工了480个,占这批零件的五分之二,第二天与第三天加工的个数比是3比5,第二天加工了几个? 工程队修一条公路,第一天修了公路全长的1/8,第二天修了后,已修的长度与未修的比是3:5,工程队第二天公路全长的几分之几?(用比例解) 工人师傅加工一批零件用了3天,第一天加工的零件时零件总数的5分之2,第二天加工的零件时零件总数的7分之2第3天加工的零件时零件总数的几分之几? 某工程队修一条路,第一天修了全长的5/27;第二天修了某工程队修一条路,第一天修了全长的5/27,第二天修了余下的3/11,第三天修了第二天余下的5/6,第四天修了8千米,正好修完.求这条路全长多 某工程队修一条公路,第一天修了全长的5分之1,第二天修了全长的8分之3,___________.这条公路长多少千米1、第一天修了3.2千米.列式:.2、两天一共修了9.2千米.列式:.3、第二天比第一天多修2.8
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn