编辑框的复制粘贴剪切全选怎么弄，不用dll。

特思

编辑框的复制粘贴剪切全选怎么弄，不用dll。

急求！~

特思软件

‘剪切
置剪辑板文本 (编辑框1.被选择文本)
编辑框1.被选择文本 ＝ “”

’复制
置剪辑板文本 (编辑框1.被选择文本)


‘粘贴
.版本 2

.局部变量 位置, 整数型

.如果真 (编辑框1.内容 ＝ “”)  ' 无内容直接赋值。
    编辑框1.内容 ＝ 取剪辑板文本 ()
    返回 ()
.如果真结束

位置 ＝ 编辑框1.起始选择位置 ＋ 1
.如果真 (编辑框1.被选择文本 ≠ “”)  ' 如果有拖黑了的文本则删除被拖黑的为本。
    编辑框1.被选择文本 ＝ “”
.如果真结束

编辑框1.内容 ＝ 文本_插入文本到某位置 (编辑框1.内容, 取剪辑板文本 (), 位置)  ' 改变文本
编辑框1.起始选择位置 ＝ 位置 － 1 ＋ 取文本长度 (取剪辑板文本 ())  ' 将选择位置移到粘贴文本后。



’全选
.版本 2

编辑框1.起始选择位置 ＝ 0
编辑框1.被选择字符数 ＝ 取文本长度 (编辑框1.内容)
转账,求理解~~

特思软件

{:soso__8961432591078930798_3:}

粘贴   '这个才是。。。

编辑框1.被选择文本=取剪辑板文本 ()