如何把窗体捕获成位图 放在 picture对象中

Question

给你代码，我刚写的，放一个button,放一个pictureboxPrivate Declare Function GetWindowDC 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 LongPrivate Sub Command1_Click()
 Dim dc As Longdc = GetWindowDC(Me.hwnd)
Call BitBlt(Picture1.hDC, x, y, Me.Width, Me.Height, dc, 0, 0, &HCC0020)
End Sub

Answer 1

承接　gameboy999(我是一只小小鸟)　
如果保存的话，需要使用Picture的IMage属性，例如SavePicture Picture1.Image