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

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

OpenStack基金会主席Alan Clark访华 欢迎提问 程序员的十大烦恼 兼顾性能和兼容体验:HTML5时代的浏览器全面测试 Lisp的本质 Amazon工作环境恶劣员工高流失率 为何却依然能持续成功和创新? 对几个软件开发传统观点的质疑和反驳 [实战分析] 编写高效的JavaScript程序 Twitter的系统编程 百度高通达成合作 为Android终端提供云服务 EasyHadoop技术沙龙在北京、广州两地齐发 CloudStack技术沙龙:committer李学辉及中航信分享 思科为什么愿意花12亿美元收购云计算网络初创公司Meraki? 谷歌有麻烦了!联邦贸易委员会正调查其搜索业务 当数据中心遭遇污水 微软新能源数据中心的诞生 2012vForum:更加注重开发者 腾讯赵伟:Hive在腾讯分布式数据仓库的实践 Apple将在2013年启动香港数据中心的建设 顶级域名扩张受阻:ICANN透露部分域名存争议 硅谷创业教父Paul Graham:如何获得创业好点子? GDC2012特别报道:中西方游戏开发思想在这里融合 应用示例和对象是编程的未来吗? 为什么2012年HTML5发展远未达预期 当程序不再工作时,程序员说 独立游戏开发者易犯的9大致命错误 “Do Not Track”的前世今生 《Warcraft是怎样炼成的(三)》:从Demo到游戏 无限强大的超级马里奥AI 以Google第二代数据库产品MegaStore为理论模式 探索HBase系统 传Google明年推Chrome OS触摸屏上网本 下载自己过去的Tweets?用户准备好了吗? 微软任命研究部门新副总裁 负责北京等实验室 如何计算两个时间点间的天数?如2003-01-01到2003-050--06。 进来看看! 请问:现在最流行的,最实用的编程语言是什么?? 昨晚给一个聊得很投机得MM打电话,她不接! delphi7与delphi5的差别? 《雨季会再来》 SQL SERVER的同步问题 怎样在DLL中添加一个不可见部件??? 请帮忙给个思路(分再加) 关于WIN2K管理员密码 查找时,随便符合一个字段中的条件,是否可以用or ? 关于读取oracle中clob字段的中文信息的问题 如何让IE6不显示保存图片按钮? 時間比較問題 如何固定DBGridEh的列? 如何在vb.net里面使用资源文件 关于WIN2K管理员密码 在tomcat服务器上发布soap的问题,高分相赠 JSP在websphere4.0中的应用问题! 急,关于COM调用的问题 请问各位C#有DBChart控件吗????????? select的问题 有没有好一些的MP3播放器推荐 关于声音的问题…………等…… xml是不是马上必学的?????? 呜呼!我巍巍中华,铿锵汉字,终将进博物馆了吗? 创建虚拟目录,在另一计算机上的共享位置? 用javascript怎样remove掉数组中的一个元素???急 存储过程问题 java基础类 网络错误718,是什么问题呢?分不够可以再给,急呀!! 怎样加大数据库的连接时间,因为通过远程连接,所以想加大连接时间 紧急求救? 这样的弹性页面能实现吗? 100分求"公司网络管理办法" 寻开发公司 请帮我,关于从WIN2000到WIN98的问题(在线等) 关于firework的问题?急急急!!!!!!!!!!!! 用VC.net应该怎么调试.cpp文件 老有人反复发一些老帖子,早被别人转了几百遍了,烦啊! 展示 怎样删除页面布局表格 或 页面布局单元 各位大侠,外挂里的自动捡物是怎么实现的? 如何在运行中删除动态创建的 POPUPMENU 的某个菜单项呢? 安装包怎么做? 怎样将mysql数据库里某个字段的所有值绑定到form的<select>选项里。 我的com+组件两台机器间不能执行方法 怎样获得InputBox、InputQuery的值? 我用的光盘版的maya5.0,serial number不对啊?谁有可以用的啊? 请教:MPP文档是什么概念啊? 哪里有VF做的工资管理系统下载 叙利奥对爸爸说:“爸爸,我来替你写吧,我会写的和您一样好呢.”(改为转述句) 匀速运动的平均速度是v=s/t,那么一物体运动一周后回到起点,它的平均速度怎样算 You're a dead dog stupid kin中文什么意思 爸爸指着叙利奥对他妻子说:“他实在让我伤心!”改成他人转述句 已知做圆周运动的物体的线速度,如何求这个物体在半个周期所用的时间? 有什么部件能够将力矩电机的转动角限制住,不让其做圆周运动 父亲对叙利奥说:“你应该认真读书,我不愿占用你的时间.”(第三人称转述句)还有:3、叙利奥说:“我来替您写,我能写的和您一样好.”(第三人称转述句) 马克思 关于社会主义终将取代资本主义的说法是出自哪本书? 三角形ABC的内切圆与三边的切点构成三角形EDF则三角形ABC的内心是EDF的外心,为什么 购进的是材料,销售的是商产品,怎么计算增值税?一个是材料一个是商品,还是一样的计算吗 按照马克思史学观,社会主义优于资本主义,并会取代资本主义,哪为何世界上就只剩那几个社会主义国家了?还有个不三不四的中国.(1、有人说是和平演变,那为什么是劣等将优等演变;2、有 任意三角形ABC 的三个角的三等分线 交出的三角形 EFD 一定是等边三角形 父亲指着叙利奥说:他实在使我伤心!”该为转述句非常急.明天就要了 让物体做竖直面圆周运动的最小速度怎么求? 青蛙属于什么科? 汽车一车轮打滑另一不打滑车轮就不转,只有打滑的那个车轮转,这样汽车怎么能过去这个路段? 马克思曾说过终有一天“社会主义将取代资本主义”是真的吗?马克思没说过但预言过 青蛙属于哪个科? 叙利奥躺在父亲怀里睡着了写得更优美.叙利奥躺在父亲怀里睡着了.换一种表达方式,写得更优美. 你对一道问题的解答我有点看不懂,我是初学者,麻烦再讲仔细点好吗?【1.8g的NH4+离子中含有的电子数为NA】NH4+的电子数是7+4-1=10个,n=1.8/18=0.1mol,所以电子数是NA.是正确的.为什么电子数是NA呢 若三角形ABC的三边长度之比为3比5比7,与它相似的三角形EFD最长边长为21,则其余两边之和为多少, 吴均《与朱元思书》、陶渊明《五柳先生传》、韩愈《马说》、宋濂《 送东阳马生序》(节选,从“余幼时即嗜古诗原文 解析几何题 在平面直角坐标系中,△ABC的两个顶点A、B的坐标分别是(-1,0)、(1,0),点G是△ABC的重心,y轴上一点M满足GM//AB,且│MC│=│MB│求:△ABC的顶点C的轨迹E的方程 青蛙所属科类 (1)没有共产党,就没有新中国,这难道不是真理吗?(改为陈述句) (2)A爸爸叫叙利奥.B叙利奥不放松功课(合为一句话).跪求………………急! 写出几个带有“倦”字的词语,并把它们恰当地填写在下面的段落中.徐利奥由于夜里偷偷地帮着父亲写签条,4、 写出几个带有“倦”字的词语,并把它们恰当地填写在下面的段落中.徐利奥由于 【有图】求助2个简单的圆周运动问题1使小球在最高点释放,多大的速度能让小球紧贴圆面滑下?因为最低点向心加速度为0,所以我觉得无论速度多大都会在下降过程中抛出.2假设小球在图示位 “你觉得是渔夫成功还是那个企业家成功呢”英语怎么说 叙利奥夜里帮父亲抄写很多签条,父亲一点儿没有?填有“察”的词在?处 青蛙是什么发育?变态还是不变态? 一个渔夫正忙于把他的鱼装进箱子里 英语怎么说 住房公积金贷款是如何计算可贷额度? 腰为10,底长为6的等腰三角形的内切圆在两腰上的切点间的距离为?要解题思路和过程~~~ skp 是什么意思? 住房公积金贷款是怎样计算的 等腰三角形ABC的内切圆,切点分别为D E F,已知三角形ABC的两边长是4和6,求FC 用什么软件可以打开skp格式文件阿? 抵抗的近义词是什么 证明 等腰三角形的内切圆与底边的切点是底边的中点 刚开始学化学,这个题目不是很懂,不过我觉得和植物的光合作用有点关系.在两个相等溶剂的透明大玻璃瓶里,分别放入即可绿色小植物,在漆黑的夜晚用燃着的木条检验其中一瓶内的气体,另一 抵挡的近义词是什么? 谁能给总结下 圆周运动,匀速圆周运动等运动的不同点我要考试了,匀速圆周运动这一部分还分不清, 中共中央提出“实行民族的区域自治”建议是在? 成语青梅竹马的由来 申请住房公积金贷款应具备什么条件 安全出口指示灯有安装干电池的吗? 抵挡的近义词 申请住房公积金贷款需要具备哪些条件 顶你个肺 抵挡和接到的近义词是什么? 怎么画旋转图形 算不算骂人呀 抵抗、伤害、饶恕的近义词 公积金贷款的条件是什么? 描写色彩的成语,如"青梅竹马"的"青"是一种颜色要4个 Unless you are dead虾米意思?RT 住房公积金贷款条件是什么? “青梅竹马”这个成语最初出现在哪里?RT 收音机拉线滑轮打滑 住房公积金贷款的条件我现在已经上缴3个月的住房公积金,因急需买房,已经向公司申请补缴满12个月的住房公积金,也就是补缴了9个月的,我想问一下这算不算连续正常缴纳满12个月?如果不算 美国主持人就“杀光中国人”节目道歉党报谈英国“窃听门”丑闻:严格监管不联大连续22年通过决议 要求美国结束美国会将彻查全部监视项目 白宫修改部英窃听丑闻案开庭被告否认指控 最高或英窃听丑闻案开庭被告否认指控 最高或“世纪审判”撞上美窃听门中央军委成立巡视组寻虎找蝇 重点监督卫计委组建半年:生育政策成焦点 医改遵义市委书记被指边升边腐 或涉凯里市卫计委回应单独二胎放开:计生政策无调美国会将彻查全部监视项目 白宫修改部隐形驱逐舰,是革命性武器还是奢侈品党报谈英国“窃听门”丑闻:严格监管不利比亚枪手狂劫央行运钞车得手5000新西兰在京推广特色旅游重庆一副镇长借儿子结婚 分2次办34俄罗斯对乌克兰拖欠供气费发出最后通牒美在罗马尼亚反导基地开建利比亚枪手狂劫5000万美元北京最牛违建阳光房本体遭疑 张必清称中国元素成多体育项目救星:丁俊晖拯救七星彩首注大奖广州话剧 《威尼斯商人》赴京演出泥车撞小车 一人当场亡中超引援烧钱全球第104宗地流拍 3宗地取消交易苏宁云商借势推平台首问制想生二宝先搞定大宝南海今起可刷微信买春运车票冬暖花开李克强握手姚明容桂“本地鲍” 今年不受待见?老鹰何以一飞冲天百元可设个人慈善基金两男翻墙幼儿园行窃被发现启事·情感天地木门变成“蜂窝门” 精装疑似“唔够秤机动车花千元租游艇出海打鱼庄臣食单切实加快园区扩能增效步伐
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘