文件名称:屏幕抓图.rar
文件大小:28KB
文件格式:RAR
更新时间:2022-07-07 22:32:30
屏幕抓图 抓图 屏幕
'捕捉图片 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)
【文件预览】:
抓图.exe
Form1.frm
工程1.vbp
Form1.frx
光标2.cur
MSSCCPRJ.SCC
Form2.frx
光标.cur
Form2.frm
工程1.vbw