VB [GUIDA] CREARE UNO SCREEN CAPTURE

[my.Heroine]

GUIDA ALLA CREAZIONE DI UNO SCREEN CAPTURE O SALVA SCHERMO.

A COSA SERVE? PER POTERE "FOTOGRAFARE" O "CATTURARE" LO SCHERMO DEL PC SENZA USARE FOTOCAMERE O ALTRO.

​

Occorrente:

2 Button
1 Picture Box

1. Dopo posizionate il tutto

Ora cliccate 2 volte su Cattura e inserite questo codice:

Me.Opacity = 0 'nascondo la finestra per lo scatto 
       Me.ShowInTaskbar = False 'nascondo l'icona del programma dalla barra delle applicazioni 
       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 'visualizzo l'immagine appena creata sul PictureBox 
       Me.Opacity = 100 'ripristino la finestra 
       Me.ShowInTaskbar = True 'ripristino l'icona nella barra delle applicazioni

Poi cliccate 2 volte su salva e inserite questo codice:

Dim savefiledialog1 As New SaveFileDialog 
       Try 
           savefiledialog1.Title = "Salva cattura" 
           savefiledialog1.FileName = "*.bmp" 
           savefiledialog1.Filter = "Bitmap |*.bmp" 
           If savefiledialog1.ShowDialog() = DialogResult.OK Then 
               PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
            End If 
       Catch ex As Exception 
       End Try

FONTI: S H A W N

​

 

[Domokun_]

Fonti Shawn? Ho i miei dubbi v.v Comunque ci sono 3237546423753422 topic a riguardo.

 

[Predator]

che guida scarsa

 

[text]

che guida scarsa

Epic Win

 

[Mugetsu]

Basta un bel: "Stamp R Sist" ed hai il tuo bel screen senza usare nessun programma *,..,*

 

[text]

Ma con il tasto STAMP lo hai nella clipboard, questo te lo salva

 

[tRaauma.]

Non voglio mettere in dubbio il fatto che l'hai fatto tu.. comunque potresti editare e riscriverlo con una sintassi quanto meno un pò piu leggibile ?
Grazie.

 

[SpeedJack]

Non voglio mettere in dubbio il fatto che l'hai fatto tu.. comunque potresti editare e riscriverlo con una sintassi quanto meno un pò piu leggibile ?
Grazie.

Sistemato.
Comunque è una guida scarsa e poco utile.