1.VB如何实现屏幕截代码

VB如何实现屏幕截代码

       sDC = GetDC(0)

       ret = BitBlt(picture1.hDC,截图s截dependency源码 0, 0, Screen.Width, Screen.Height, sDC, 0, 0, vbSrcCopy)

       savepicture picture1.picture, "c:\1.bmp"