给新手推荐一款图片剪贴工具,给合你的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图标即可