PrivateSubForm_Load()IfDir("D:\截图",vbDirectory)=""ThenMkDir"D:\截图"Timer1.Enabled=FalseTimer1.Interval=1000Picture1.Move0,0,Screen.Width,Screen.HeightPictur...
VB屏幕截图,保存到位图文件'声明部分OptionExplicitPrivateConstSRCCOPY=&HCC0020PrivateDeclareFunctionBitBltLib"gdi32"(ByValhDestDCAsLong,ByValXAsLong,ByValYAsLong,ByValnWidt...
直接工程->添加窗体form1然后在active的类中加个函数publicfunctionabc()form1.showvbmodalendfunction然后调用函数abc就可以显示了但是只能使用模式化窗体,也就是说,弹出窗体后,脚本到这里就停止了,一定要...
GetDC(GetActiveWindow),0,0,vbSrcCopy'抓屏Me.ShowDimsFileAsStringsFile="d:\zt\"&Format(Now,"yyyymmddhhmmss")&".BMP"SavePictureMe.Image,sFile'保存Me.hDCTimer1.Enabled=F
1PrivateSubCommand1_Click()Callkeybd_event(vbKeySnapshot,theScreen,0,0)DoEventsPicture1.Picture=Clipboard.GetData(vbCFBitmap)EndSub另外,注意要把form和picturebox都弄大一点,这样方便看一些...
这是截屏代码,程序运行后3秒截屏,并在vb上显示且保存图片在d:\zt文件夹里。对于GetDC(GetActiveWindow),0,0,vbSrcCopy'抓屏中的0,0是截取的坐标,你可以调整坐标来控制截取的区域,0,0为全屏PrivateDeclare...
SubScrnCap(LtAsInteger,topAsInteger,RtAsInteger,BotAsInteger)'屏幕截图核心函数DimrWidth,rHeight,SourceDC,DestDC,BHandle,Wnd,DHandlerWidth=Rt-LtrHeight=Bot-topSou...
BitBltPicture1.hdc,0,0,picWidth,picHeight,hDCtmp,x,y,vbSrcCopyReleaseDC0,hDCtmpEndSub目的:将屏幕按照指定坐标和大小进行截取成图,在picture1显示问题:大小是相同了,为什么截取的坐标不对,...
Me.Width,Me.Height)DimgAsGraphics=Graphics.FromImage(memory)g.CopyFromScreen(Me.Left,Me.Top,0,0,NewSize(Me.Width,Me.Height))'这里是截屏核心代码DimFilePathAsString=...
=true)]staticexternIntPtrFindWindow(stringlpClassName,stringlpWindowName);先找到你要截图的那个窗体的句柄然后根据这个句柄得到改窗体的DC创建一个bitmap然后填充得到的bitmap后显示到picturebox里面...