标题:给新手推荐一款图片剪贴工具,给合你的VFP程序,提高使用效率
只看楼主
zhken
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:273
专家分:594
注 册:2012-9-21
结帖率:96.67%
 问题点数:0 回复次数:2 
给新手推荐一款图片剪贴工具,给合你的VFP程序,提高使用效率



https://zh.  下载网址。
以下是配套VFP程序。在程序中随时用F1唤醒

**以下2行放在LOAD 或INIt事件
PUBLIC pub_Snipaste_
pub_Snipaste_='C:\Program Files (x86)\Snipaste 64位\Snipaste.exe'  &&你安装的地址



**以下放在你的唤醒按钮的CLICK事件


if type('pub_Snipaste_PROGRAMYX_')='U'
PUBLIC pub_Snipaste_PROGRAMYX_ &&是否运行了 抓图软件
pub_Snipaste_PROGRAMYX_=0
endif
if pub_Snipaste_PROGRAMYX_=0
if file(pub_Snipaste_)
shellexecute(0,"open",pub_Snipaste_,"","",5)
wait '请按F1截图,用鼠标选好后另存为(选JPG格式),或再按F3将选好的图片显示在当前屏幕。' window at 20,50 time 1
pub_Snipaste_PROGRAMYX_=1
else
=messagebox('此文件未安装或地址不存在。',0,message_)
pub_Snipaste_PROGRAMYX_=0
retu .f.
endif
endif
declare keybd_event in win32api short bvk,short bscan,integer dwflags,integer deextrainfo
keybd_event(112,0,0,0)
keybd_event(112,0,2,0)

&&在焦点是在表单上按F1唤醒,如果焦点不在表单上,就要点击右下角的这个Snipaste图标即可

搜索更多相关主题的帖子: VFP 图片 效率 if 推荐 
2020-07-26 17:53
zhken
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:273
专家分:594
注 册:2012-9-21
得分:0 
在图片控件的RIGHTCLICK事件写上这段程序,当我们看图片时,按右键就可以直接剪贴图片到剪贴板了.
2020-07-26 18:05
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册:2012-2-29
得分:0 
谢谢分享!
2020-07-26 19:05



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-502636-1-1.html




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

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