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

将我的程序的文本直接送到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 条件检测。

一次错误估算带来的启示 苹果开发者中心被黑:开发者信息或被窃取 SIM卡加密存漏洞 将影响数亿计的手机用户 搜狗茹立云:探索引擎产品落地 浏览器+搜索模式会成主流吗? 大势所趋,IBM Acme Air至少使用Netflix的5个开源工具 【观察】跨越“朦胧期”的云计算:产业、核心技术、生态圈以及突破点 Rovio Account:平台化之路修成正果 甲骨文总裁马克•赫德采访实录:用软硬件集成一体机打垮对手 如何一步一步打造高可扩展性的应用程序? 用Java编程,请保持简洁! 从安全隐患带来的商机来看,Hadoop同样很美 三年增四倍:如今谷歌服务占北美互联网流量四分之一 决战低功耗?Intel明年推低功耗Xeon处理器 在软件架构上增加新功能的注意事项 90后的代码界“女神”李雪:在编程中找到自己的“灵魂” 大数据之路不乏荆棘,然则其中的机遇却高于一切 iPhone销量令人意外:苹果Q3财季净利69亿美元 同比下滑 励志:12位早起的IT大佬们让小伙伴们都惊呆了 独家:苹果5周年限免神作,BADLAND开发者访谈 10亿次订阅!苹果Podcast的里程碑 免费利器Unity 4.2正式发布 支持WP8、Win8和BB10 SDCC 2013:Pinterest首位中国籍工程师两场演讲议题确定 甲骨文公布中国首届“Duke选择奖”名单 Moco、X幻想、开源中国获奖 直接拿来用,10个PHP代码片段 编程的未来 数据将成为主角 OpenCL 2.0发布,带来更强悍的异构计算能力 代码审查方式大调查 辅助工具居首(信息图) 一网打尽当下NoSQL类型、适用场景及使用公司 初创公司Treasure Data:每天处理7000亿行数据的20万次查询 豌豆荚王俊煜:将推支付SDK 与开发者3:7分成 英特尔-百度移动应用测试中心(MTC)正式启动 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? WinCE.NET 系统上如何拷屏 请问如何选择录音的输入设备? 引用“&”和union有没有区别啊? 本版的“跳楼大放送,今年高程、系分模拟试题及备考指南、考前培训笔记、心得,保证通过率。 (romantic999 ) ”你们打的开吗?我打不开 哪里有 车辆管理系统 的资料 请教:(在程序中)如何判断我的系统是否安装SQL Server数据库。如果安装,如何获取SQL Server的版本信息?谢谢! 小问题 请教 将RS232输入的信息转成键盘输入??? 关于表生成文本文件遇到的事情,急 确切地说,蟑螂是活化石吗?请从科学角度回答 某林场2004年种的香樟树比松树多2000棵,根据图的统计图,可知柑橘树种了 多少棵. 刷涂料用的滚筒刷子有哪几种类型? 小作者和地球爷爷谈了哪几方面的内容?这些内容表达了作者怎样的感情这篇阅读是《给地球爷爷的一封信》 蟑螂既然是“活化石”,为什么不保护呢?为什么呢? 一棵树各年的成长情况用什么统计图是什么统计图 爷爷很聪明,表达了对爷爷怎样的思想感情 甲乙两名打字员合作打一份350页的书稿,14小时完成,甲打字员毎小时打12页,乙每小时 下面是林场育苗基地树苗情况统计图.⑴柳树有2500棵,这些树苗的总数是多少棵?杨树占33% 柳树占25% 松树占15% 柏树占10% 槐树占17%⑵松树和柏树分别有多少棵?⑶杨树比槐树多百分之几? 给地球爷爷的一封信表达了作者怎样的感情 发现的作文怎么写最好是去乡村的发现 求有关于《我的初一生活》的作文,最好是自己写的 有道初二的数学题不会呀!急死了,老哥老姐们帮帮小弟吧!过程很重要,必须写!一般室外放映的电影胶片上,每一个图片的规格为3.2cm×2.4cm,放映银幕的规格为4m×3m.若影机的光源距胶片20cm,问:银 打一份书稿,甲单独要12小时完工.乙单独要20小时完工.现在甲乙合作用了17小时,中途甲休息了2小时.乙休息了几小时? 一个80人的旅游团去保定白洋淀游玩,请你设计一个租船方案.租船标准:8人快艇 240元4人渔船 100元30人观赏船 450元 老哥老姐们,过程一定要详尽!运用“三角形内角和定理”证明“四边形的内角和等于360°'.根据所给命题做出相关图形,写出已知,求证并完成证明! 手被水或高温的东西烫到怎么办?我好不小心~老是被水烫到!什么办法才能有效而快速退热呢? 甲乙两人同时从AB两地相向而行,在离A地300米处第一次相遇,相遇后,两人继续走,走到对方的出发点后立即返回,离B地500米处,两人再次相遇,问第三次相遇离A地多远?(上面写不下了,写在下面.) 一道非常有挑战性的数学题,老哥老姐们帮帮小弟吧!要求:用分式方程,我市某县为创建省文明卫生城市,计划对城市道路两旁的人行道进行改造,经调查可知,若该工程由甲工程队单独来做恰好 宇宙飞船中如何加热水和食物请具体给出物理原理,这个问题好象跟对流有关的! 辩论赛四辩总结陈词,规划未来更重要. 试说明无论x、y为何值,4x^ -12x+9y^+30y+35 的值恒为正 ^平方的意思 今年7月我即将去某外企报到,但是六级成绩单找不到了,不知道这对我的入职报到有没有影响?若是去补办个成绩证明也要等到十月份以后才能拿到了. 沉默非金辩论赛的总结词怎么说啊?我是四辩,近期需要啊! 怎么参加新概念作文比赛?今年的开始了吗? 现有甲、乙两家瓷器店,茶杯每只价格5元现有甲、乙两家瓷器店,茶壶杯每只价格5元,茶壶每只价格20元,已知甲店制定的优惠方案是买一只茶壶送一只茶杯,乙店按总价的92%付款,校办公室需购茶 小学老师培养应侧重与全科化还是专业化 辩论赛 四辩小结 急求 明天就要比赛了啊T我们是正方,说的是专业化,急求高手指点一二啊.不知道该怎么写四辩的小结啊,还有,我们是正方 如果有很 离别的滋味作文怎么写离别的滋味作文怎么写 现有甲、乙两家商店出售茶瓶和茶杯,茶瓶每只价格为20元,茶杯每只5元,已知甲店制定的优惠方法是买一只茶瓶送一只茶杯,乙店按总价的92%付款,某单位办公室需购茶瓶4只,茶杯若干只(不少于 【我的初一生活】作文怎么写.买噶,我要自己写早就写完了,关键是不会写 我品尝到了离别的滋味作文,help! 第十届新概念作文大赛 初赛入围名单 什么时候公布?怎么查询? 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音具有_________的功能? 感悟古人的离别作文老师叫我们写 现有甲、乙两家商店出售茶壶和茶杯,茶壶每只价格为20元,茶杯每只5元.已知甲店制定的优惠方法是买一只茶壶送一只茶杯;乙店按总价的92%付款.某单位办公室需购茶壶4只,茶杯x只(不少 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能_________? 【艺考】 表演台词,播音自备稿件,适用的文章.专业的进.表演的台词,最好是第一人称;播音自备稿件最好要慷慨激昂的,适合男生的,例如【少年中国】【沁园春.雪】一类的.我艺考用, 第十二届新概念作文大赛初赛入围名单怎么还不出来?今天都已经1月2号了而且萌芽的的官网,怎么成了萌芽读者圈,哪位亲能通知我在名单出来的时候. 人民公园100人以上的团体门票是按原价的五五折优惠的.五年级160人去公园游玩,买门票一共花去528元.每张门票多少元 who is your mother 爸爸比我大28岁,四年后爸爸的年龄是我的3倍,今年我和爸爸分别是多少岁 人民公园的杜鹃花盆数是长春公园的4倍,如果从人民公园搬出188盆杜鹃花放入长春公园则人民公园的杜鹃花盆就比长春公园少25盆,两个公园原来各有杜鹃花多少盆. 求一篇叙事性散文尽量多写一些民族风格.像八下语文第四单元课文那样, 强强8岁时他父亲32岁,当父亲的年龄是强强的2倍时,父亲多少岁?本人文科毕业,实在不知道怎样给出一个三年纪孩子能看懂的答案, proteus 原理图绘制问什么它自己会关掉 who is your mother _____over therea.talking tob.talkingc.talk tod.talk y=根号下sinx-cosx的值域 proteus中蓝色小三角形是什么,在哪找? 我要1篇《生活处处有语文》的600字以上的作文!还有初一上学期英语练习册【蓝色的那个,陕西人民教育出版的】4单元的答案!【17,18 页】 甲,乙两人分别从A,B两地同时出发相向而行,经过5小时相遇,相遇后两人都以原来的速度继续前进,又经过3小时到达B地,这时乙距离A地还有160千米,求A,B两地的距离.不允许用二元一次,要用一元一 盘点2009作文(班级)编一个故事(真实) 寻人写一篇情侣离别作文故意气气老师,让他嚣张! 500左右,多了不限! 强强两岁时,他父亲32岁.强强的年龄是父亲年龄的五分之三哪年去世,父亲活了多少年 盘点2009国家大事 这方面的高中作文要800字左右,围绕国家大事的 说明文的结构特点 有什么? “读者统计表”表示管理员的劳动强度,而“读书效果统计表”表示管理员的( 2009中国大事件盘点(可用于作文材料)答的好的后加分 蟑螂也是活化石? 跪求辩论赛 知识和经验哪个更重要? 我是4辩手 我们是反方 经验比知识重要,谢谢辩论高手了 过年想自己用滚筒把家里粉刷一下,用的油漆还是涂料,········希望可以详细一点,我一点也不懂. 日本研究发现治疗糖尿病和代谢综合症物美学生供认曾入侵多人电脑 包括“妙龄德国法兰克福市计划在闹市区巡警肩上装俄罗斯建议在莫斯科与叙利亚政府和反对悉尼两名男子无故捅死陌生少年被判30悉尼16岁男孩参加学校活动摔下悬崖昏澳大利亚100只被困小狗被解救 狗场Facebook承认传闻:年轻人已开芬兰计划实施新禁烟法 拟禁居民在阳台“免费”医疗让俄罗斯进退两难联合国首次主动攻击非洲叛军 或抛弃被\"深井救人\"事迹在百姓中传颂 王\"歼20\"战斗机现身沪昆高速?路刘恺威《喋血孤岛》11月1日浙江教育浙江临海户外休闲用品业节俭办展 小投宁波住博会盛行低碳环保风 市民“凑热安永:中国矿企面临海外并购“机会之窗土库曼斯坦货币20年 发行金银纪念币老司机雾中迷路高速逆行 交警支招大雾温州关停淘汰159家电镀企业 10人美新书爆料奥巴马怕应酬克林顿 难独自风格迥异的餐厅 高性价比的时尚美食工信部约谈三电信运营商OX35打头 百元假钞现榕城张开印双拳击开巨星门提案答复要“答其所问”藏身天花板盗30斤珠宝你交费 我送报月黑风高夜 捕捞大黄鱼山火烧了3小时女罪犯被捕397次或面临入狱10次酸汤鱼不是酸菜鱼景观改造割石材 无防护粉尘呛人乙肝一类苗接种将恢复20岁大学生想做激光手术检查竟然发现微博网友晒“福州花开四季图”砍骨刀哪有卖?我们帮您找资源分级基金再现到点折算在福州,就到蟹风暴吃蟹煲城管邀你体验一线执法驾驶学堂CBA被调侃为作弊联赛
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘