【搬运】VB.NET屏幕截图方法2则

  
    

   
     
   
     '
   
      根据VB6代码改的，经过本人优化。请先导入Drawing类库。
   
     

   
     

   
     Declare
   
      
   
     Function
   
      SelectObject 
   
     Lib
   
      
   
     "
   
     gdi32
   
     "
   
      (
   
     ByVal
   
      hdc 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      hObject 
   
     As
   
      
   
     Integer
   
     ) 
   
     As
   
      
   
     Integer
   
     

   
     Declare
   
      
   
     Function
   
      BitBlt 
   
     Lib
   
      
   
     "
   
     gdi32
   
     "
   
      (
   
     ByVal
   
      hDestDC 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      x 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      y 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      nWidth 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      nHeight 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      hSrcDC 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      xSrc 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      ySrc 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      dwRop 
   
     As
   
      
   
     Integer
   
     ) 
   
     As
   
      
   
     Integer
   
     

   
     Declare
   
      
   
     Function
   
      CreateCompatibleBitmap 
   
     Lib
   
      
   
     "
   
     gdi32
   
     "
   
      (
   
     ByVal
   
      hdc 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      nWidth 
   
     As
   
      
   
     Integer
   
     , 
   
     ByVal
   
      nHeight 
   
     As
   
      
   
     Integer
   
     ) 
   
     As
   
      
   
     Integer
   
     

   
     Declare
   
      
   
     Function
   
      CreateDC 
   
     Lib
   
      
   
     "
   
     gdi32
   
     "
   
      
   
     Alias
   
      
   
     "
   
     CreateDCA
   
     "
   
      (
   
     ByVal
   
      lpDriverName 
   
     As
   
      
   
     String
   
     , 
   
     ByVal
   
      lpDeviceName 
   
     As
   
      
   
     String
   
     , 
   
     ByVal
   
      lpOutput 
   
     As
   
      
   
     String
   
     , 
   
     ByRef
   
      lpInitData 
   
     As
   
      
   
     Integer
   
     ) 
   
     As
   
      
   
     Integer
   
     

   
     Declare
   
      
   
     Function
   
      CreateCompatibleDC 
   
     Lib
   
      
   
     "
   
     gdi32
   
     "
   
      (
   
     ByVal
   
      hdc 
   
     As
   
      
   
     Integer
   
     ) 
   
     As
   
      
   
     Integer
   
     


   
     Function
   
      GetSerPic(
   
     Optional
   
      
   
     ByVal
   
      BitWidth 
   
     As
   
      
   
     Integer
   
      
   
     =
   
      
   
     -
   
     1
   
     , 
   
     Optional
   
      
   
     ByVal
   
      BitHeight 
   
     As
   
      
   
     Integer
   
      
   
     =
   
      
   
     -
   
     1
   
     ) 
   
     As
   
      Image

   
     If
   
      BitWidth 
   
     <
   
      
   
     0
   
      
   
     Then
   
      BitWidth 
   
     =
   
      My.Computer.Screen.Bounds.Width

   
     If
   
      BitHeight 
   
     <
   
      
   
     0
   
      
   
     Then
   
      BitHeight 
   
     =
   
      My.Computer.Screen.Bounds.Height

   
     Dim
   
      Bhandle, DestDC, SourceDC 
   
     As
   
      IntPtr
SourceDC 
   
     =
   
      CreateDC(
   
     "
   
     DISPLAY
   
     "
   
     , 
   
     Nothing
   
     , 
   
     Nothing
   
     , 
   
     0
   
     )
DestDC 
   
     =
   
      CreateCompatibleDC(SourceDC)
Bhandle 
   
     =
   
      CreateCompatibleBitmap(SourceDC, BitWidth, BitHeight)
SelectObject(DestDC, Bhandle)
BitBlt(DestDC, 
   
     0
   
     , 
   
     0
   
     , BitWidth, BitHeight, SourceDC, 
   
     0
   
     , 
   
     0
   
     , 
   
     &
   
     HCC0020)

   
     Return
   
      Image.FromHbitmap(Bhandle)

   
     End Function
  
    

 

  
    

   
     '
   
      最近学了Graphics类的画图方法，所以无聊就写了两个小程序。
   
     
'
   
      这一例是不使用系统API就可以进行屏幕截取的代码。
   
     

   
     

   
     Public
   
      
   
     Class
   
      frmMain

 
   
     Private
   
      
   
     Sub
   
      Button1_Click(
   
     ByVal
   
      sender 
   
     As
   
      System.Object, 
   
     ByVal
   
      e 
   
     As
   
      System.EventArgs) 
   
     Handles
   
      Button1.Click
 
   
     Me
   
     .Hide()
 
   
     Dim
   
      p1 
   
     As
   
      
   
     New
   
      Point(
   
     0
   
     , 
   
     0
   
     )
 
   
     Dim
   
      p2 
   
     As
   
      
   
     New
   
      Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
 
   
     Dim
   
      pic 
   
     As
   
      
   
     New
   
      Bitmap(p2.X, p2.Y)
 
   
     Using
   
      g 
   
     As
   
      Graphics 
   
     =
   
      Graphics.FromImage(pic)
 g.CopyFromScreen(p1, p1, p2)
 
   
     Me
   
     .BackgroundImage 
   
     =
   
      pic
 
   
     End
   
      
   
     Using
   
     
 
   
     Me
   
     .Show()
 
   
     End Sub
   
     


   
     End Class