注册 登录
编程论坛 VFP论坛

给新手推荐一款图片剪贴工具,给合你的VFP程序,提高使用效率

zhken 发布于 2020-07-26 17:53, 1697 次点击

只有本站会员才能查看附件,请 登录


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图标即可

2 回复
#2
zhken2020-07-26 18:05
在图片控件的RIGHTCLICK事件写上这段程序,当我们看图片时,按右键就可以直接剪贴图片到剪贴板了.
#3
schtg2020-07-26 19:05
谢谢分享!
1