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

将我的程序的文本直接送到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应用商店 收入3:7分账 不要男孩,只允许女生参加的四所编程学校 下一波App机会在哪里? JS1K 2013优胜作品公布 3D蜜蜂仅获亚军 专访:前新浪网架构师徐佳转行卖水果背后的故事 FBI密码挑战,你能解开吗? 从0到1只需一天:Twitter后PC时代物联网“敏捷”开发之路的探索 机械生物已经面世 只少个“大脑”而已 百度正式宣布3.7亿美元收购PPS视频业务 比尔·盖茨:iPad让人失望 用户需要Surface Dropbox将于今年夏天举办有史以来的第一场开发者大会 Clustrix Sierra分布式数据库系统:云计算时代的MySQL 英特尔出杀手锏 发布低功耗、高性能Silvermont微架构 10大最实用的Raspberry Pi扩展设备推荐 主流浏览器性能测试,IE10百分百完胜! TortoiseSVN的基本操作 再见,Fireworks! 投资者告诉诺基亚CEO:他们快没耐心了 直接拿来用!最火的Android开源项目(二) 营收奇迹:三消游戏Candy Crush Saga成功启示录 马化腾对话李连杰:移动互联网的能量有多大? UC与趋势科技携手,移动浏览器加固安全 乐视发布超级电视X60 售价6999元 巨头们抢滩或已结束?EMC掀起首场SDN登录战 CloudStack创始人梁胜:让中国软件走向世界 ArduinoDroid:让你在Android设备上开发Arduino 码农们的机器人:LEGO MindStorms EV3 详解 JavaScript 中的 this 对话PaaS平台dotCloud布道师:“轻量级”与“重量级”虚拟化 微软:谷歌企业生产力软件依然不行 IT旅途——程序员面试经验分享 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone java支持byte[] a = String.getBytes("iso-8859-1");转换吗? c语言中关于对windows命令调用的语法、命令及其格式。 怎么样捕捉数据库连接出错的信息?? 在SQL语句中,如何获得一汉字字段的字节长度,而不是字符长度?如“测试”返回4,不是2 如何建树 winsock.dll提供的都是什么函数?如果它提供的是winsockAPI,那么winsock32。lib提供的又是些什么?它们重复吗? FormatDateTime这个函数的日期间的字符不支持汉字,怎么解决? 关于用JAVA生成GIF的问题?(16M的GIF,256的我已经知道了) 如何在ACCESS李使用SQL? 梦天请进,谢谢! 能不能将对象序列化后存到数据库再取出还原?有没有例子? 分屏的已个视要做成对话框,请指教,顺便告诉我如何给分,只能给这么多 sorry,梦天进来,thanks!! 急!请问怎么在java类里写编译另一个类的语句?? 如何在ACCESS里使用SQL? 谁有BO2K源代码,我愿高分求购.不为别的目的,只为深入学习系统编程 如何实现 调用IE打开一个页面,并且多次调用,只打开一个窗口? 帮我点一下我就给分! 0.001做单位的数是什么 0.04改写成用千分之一作单位的数是什么 圆内有一个最大的正方形,已知正方形的面积为40平方厘米,求阴影部分的面积? 0.5的计数单位是十分位,把它改为用0.001作单位的数是( ) vf编程题 求出1到100之间的奇数积,偶数和求出1到100之间的奇数积,偶数和此题为填空题SET TALK OFF_____________________S2=1FOR i= 1 同100 IF _________ S1=SI+i ELSE S2=__________ EN 正方形的面积是40平方厘米,计算阴影部分的面积? 多项式在各个数域中怎么标准分解?例如f(x)=x^5-x^4-2x^3+2x^2+x-1在有理数域,复数域,实数域上的分解. 0.8计算单位是(),它是由()个这样的计算单位组成的.将它改写成以千分之一为单位的数是 如图,正方形的面积是40平方厘米,求阴影部分的面积一个圆在右下角的4分之1有一个正方形,有一点留在外面)求在外面的面积《可先画图,用算术方法 这个多项式能否在有理数域上进行分解?f(x)=x^4-5x+1我试过了Eisenstein判别法以及几个变体还是判断不出来 用VF编程求100到1000以内的奇数之和、偶数之和 一个数由14个百,15个十分之一,14个千分之一组成,这个数是( )有( )个0.001.要说明过程.分析.急`` 用 for 循环求 200 之间的偶数之和.用matlab计算, pascal 循环结构计算1+2+3+4.+n之和、奇数和与偶数和.输入格式 Input Format 一个正整数n(n 一个数由15个百和15个十分之一组成,这个数是( ),有( )个0.001? 用Matlab实现:统计1~100中有多少个偶数、奇数以及质数,输出结果,咋处理? 已知300=2*2*3*5*5,则300一共有多少个因数?要说明原因 已知阴影部分的面积是40平方厘米,求空白部分的面积. matlab中怎么实现奇数和偶数不一样的循环?i=偶数的时候,执行pa(i)=pa(i)+5i=奇数的时候,执行pb(i)=pb(i)+5 正方形边长10cm,求阴影部分面积? 已知阴影部分正方形的面积是40平方厘米,这个图形中空白部分扇形的面积是( )平方米. 2、用Matlab实现:统计1~100中有多少个偶数、奇数以及质数,输出结果. 已知300=2*2*3*5*5,则300一共有( )个不同的因数.你是怎样想的? 已知阴影部分的面积是40平方厘米,求空白部分的面积.求算式, 定义一种对正整数n的“F”运算:①当n为奇数时,结果为3n+5;②当n为偶数时,结果为 (其中k是使 为奇数的正整数),并且运算重复进行.例如,取n=26,则:若n=449,则第449次“F运算”的结果是多 一个偶数既是3的倍数,又有约数5,这个数最小是( ) 已知300=2*2*3*5*5,则300一共有( )个不同的因数.你是怎样想的? 若新定义运算,当M为奇数时,□M=3m;当M为偶数时,□M=1/2m.问□9*□6为多少!是□9 ×□6 一个数,有三个约数,其中两个分别是2、5,另一个约数是7的最小倍数,这个数是多少? 关于x的多项式-3x的平方+2x的二次项系数、一次项系数和常数项分别是( ) 定义一种对正数n的“F”运算:一、当n为奇数时结果为3n+5;二、当n为偶数时,结果为n/2^k(其中k是使n/2^k为奇数的正整数),并且运算重复进行.例如:取n=26,则:26经第一次F二运算结果为13, 不改变数的大小,把下面各数改写成以千分之一作单位的数1.0300=( ) 0.77=( ) 3.4=( ) 5.2=( ) 不改变0.7的值,改写成已千分之一为单位的数是? 证明有理数域Q上一元多项式环Q【x】的理想(2,x)是主理想 不改变数的大小,把6.9改写成以千分之一为单位的数是多少 不改变0.9的值,改写成以千分之一为单位的数是 用c++将n个正整数(n从键盘输入,n 用JAVA程序 分别求出1--100间的奇数,偶数之和.(奇数之和用while语句,偶数之和用do--while语句) 不改变0.6的值,把它改写成以千分之一为单位的数是( ) 大正方形边长5cm,小的边长3cm,求阴影部分两个三角形面积 1-100之间的偶数和与奇数和` JAVA如题 求1-100之间的偶数和与奇数和;我是初学 JAVA的 希望会的朋友可以指点下我 把0.68万改写成以“一”为单位的数,写作().不改变0.7的值,改写成以千分之一为单位的数是() 把3.8改成以0.001为单位的数是 把1.2345亿改写成用1作单位的数 五个连续奇数的和是125,这五个连续奇数是多少?五个连续偶数的和是130,这五个连续偶数分别是多少?快快快,跪求!!!!!!1 EXCEL问题:统计下面方框内所有每个数的数量,在另外一行显示出来.列如:1有4个,2有5个. 一个数是5个2,3个3,2个5,1个7的连乘积,这个数当然有许多约数是两位数,这些两位数的约数中,最大是几 大正方形边长10CM,小正方形边长2CM,大正方形的面积比小正方形的面积多百分之几 应用excel表格计算一行数字中连续出现的相同数字的最大个数?例如:1 1 1 1 0 0 1 2 2 2 0 0 0 0 2 2 这行数字中1的最大个数为4个 ,2的最大个数为3个,0的最大个数为4个,就是想求这个个数? 如图,大小两个正方形的边长分别为10cm·8cm,求阴影部分的面积 7个百 6个十分之一 5个千分之一组成的是什么数 f(x)=x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1在有理数域、实数域上的不可约多项式乘积 右图中,大正方形的边长是10Cm,小正方形的边长是8CM,则阴影部分的面积是( )平方厘米 一个数由5个百,9个千分之一,6个千分之一组成,这个数是? 计算1到M(M为偶数)之间的奇数之和和偶数之和#include #define M 100main(){ int a,b,c,i;clrscr();a=0;c=0;for(i=1;___(1)___;i+=2){ a+=i;___(2)___;c+=b; }printf("sum of evens is %d\n",c);printf("sum of odds is %d\n",a); }结果··SUM 将多项式(1-3x+2x^2)^2001*(1+3x-2x^2)^2001*(x^2+x+1)^2001展开后合并同类项,各项系数的和是多少 如图所示,长方形中有两个正方形,已知大正方形的面积为64cm²,小正方形面积为16cm,求阴影部分面积. 求教:如图,两个正方形的边长分别为8cm,12cm,那么图中阴影部分的面积是多少? 把0.001改写成用千分之一做单位的数 如图,已知正方形的面积是40平方厘米,求阴影面积?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn