在VB程序中怎么保存当前屏幕到内存中?

[dusj]

程序中怎么将当前屏幕放入内存,以及怎么将内存中的信息映射到屏幕上?
一定要用DirectDraw吗?
请给出完整的函数原型。thank you.

[iwin]

利用Picture控件不行吗？

[Janven]

用API函数BitBlt ，GetDC 和ReleaseDC 即可

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



在窗体添加一个PicCopy的PictureBox和一个按纽
按纽中加入
Dim hDC As Long, intScrx As Integer, intScry As Integer
Me.Hide
DoEvents
picCopy.Width = Screen.Width
picCopy.Height = Screen.Height
picCopy.AutoRedraw = True
hDC = GetDC(0)
intScrx = Screen.Width \ Screen.TwipsPerPixelX
intScry = Screen.Height \ Screen.TwipsPerPixelY
BitBlt picCopy.hDC, 0, 0, intScrx , intScry , hDC, 0, 0, vbSrcCopy
ReleaseDC 0, hDC
picCopy.AutoRedraw = False

Me.Show

你当然可以还得VScroll来控制一下浏览整个图片框，这个自己编吧。