屏幕抓图.rar

'捕捉图片 TakeA 屏幕左边, 屏幕上边, 图片宽, 图片高, 显示在哪(Image)个控件上 Function TakeA(PL As Integer, PH As Integer, TL As Integer, TH As Integer, Pic As PictureBox) Dim SourceDC, DestDC, Bhandle, Wnd, Dhandle SourceDC = CreateDC("DISPLAY", 0, 0, 0)