screen capture software i made

Uzamaki Naruto-Kun

Active member
Regular
Joined
Mar 27, 2009
Messages
1,635
Kin
0💸
Kumi
0💴
Trait Points
0⚔️
Awards
ive created this piece of software that might come in handy 4 takin screenshots of ur desktop

example

You must be registered for see images


Video



Download

Code:
http://rapidshare.com/files/234196099/DJDOUGY_S_Screen_capture.rar
 
Last edited:

..Chill.. Klitz

Active member
Regular
Joined
Jul 7, 2008
Messages
1,024
Kin
0💸
Kumi
0💴
Trait Points
0⚔️
ive created this piece of software that might come in handy 4 takin screenshots of ur desktop

example

You must be registered for see images


Download

Code:
http://rapidshare.com/files/234196099/DJDOUGY_S_Screen_capture.rar


I can see the VB icon!

Sigh, i miss having VB, stupid mac's and their inability to use VB!
 

Uzamaki Naruto-Kun

Active member
Regular
Joined
Mar 27, 2009
Messages
1,635
Kin
0💸
Kumi
0💴
Trait Points
0⚔️
Awards
heres the source code ^_^

Button1.
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Forma t32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot

Button2.
Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Save File"
savefiledialog1.FileName = "*.png"
savefiledialog1.Filter = "png |*.png"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.F ileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception
'Do Nothing
End Try
 

..Chill.. Klitz

Active member
Regular
Joined
Jul 7, 2008
Messages
1,024
Kin
0💸
Kumi
0💴
Trait Points
0⚔️
heres the source code ^_^

Button1.
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Forma t32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot

Button2.
Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Save File"
savefiledialog1.FileName = "*.png"
savefiledialog1.Filter = "png |*.png"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.F ileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception
'Do Nothing
End Try


That's cool, i haven't used VB in 2 years, but i used to really enjoy it, i made a program that simulated pokemon battles lol.
 

Mello-Kun

Active member
Elite
Joined
Apr 29, 2008
Messages
9,280
Kin
0💸
Kumi
0💴
Trait Points
0⚔️
Awards
Uhhhh
Print Screen Button sound familiar? O_O

But on the other hand, pretty smart on the vb thing
I like vb to
Cool program
 
Last edited:
Top