如果用通常的抓屏方法只能抓到最顶层的窗体,如果把窗体在最底层显示就无法抓到,有什么方法可以把底层的窗体抓取成图像,并在一个最上层的窗体上显示出来,(把两个窗体都设定成全屏显示)底层的窗体有多个控件运行,上层窗体要即时显示底层窗体的即时图片.
解决方案 »
- WMI中哪个类可以管理引导文件?
- 打开word文件,其中嵌入excel和powerpoint,并对其编辑,应如何操作?谢谢
- 请教VB中关于LOG函数的问题,急。
- 如何在vb中的picturebox画带有坐标刻度的直角坐标系呢?
- erp和epr一样吗?有什么区别?
- 有事求,请教高手。
- 如何动态添加自定义控件?试了多种方法都不行,各位高手进来指点一下。
- 怎样枚举硬盘盘符?
- 如何在一页纸上打印三个表
- 请问,install shield从哪得到?怎样用? 谢谢
- 有没有好点的msflexgrid的替代品,高手来介绍一个。
- 救命啊,搞了一天了还没有搞定 VB 访问 .NET WEB SERVICES的问题!!!500
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PrintWindow Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long, ByVal nFlags As Long) As LongPrivate Sub Form_Load()
Shell "calc.exe", vbNormalFocus
End SubPrivate Sub Timer1_Timer()
Dim lngHwnd As Long
lngHwnd = FindWindow(vbNullString, "计算器")
PrintWindow lngHwnd, Me.hdc, 0'只要该lngHwnd可见,就可Print出来
End Sub