| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 942 人关注过本帖
标题:求助:关于程序中复制文本的命令写法
只看楼主 加入收藏
chirslibo
Rank: 1
等 级:新手上路
帖 子:45
专家分:2
注 册:2010-3-21
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:9 
求助:关于程序中复制文本的命令写法
我想做个右键弹出的菜单,只知道菜单的菜单项复制命令是_med_copy,但是我想给复制命令写到过程里去,就是点这个菜单项就先复制,然后用调用剪切板里刚才复制的文字做别的事情,所以请问老师们,在过程中复制文本的命令怎么写啊? 谢谢老师们先!
搜索更多相关主题的帖子: 文本 命令 
2010-04-25 02:04
chirslibo
Rank: 1
等 级:新手上路
帖 子:45
专家分:2
注 册:2010-3-21
收藏
得分:0 
啊 刚弄出来了。。。模拟了下键盘。。。真笨了。。
可是还有个问题,代码如下
KEYBOARD '{CTRL+c}'
decl inte ShellExecute in shell32.dll inte hwnd,stri, stri tmFile, stri,stri,inte
ShellExecute(0,"open","http://www.,0,0,1)

每次弹出来的搜索页都是剪切板里先前的文本,不是刚才划上的,请老师指教下怎么解决这个问题啊??
2010-04-25 02:33
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:0 
_ClipText=“。。。”

★★★★★为人民服务★★★★★
2010-04-25 08:33
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:3 
DEFINE POPUP cd1 FONT '宋体', 12 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF cd1 PROMPT "撤销(\<U)"
DEFINE BAR _med_redo OF cd1 PROMPT "重做(\<D)"
DEFINE BAR 3 OF cd1 PROMPT "\-"
DEFINE BAR _med_cut OF cd1 PROMPT "剪切(\<T)"
DEFINE BAR _med_copy OF cd1 PROMPT "复制(\<C)"
DEFINE BAR _med_paste OF cd1 PROMPT "粘贴(\<P)"  SKIP FOR EMPTY(_cliptext)
DEFINE BAR _med_clear OF cd1 PROMPT "删除(\<A)"
ACTIVATE POPUP cd1

相互学习,互相交流,共同提高。
2010-04-25 08:54
chirslibo
Rank: 1
等 级:新手上路
帖 子:45
专家分:2
注 册:2010-3-21
收藏
得分:0 
回复 3楼 cnfarer
谢谢版主,我给它改成这样还是不行啊
KEYBOARD '{CTRL+c}'
AAA=_cliptext
decl inte ShellExecute in shell32.dll inte hwnd,stri, stri tmFile, stri,stri,inte
ShellExecute(0,"open","http://www.,0,0,1)
2010-04-25 13:45
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:7 
不用剪贴板也可以:
object=....(对象)
……
ShellExecute(0,"open","http://www.,0,0,1)

★★★★★为人民服务★★★★★
2010-04-25 19:52
chirslibo
Rank: 1
等 级:新手上路
帖 子:45
专家分:2
注 册:2010-3-21
收藏
得分:0 
object=....(edt简介2)
......
ShellExecute(0,"open","http://www.,0,0,1)
亲爱的版主。。。我写成这样也不行啊,请问应该怎么改啊 ? 谢谢您啦
2010-04-26 00:16
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:0 
你是不是没有选择文本啊?
text=....(edt简介2).seltext
......
ShellExecute(0,"open","http://www.,0,0,1)

如果要用KEYBOARD '{CTRL+c}'的话,你必须在建立了主菜单且包含“编辑”下常用菜单(比如:复制)的情况下才能有用。

★★★★★为人民服务★★★★★
2010-04-26 07:51
zhuyunshen
Rank: 6Rank: 6
等 级:侠之大者
威 望:2
帖 子:212
专家分:455
注 册:2009-11-22
收藏
得分:0 
text=....(edt简介2).seltext
......
ShellExecute(0,"open","http://www.,0,0,1)
2010-04-26 08:25
chirslibo
Rank: 1
等 级:新手上路
帖 子:45
专家分:2
注 册:2010-3-21
收藏
得分:0 
text=....(edt简介2).seltext
......
ShellExecute(0,"open","http://www.,0,0,1)

为什么还是不行啊
说第一行那句无法识别,我的表单里有 edt简介2 这个东西啊 老师们帮想想是哪有问题吧。。
2010-04-26 11:35
快速回复:求助:关于程序中复制文本的命令写法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029913 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved