Question

在VB中怎样截取屏幕图片并显示为窗体的背景图片？(不能在截图时存至剪贴板。)

Answer 1

Private Declare Function GetDC Lib "user32" (ByVal hwnd 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 Sub Command1_Click()
Picture1.AutoRedraw = True
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy '抓屏
End Sub

追问

可以把截下来的图设为picture属性吗？（尽可能不把截图存为文件。）
Picture1.AutoRedraw = True应该为Me.AutoRedraw = True

追答

picture属性对应的就是文件

追问

好吧。怎么才可以使截下来的图清空后再恢复？
清空我用Me.Picture = LoadPicture()（不知道对不对），不知道怎样在不再次截图的情况下恢复原来窗体上的内容？

追答

一贴一问，老规矩。

追问

您不想要分就算了哦！我给你设为最佳吧

追答

分不分无所谓，规矩不能坏。既然这么说，以后无视你的问题。