vb 如何把窗口内容保存为图片

如题把From1内的所有内容，用PictureBox保存下来。截窗口图代码越简单越好。... 如题把From1内的所有内容，用PictureBox保存下来。
截窗口图
代码越简单越好。展开

 我来答

1个回答

#热议# 不吃早饭真的会得胆结石吗？

忠成静0O
2013-09-25 · TA获得超过1049个赞

知道小有建树答主

回答量：1114

采纳率：100%

帮助的人：901万

我也去答题访问个人页

关注

展开全部

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theForm = 1
Const theScreen = 0

Private Sub Command1_Click()

     Picture1.Visible = False
     Picture1.Move 0, 0, Me.Width, Me.Height
     
     Call keybd_event(vbKeySnapshot, theForm, 0, 0) '截取活动的本窗体,若theForm改成theScreen则Copy整个Screen
     DoEvents
    
     Picture1.Picture = Clipboard.GetData(vbCFBitmap) 'Picture1.Picture得到剪切板的内容（截取的本窗体）
     Clipboard.Clear

PhotoName = "\VB截图.Bmp"
     PhotoName1 = App.Path & PhotoName
        
     SavePicture Picture1.Image, PhotoName1
End Sub