Question

请问：在vb.net2015中，如何编写截图程序？

Answer 1

 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)