如何在VB中调用printscreen,并保存当前屏幕为图片文件

Question

如何在VB中调用printscreen,并保存当前屏幕为图片文件?非常感谢！！！！

Answer 1

  申明api     
  Public   Declare   Sub   keybd_event   Lib   "user32"   (ByVal   bVk   As   Byte,   ByVal   bScan   As   Byte,   ByVal   dwFlags   As   Long,   ByVal   dwExtraInfo   As   Long)   
  Public   Const   theScreen   =   1   
  Public   Const   theForm   =   0   
  然后，   
          Call   keybd_event(vbKeySnapshot,   theScreen,   0,   0)     '   截取当前窗体所在屏幕图像   
          Call   keybd_event(vbKeySnapshot,   theform,   0,   0)     '   截取当前屏幕图像   只搜到这个东西
那么怎么把抓屏的图象保存为文件呢？

Answer 2

http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q161299上面的文章讲述如何抓屏。代码中将图像放置进入PictureBox然后再调用SavePicture函数即可