Apr 8, 2009 12:46 PM
(This post was last modified: May 19, 2016 03:20 PM by Shad~.)
Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Close
|
.NET
Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Close |
|
Apr 8, 2009 12:46 PM
(This post was last modified: May 19, 2016 03:20 PM by Shad~.)
Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Close
im not a vb coder but you could check out planet source code theres 1000s and 1000s program source code:
www.planetsourcecode.com enjoy (Apr 8, 2009 12:50 PM)Code King Wrote: im not a vb coder but you could check out planet source code theres 1000s and 1000s program source code: thanks dude!
try www.vbfrance.com if u speak frensh
SCREEN SHOT MAKER :
Make a large picbox button1 = "Shoot" Button2 = "Save" Textbox1 Textbox2 CODE-- Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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.Format32bppArgb) graph = Graphics.FromImage(screenshot) graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) PictureBox1.Image = screenshot End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim savef As New System.IO.StreamWriter("C:\Users\" + TextBox1.Text + "\documents\" + TextBox2.Text + ".jpg") savef.Write(PictureBox1.Image) savef.Close() MsgBox("Save Successful", MsgBoxStyle.Exclamation, "Success!") End Sub |
|
|
| Possibly Related Threads... | |||
| Thread / Author | Replies | Views | Last Post |
| [.NET] by ๒lคςк ςคtAug 12, 2014 12:25 PM | 7 | 225 |
Aug 12, 2014 12:25 PM Last Post: Odus |
| [.NET] by Shad~Apr 10, 2009 06:35 AM | 12 | 276 |
Apr 10, 2009 06:35 AM Last Post: Jyeran |