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


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

主题:求助 关于截图

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


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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部