Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助 关于截图


  共有2709人关注过本帖树形打印复制链接

主题：求助 关于截图
帅哥哟，离线，有人找我吗？
jackyfashion
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00 		求助 关于截图  发帖心情 Post By：2018/1/18 0:15:00 [只看该作者]

老师!
您好!

我在菜单设置截图
代码:
Dim tt As Table = Tables("yywrkhtc")
        Dim lt29 = tt(29)("khtc") & "\"
        Dim Proc As New Process
        Proc.File = lt29
        Proc.Start()
当窗口最小化就没办法用快捷键截图,只有打开窗口才可以,不论把代码写在菜单的任何位置,窗口最小化都无法截图
请老师指教!!!
可不可以打开Foxtable,在最小化时,可以用快捷键截图?就好像微信,不论最大化,最小化都可以截图?
多谢老师指教!!!
谢谢!!!
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/18 9:03:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
jackyfashion
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00 		  发帖心情 Post By：2018/1/18 23:52:00 [只看该作者]

谢谢老师!!!

 回到顶部
帅哥哟，离线，有人找我吗？
jackyfashion
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00 		  发帖心情 Post By：2018/4/4 15:31:00 [只看该作者]

老师:您好!
截屏时什么代码可以设置截图大小, 也就是自动拉框,框框大小的设置
请老师指教!!!
谢谢!!!
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/4 15:35:00 [只看该作者]

这个意思？

 

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\test.jpg")
    msgbox("保存到了d盘")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jackyfashion
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00 		  发帖心情 Post By：2018/4/6 20:46:00 [只看该作者]

谢谢老师!!!
谢谢!!!
 回到顶部
帅哥哟，离线，有人找我吗？
jackyfashion
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00 		  发帖心情 Post By：2018/4/6 21:54:00 [只看该作者]

老师:您好!
截屏时什么代码可以设置截图大小, 也就是自动拉框,框框大小的设置为当前打开外部软件窗口的大小, 不显示截图控件,自动打√保存
请老师指教!!!
谢谢!!!

[此贴子已经被作者于2018/4/6 21:55:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/4/7 8:56:00 [只看该作者]

这个无法控制

 回到顶部
帅哥哟，离线，有人找我吗？
jackyfashion
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00 		  发帖心情 Post By：2018/4/7 20:43:00 [只看该作者]

谢谢老师!
老师辛苦了!
[此贴子已经被作者于2018/4/7 20:46:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/8 9:28:00 [只看该作者]

以下是引用jackyfashion在2018/4/6 21:54:00的发言：
老师:您好!
截屏时什么代码可以设置截图大小, 也就是自动拉框,框框大小的设置为当前打开外部软件窗口的大小, 不显示截图控件,自动打√保存
请老师指教!!!
谢谢!!!
[此贴子已经被作者于2018/4/6 21:55:45编辑过]

 

那就直接截屏窗口就好了，参考

 

Sendkeys.SendWait("%{PRTSC}")
Sendkeys.SendWait("%{PRTSC}")
ClipBoard.GetImage.Save("d:\截图.jpg")

或者，参考

 

Dim point As Point = new point(e.Form.left, e.form.top)
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(e.form.width, e.form.height) '截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) '截取的开始位置,坐标(100, 200)

bit.save("d:\test.jpg")
bit.dispose
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07227 秒, 4 次数据查询