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

 MeRefresh()

        Dim memory As Image = New Bitmap(MeWidth, MeHeight)

        Dim g As Graphics = GraphicsFromImage(memory)

        gCopyFromScreen(MeLeft, MeTop, 0, 0, New Size(MeWidth, MeHeight)) '这里是截屏核心代码

        Dim FilePath As String = ""

        Dim d As New SaveFileDialog

        dFilter = "JPEG图像|JPEG"

        If dShowDialog = WindowsFormsDialogResultOK Then

            FilePath = dFileName

            If FilePath = "" Then Exit Sub

            'If FilePathSubstring(FilePathLength - 1, 1) <> "\" Then FilePath = FilePath & "\"

        Else

            Exit Sub

        End If

        dDispose()

        memorySave(FilePath)

        MessageBoxShow("图像已经保存到： " & FilePath, "截图成功", MessageBoxButtonsOK, MessageBoxIconInformation)

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = &HCC0020

Sub ScreenSave(FilePath As String)

Dim lngDesktopHwnd As Long

Dim lngDesktopDC As Long

Picture1AutoRedraw = True

Picture1ScaleMode = vbPixels

lngDesktopHwnd = GetDesktopWindow

lngDesktopDC = GetDC(lngDesktopHwnd)

'filePath为截屏要保存的路径

FilePath = "E:\ajpg"

MeVisible = False

MeWindowState = 2

Picture1Width = ScreenWidth

Picture1Height = ScreenHeight

'这里注释是测试用，正常使用时设置FALSE

' Picture1Visible = False

Call BitBlt(Picture1hdc, 0, 0, ScreenWidth, ScreenHeight, lngDesktopDC, 0, 0, SRCCOPY)

Picture1Picture = Picture1Image

Call ReleaseDC(lngDesktopHwnd, lngDesktopDC)

MeVisible = True

SavePicture Picture1, FilePath '保存

End Sub

Private Sub Command1_Click()

ScreenSave "FilePath"

End Sub

以上就是关于请问：在vb.net2015中，如何编写截图程序全部的内容，包括:请问：在vb.net2015中，如何编写截图程序、VB中，如何将VB程序窗口截图并保存在某个位置、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！