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?
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