Question

易语言 粘贴

我想按下热键ctrl+1
就直接把编辑框1的内容粘贴到光标处
或者按下热键ctrl+2
就直接把编辑框2的内容粘贴到光标处
应该怎么写啊？？

Answer 1

.版本 2
.支持库 shellEx
.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #键1)
注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #键2)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.判断开始 (参数一 ＝ 33001) ' CTRL键+1被安
置剪辑板文本 (编辑框1.内容)
模拟按键 (#Ctrl键, #V键, )
.判断 (参数一 ＝ 33002) ' CTRL键+2被安
置剪辑板文本 (编辑框2.内容)
模拟按键 (#Ctrl键, #V键, )
.默认

.判断结束

不用模块，用模拟按键就可以了，不过我不觉得按ctrl+1会比按crtl+v方便咯

追问

参数一 ＝ 33002
33002 什么意思

因为我想同时复制很多文本
所以用这个

追答

这个是注册热键的
注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #键1)
你可以注册多个热键 #键1 #键2 #键3.。。。。。。
上面我就注册了 两个
按照你注册的顺序
第一个是33001 第二个是33002 第三个就是33003了

Answer 2

.版本 2

.DLL命令 _投递消息, , , "PostMessageA", , 向指定窗口句柄发送消息
.参数 句柄
.参数 长度
.参数 内容, 字节集
.参数 p

.版本 2
.支持库 shellEx
.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #键1)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

文本投递 (编辑框1.内容, 取鼠标所在窗口句柄 ())

.子程序 文本投递, , 公开
.参数 文本内容, 文本型
.参数 句柄
.局部变量 字节集内容, 字节集
.局部变量 i, 整数型

字节集内容 ＝ 到字节集 (文本内容)
.计次循环首 (取字节集长度 (字节集内容), i)
_投递消息 (句柄, 258, 字节集内容 [i], 0)
.计次循环尾 ()

Answer 3

.版本 2

.程序集 窗口程序集1, , , 要用超级模块

.子程序 __启动窗口_创建完毕

监视热键 (&粘贴编辑框1内容, #键1, 2, , )

监视热键 (&粘贴编辑框2内容, #键2, 2, , )

.子程序 粘贴编辑框1内容

文本投递 (取焦点句柄 (), 编辑框1.内容)

.子程序 粘贴编辑框2内容

文本投递 (取焦点句柄 (), 编辑框2.内容)