| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 桌面截屏 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139684) |
| -- 作者：13968559581 -- 发布时间：2019/8/19 13:49:00 -- 桌面截屏 你好！ 我现在想加个按钮，默认将整个桌面截屏（最好不要坐标，简单点）并保存到指定目录，这怎么操作，谢谢
|
| -- 作者：y2287958 -- 发布时间：2019/8/19 13:58:00 -- ClipBoard.Clear Sendkeys.Send("^{PRTSC}") Application.Doevents If ClipBoard.ContainsImage Then Dim img As Image img = ClipBoard.GetImage img.save("f:\\1133.jpg") End If
|
| -- 作者：13968559581 -- 发布时间：2019/8/19 15:01:00 -- 你好，这个截屏的效果已经有了，但我是放在一段代码里的，我想延时几秒钟执行截屏，这怎么实现 |
| -- 作者：有点蓝 -- 发布时间：2019/8/19 16:17:00 -- Dim d As Date = Date.now Output.Show(d) Do While d.AddSeconds(5) > Date.Now Application.Doevents Loop Output.Show(Date.Now) 开始截屏
|
| -- 作者：13968559581 -- 发布时间：2019/8/19 16:56:00 -- 目录问题 你好，这段代码这个目录是没有问题，但是假如我目录改成 f:\\test\\1133.jpg 就有问题了，因为此时我F盘里没有test这个文件夹，怎么新建这个文件夹，这个代码怎么写？ ClipBoard.Clear Sendkeys.Send("^{PRTSC}") Application.Doevents If ClipBoard.ContainsImage Then Dim img As Image img = ClipBoard.GetImage img.save("f:\\1133.jpg") End If |
| -- 作者：有点蓝 -- 发布时间：2019/8/19 17:07:00 -- 参考：http://www.foxtable.com/webhelp/topics/0331.htm |
| -- 作者：54292550 -- 发布时间：2021/12/30 17:06:00 -- [此贴子已经被作者于2021/12/30 17:10:43编辑过]
|