Foxtable(狐表)用户栏目专家坐堂 → 桌面截屏


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

主题:桌面截屏

帅哥哟,离线,有人找我吗?
13968559581
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1526 威望:0 精华:0 注册:2017/7/23 17:17:00
桌面截屏  发帖心情 Post By:2019/8/19 13:49:00 [显示全部帖子]

你好!
      我现在想加个按钮,默认将整个桌面截屏(最好不要坐标,简单点)并保存到指定目录,这怎么操作,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
13968559581
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1526 威望:0 精华:0 注册:2017/7/23 17:17:00
  发帖心情 Post By:2019/8/19 15:01:00 [显示全部帖子]

你好,这个截屏的效果已经有了,但我是放在一段代码里的,我想延时几秒钟执行截屏,这怎么实现

 回到顶部
帅哥哟,离线,有人找我吗?
13968559581
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1526 威望:0 精华:0 注册:2017/7/23 17:17:00
目录问题  发帖心情 Post By: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



 回到顶部