重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net的截图原代码 vbs截图代码

网上下的VB.NET截屏程序,试过好用,哪位大侠给详细解释一下!另外,怎么把截图加载到Picturebox里?

VB.NT用的是触发事件,一按就会触发,要不你加个timer控件,延迟一秒

创新互联拥有网站维护技术和项目管理团队,建立的售前、实施和售后服务体系,为客户提供定制化的成都网站设计、网站制作、网站维护、雅安电信机房解决方案。为客户网站安全和日常运维提供整体管家式外包优质服务。我们的网站维护服务覆盖集团企业、上市公司、外企网站、商城网站开发、政府网站等各类型客户群体,为全球上千余家企业提供全方位网站维护、服务器维护解决方案。

标题的问题:你先把图片保存,再加载

请问:在vb.net2015中,如何编写截图程序?

Me.Refresh()

Dim memory As Image = New Bitmap(Me.Width, Me.Height)

Dim g As Graphics = Graphics.FromImage(memory)

g.CopyFromScreen(Me.Left, Me.Top, 0, 0, New Size(Me.Width, Me.Height)) '这里是截屏核心代码

Dim FilePath As String = ""

Dim d As New SaveFileDialog

d.Filter = "JPEG图像|*.JPEG"

If d.ShowDialog = Windows.Forms.DialogResult.OK Then

FilePath = d.FileName

If FilePath = "" Then Exit Sub

'If FilePath.Substring(FilePath.Length - 1, 1)  "\" Then FilePath = FilePath  "\"

Else

Exit Sub

End If

d.Dispose()

memory.Save(FilePath)

MessageBox.Show("图像已经保存到: "  FilePath, "截图成功", MessageBoxButtons.OK, MessageBoxIcon.Information)

VB截取屏幕

[DllImport("user32.dll", EntryPoint = "GetDC")]

public static extern IntPtr GetDC(IntPtr hWnd);

[DllImport("user32.dll", EntryPoint = "ReleaseDC")]

public static extern IntPtr ReleaseDC(IntPtr hWnd, IntPtr hDC);

[DllImport("user32.dll", SetLastError = true)]

static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);

[DllImport("user32.dll", SetLastError = true)]

static extern IntPtr FindWindow(string lpClassName, string lpWindowName);

先找到你要截图的那个窗体的 句柄 然后根据这个句柄得到改窗体的DC 创建一个bitmap 然后填充 得到的bitmap后 显示到picturebox里面


当前标题:vb.net的截图原代码 vbs截图代码
文章源于:http://cqcxhl.com/article/ddoijcp.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP