怎样截取Form1隐藏后屏幕上的图象

[laisiwei]

怎样截取Form1隐藏后屏幕上的图象。当然不能把Form1设置为隐藏

[wumy_ld]

首先获取窗体在屏幕上占用的区域坐标，可以用api函数GetDCOrgEx获取窗体左上角坐标，接下来通过窗体的宽度和高度可以算出这个矩形区域的右下角。
最后怎么取这个区域的图像，同时不隐藏当前窗体，难度较大，偶还不会。

[laisiwei]

up

[laisiwei]

up

[ukyoxh]

可以使用api实现吧

没有具体的遇到过,也不会哈

帮你顶!

[pigpag]

//最后怎么取这个区域的图像，同时不隐藏当前窗体，难度较大

一个可行的方法是调用PrintWindow函数，将背景打印到hDC中。注意仅被Windows XP/2003支持。

[8276]

这个问题太简单了，只要将FORM的visible设为false以后，用api就可以截取了，将截取的图象放在picturebox中，以备你以后的使用！

[华芸智森]

Option Explicit

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 Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
PRIVATE Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long


Sub SetPicture()
picCopy.Visible = True
If picCopy.Width <= Picture1.ScaleWidth Then
picCopy.Left = (Picture1.ScaleWidth - picCopy.Width) / 2
Else
picCopy.Left = 0
HScroll1.Min = 0
HScroll1.Value = 0
HScroll1.Max = picCopy.Width - Picture1.ScaleWidth
HScroll1.SmallChange = HScroll1.Max / 100
HScroll1.LargeChange = HScroll1.Max / 10
End If

If picCopy.Height <= Picture1.ScaleHeight Then
picCopy.Top = (Picture1.ScaleHeight - picCopy.Height) / 2
Else
picCopy.Top = 0
VScroll1.Min = 0
VScroll1.Value = 0
VScroll1.Max = picCopy.Height - Picture1.ScaleHeight
VScroll1.SmallChange = VScroll1.Max / 100
VScroll1.LargeChange = VScroll1.Max / 10
End If
End Sub

Private Sub Form_Resize()
On Error Resume Next
Picture1.Width = Me.ScaleWidth - VScroll1.Width
Picture1.Height = Me.ScaleHeight - HScroll1.Height
VScroll1.Left = Picture1.Width
HScroll1.Top = Picture1.Height
VScroll1.Height = Picture1.Height
HScroll1.Width = Picture1.Width

SetPicture
End Sub

Private Sub HScroll1_Change()
picCopy.Left = -HScroll1.Value
End Sub
Private Sub mCopyScreen_Click() '抓屏
Dim hDC As Long, sx As Integer, sy As Integer

Me.Hide
DoEvents

picCopy.Width = Screen.Width
picCopy.Height = Screen.Height

picCopy.AutoRedraw = True

hDC = GetDC(0)
sx = Screen.Width \ Screen.TwipsPerPixelX
sy = Screen.Height \ Screen.TwipsPerPixelY
BitBlt picCopy.hDC, 0, 0, sx, sy, hDC, 0, 0, vbSrcCopy
ReleaseDC 0, hDC

picCopy.AutoRedraw = False

SetPicture
Me.Show
End Sub

Private Sub mSaveFile_Click() '将文件保存为BMP
On Error Resume Next
With CommonDialog1
.DialogTitle = "储存文件"
.Filter = "位图文件(*.bmp)|*.bmp"
.CancelError = True
.ShowOpen
If Err.Number <> cdlCancel Then
SavePicture picCopy.Picture, .FileName
End If
End With
End Sub

Private Sub VScroll1_Change()
picCopy.Top = -VScroll1.Value
End Sub

[webmasterss]

我估计是我理解错了，是截屏吗？sendkey，模拟按下print screen键，然后读取剪贴板内容到你想要的地方！

[wumy_ld]

原来是要抓整个屏幕，我还以为只是抓被窗体盖住的那部分。

[laisiwei]

MSTOP(陈建华(东莞立晨企资)) 的代码速度的确快，不过窗口还是隐藏过了，我的机子上很明显
有没有更好的办法？

[laisiwei]

up

[pigpag]

等，给你写一段试试

不过只能在XP/2003下使用

[孔南]

webmasterss(性情中人) ,隐藏先不说，PrintScreen可以用SendKey发送吗？

[laisiwei]

up

[laisiwei]

同意KongNan(孔南)

[ryuginka]

to MSTOP(陈建华(东莞立晨企资)) ( )
我把你的程序拷贝下来运行,怎么一运行就无法保存图片,看不到那个保存按钮