关于使用GetDc()的问题

Question

你的第一个代码也不能成功，正确的代码应该是：Private Sub Command1_Click()
Dim hscreendc As Long
Dim sx, sy As Integer
    
    Me.Hide
    DoEvents
    
    frmpiccopy.Piccopy.AutoRedraw = True    hscreendc = GetDC(0)
    
    sx = Screen.Width \ Screen.TwipsPerPixelX
    sy = Screen.Height \ Screen.TwipsPerPixelY
    BitBlt frmpiccopy.Piccopy.hdc, 0, 0, sx, sy, hscreendc, 0, 0, vbSrcCopy
    ReleaseDC 0, hscreendc
    frmpiccopy.Piccopy.Refresh
    frmpiccopy.Piccopy.AutoRedraw = False
    
  
    frmpiccopy.Show
End Sub

Answer 1

我想你的第二个例子不成功，应该是当form frmpiccopy隐藏时，GetDC()无法取得该form的Device Contexts，下面的bitblt自然不成功！

Answer 2

niceFeather:程序的Me.hide  藏的是frmmain（command1在发frmmain上）不是frmpiccopy，
在frmpiccopy.Show之前。frmpiccopy根本就没加载，怪就怪在这里，用getdc的不到他的hdc
而直接写在bitblt中就成了，怪！