Taking a screenshot from Microsoft Web Browser

k3nnt0ter0

Member
Joined
Aug 21, 2012
Messages
22
Programming Experience
Beginner
I have here my code of taking a screenshot from picturebox. Perhaps I could use it on my Microsoft Web Browser.
Let :
pbOmni = Picturebox
AxWebBrowser = Microsoft Web Browser

So can I instead of pbOmni, replace it with AxWebBrowser? Or should I make different program to take a screenshot of this AxWebBrowser?
VB.NET:
        Dim cropBitmap As Bitmap
        Dim cropX As Integer
        Dim cropY As Integer
        Dim cropWidth As Integer
        Dim cropHeight As Integer
 Try
            cropX = 0
            cropY = 0
            cropWidth = 1024
            cropHeight = 768
            Dim rect As Rectangle = New Rectangle(cropX, cropY, cropWidth, cropHeight)
            Dim bit As Bitmap = New Bitmap(pbOmni.Image, pbOmni.Width, pbOmni.Height)
            cropBitmap = New Bitmap(cropWidth, cropHeight)
            Dim g As Graphics = Graphics.FromImage(cropBitmap)
            g.DrawImage(bit, 0, 0, rect, GraphicsUnit.Pixel)
            pbSnapShot.Image = cropBitmap
            If Not My.Computer.FileSystem.DirectoryExists("C:\Users\Kenn\Desktop\Screenshot") Then
                My.Computer.FileSystem.CreateDirectory("C:\Users\Kenn\Desktop\Screenshot")
            End If


            Dim strfilename As String
            If Not My.Computer.FileSystem.DirectoryExists("C:\Users\Kenn\Desktop\Screenshot") Then
                My.Computer.FileSystem.CreateDirectory("C:\Users\Kenn\Desktop\Screenshot")
            End If


            Dim counter = My.Computer.FileSystem.GetFiles("C:\Users\Kenn\Desktop\Screenshot")
            Dim intCount As Integer
            intCount = CStr(counter.Count)


            strfilename = "Lecture" & intCount + 1
            pbSnapShot.Image.Save("C:\Users\Kenn\Desktop\Screenshot\" & strfilename & ".png", System.Drawing.Imaging.ImageFormat.Png)
        Catch exc As Exception


            MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


        End Try
 
Back
Top