我在全局代码里这么写但是都调试不过，对象.hdc 好像是什么 什么东西 来着，不知道怎么弄了 ，我对。net 不熟啊 麻烦帮我改改
'添加如下声明
Private structure re
Dim Left As Long
Dim Top As Long
Dim Right As Long
Dim Bottom As Long
End structure
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As re) As Long
Private Declare Function GetWindowDC 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
'添加这个函数
Public Function GetWndPic(Wnd As Long, f As WinForm.Form , pic As WinForm.PictureBox )
Dim R As re, DC As Long
GetWindowRect( Wnd, R) '获取指定窗口的左上角?右下角位置(以便获取其大小)
DC = GetWindowDC(Wnd) '得到dc
BringWindowToTop( Wnd )'目标窗口提到前面(非置顶)
BitBlt( pic.hdc , 0, 0, f.Width, f.Height, DC, 0, 0, vbSrcCopy ) '复制绘图
ReleaseDC( Wnd, DC) '释放
End Function
'调用示例(把句柄131454的程序窗口截图放到Picture1中)
'GetWndPic 131454, Picture1
[此贴子已经被作者于2020/3/18 2:32:33编辑过]
加好友 
发短信
Post By：2020/3/17 23:03:00 [显示全部帖子]
此主题相关图片如下：qq截图20200318104628.jpg