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

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

Android游戏开发之旅一 长按Button原理 Android程序内存管理必读 Android按键事件映射表和转义符对照 Android Intent大全更新到API Level8 Android中Intent对应的category列表大全 Android中内嵌字体实现个性化 TextView多行本文滚动轻松实现 获取和设置ListView的选择项 EditText中显示隐藏Android输入法窗口 自定义ListView行间的分割线 Android程序完全退出的三种方法 WebView使用技巧和介绍 EditText仅允许特定类型数据输入 自定义Android应用的访问权限 android.text.format文件大小和日期解析类 Android Rootkit相关揭秘 androidmanifest.xml高级属性解析 根据packageName构造Context SQLite操作,还是raw方法更简洁高效 Android开发基础YesNo对话框构造代码 Android代码性能优化技巧 Android开发注意点 Part One onSaveInstanceState和onRestoreInstanceState的用处 Android基础概念Context的作用 在Android的Notification中显示进度条 Android跨进程数据通讯-剪切板Clipboard ConditionVariable Android线程同步 Android软件开发方向指导 ArrayList LinkedList Set HashMap介绍 PermissionInfo Android权限枚举方法 Android上HTTP协议通讯状态获取 关于用纯asp代码实现文件上传的问题! JComboBox的下拉列表怎么让它显示出来? 除非我把那个控件拉的很难看它才能像ComboBox一样工作但是那样大小是原来的n倍 高分求救~~WIN98的问题 高分求救~~WIN98的问题 Grid中的數據源刷新問題?? 在c#中如何开辟一块指定的内存空间? 聊天室的隐藏框架怎样做啊,我把框架尺寸设成0了,鼠标还是不停的闪/ 出什么事情了? listView怎么加入打印功能? 如果你拽的话:50分全是你的啦。帮我看看这条sql语句错在那里? Excelsior JET Professional Edition 谁有这个版本啊,破解的??在线等待…… 我的程序编译通过了,为什么测试通不过??代码在下面,大家看看是关于数据库和哈希表的 如何用DELPHI制作卸载程序 为什么我在C++ Builder 中用cgi作webservice访问数据库出错? 关于dinstinct的问题(100分!) 怎样将GIF文件包含到资源文件及如何调用? 如何在程序中屏蔽掉系统热健:如 ctrl+alt+del, alt+tab等等 怎样在子线程的运行过程中获得主窗口的指针? 50分征解50分征解!!!!! 如何在listbox中显示多列,并加上标题(每一列都有自己的标题) 现有一DBF数据库,如何把它倒到SQL里? 没分了,仅此10分求日期的正则表达式,希望帮忙 PPT 文件变得好大 oracle8.1.5中transaction slot的问题 怎样在linux下设置有管理员权限的用户!在线等待!!!! 出学者界面实做---STEP 4 小小的堆栈问题 可不可以在一个视图中加入不同数据库的数据? 为什么我在C++ Builder 中用cgi作webservice访问数据库出错? 求JPAD PRO的破解 PPT 文件里插入Organization Chat 请教static问题 我要离开现在的公司了,去寻求新的发展...... 请教各位高人,一个循环定义问题 Win98下为什么拦截不到从另一线程发过来的自定义消息 public class myclass 与 class myclass 一样吗? dbgrid 中,titleclick事件,如何判断选中的是 哪个字段 呢? 很简单 ADOtable 不支持 FindKey, 请教: 应该如何解决记录定位? 火急请教个“重新验证组织单元”问题! 想做一个报表但设置DataEnvironment的连接失败,不知为何错? 请教!linux下将.h和.c文件编译成动态连接库!!! 你真的懂SQL语句的编写吗?快来,我给你分 重载与模板的问题 出租魏公村西口两居之一 不知哪有好一点的聊天室,各位大虾请推荐几个小弟几个!!!! jsp里面有类似于asp的response.end语法吗? 求教各位大虾,这样的数据库程序如何实现。急切中。。。。。 vb中有没有像CommonDialog选文件的定位文件夹的控件? 怎么一次性加入多个子目录中的CPP文件到VC工程中 关于pos系统数据同步传输,欢迎大家进入讨论! 怎么得到本机的ip地址? 关于package 的问题 我的爸爸是一个小老板 英文翻译是什么 遇到自然灾害怎么自救各种都要 种类尽可能多一些 简略 遇到飓风这样的自然灾害怎么自救或预防?(略写一点 《三字经》的读后感1000字左右吧 自然灾害发生是应该如何自我保护 如果火车晚点,怎么查准确的到站时间?RT 第一次真好 周素珊 选自 苏教版小学六年级下册语文练习与测试14课答案 火车正晚点到达时间前面有个+1是什么意思新余到株洲的到达时间04:04 还有正点率里为什么会有0%?是指每次都不准么 怎么判断一辆火车晚点率高 怎么选择正常率高的火车班次 求大神 急 第一次真好 周素珊?她有哪些故事? 有什么自然灾害,如何自救?100字 火车晚点可能有哪些情况?什么情况下还会晚点时间未定? 把《劳动的开端》缩写成100字左右的短文 周素珊的《第一次真好》1.试简析下面语段的结构特点.第一次的感觉真奇妙.第一次去露营,第一次动手做饭,第一次坐火车,第一次坐飞机,第一次看见雪,第一次看到自己的作品用铅字印出来… 写出古人爱书的成语 把《劳动的开端》缩写成100字的文章文章是六年级语文上册的第19课!!!急需!!! 求一首歌!不知道是日本的还是英文的,是一个女人唱的,很经典的记得在MV里有海,景很美,听起来很慢,但很舒服的一首歌,记得在MV里有海,但海不是真海,是电脑效果,景很美,听起来很慢,但很舒服 古人写的关于爱情的诗篇最好是文言类的文体段落, 如何把19课缩写成100字短文 动物是用什么方式自我保护?请分动物来回答 亲爱的我只想做的老公其他的都不想 英语怎么读? 用100左右字缩写《劳动的开端》——急! 为什么天空中的云有各种不同的颜色? 第四届中华赞诗词歌赋创作大赛为什么作文上传不了资料一直上传了1个小时,都没上传完(详情请看图)拜托了 谁能正确解答 再加100分 怎样缩写100字的《劳动的开端》十分紧急,知道的说 能够自我保护的动物 在火车站,一位老奶奶问一个小孩,火车几点到站,小孩说了五个英文单词涂, 怎么记英语文章有没有更好的办法记英语文章.不要死记硬背的那种 那些动物有自我保护能力我想知道具体的那些动物有自我保护的方法? 是怎样保护自己的? 最好是大家都知道或认识的动物! 谁可以告诉我 请问火车的到站时间准确吗,后面+1是什么意思? 面对自然灾害如何自护自救 例子 作文某某人面对灾害如何自护自救有全篇的很好 但有例子也行强调是自然灾害,自护自救 各种动物自我保护方式多举例子 一列火车上午9:10到站,这列火车一共行驶了15个小时50分,这列火车什么时间出发的? 自然灾害的例子 动物怎样自救 关于 我的2014 这篇作文应该怎么写300字有急用 求近年全球自然灾害事例求近年全球特大自然灾害的详细事例. 体育室有足球、排球若干个,排球的个数比足球多1/5,正好多5个.排球、足球各有多少个 求作文 怎么写?我的2014, 天灾自救事例 体育室有足球、排球若干个,排球的个数比足球的个数多1/5,正好多5个.足球、排球各有多少个球求大神教,必须用份数做真的很急很急很急😭😭😭 2014的我 作文(苍天那,大地那!快救救我!……) 求六年级课文鸡毛信缩写.400字左右, 学校新买的排球个数比足球多60个,足球个数的80%.新买排球多少个? 作文怎么写 六年级上册课文有哪些,全部 甲乙两列火车同时从相距560千米的两地相对开出,2分之7小时后两车在途中相遇,甲每小时行75千米,乙每小时 怎样用英语介绍自己?要有中文哦! 风景写生中如何画天空、云彩? 什么动物的腿部利于奔跑,羚羊,猎豹?请从 生物运动力学 用英语介绍自己 (要有中文备注) 对于自然灾害的自救措施? 学校购进三种球,其中篮球占总数的三分之一,足球与其它两种球个数的比为一比三,排球十五个,三种球共多少个 已知圆心O的半径是5,AB,CD为圆心O的两条弦,且AB平行CD,AB=6,CD=8求AB与CD之间的距离 求一篇有关习惯的作文,600字左右,不用从太大的角度,谈下细节就可以了最好不要用第一人称“我”的文章,就是什么情况下都可以用的那种 从.天空.云朵.湖面.小船.快乐.歌唱.写一段.时间地点人物事情不少50字 遇到自然灾害时,我们应当怎样自救 刘伯承的夫人是谁 刘伯承有几个妻子 王亚平太空授课是什么时间啊? 面对自然灾害时应该怎样自救
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘