Screeneur de screen dans un screenshot dans une capture d'écran =p

[mars073]

<p>
</p><p>Bonjour,</p><p>
je vais faire un tuto différent que d'habitude...</p><p>
Alors il vous faut :</p><p>
-1 Picturebox</p><p>
-4 boutons (start;stop;supprimer;enregistrer)</p><p>
-1 SaveFileDialog</p><p>
-1 Timer (Interval: 1)</p><p></p><p>
PS: si vous utilisez aussi des PicturesBoxs pour faire vos boutons en plus personnalisé, mettez comme couleur d'arrière plan: "transparent" dans l'onglet "web"</p><p></p><p>
Double click sur le Timer mettez le code:</p>
<pre class="ipsCode prettyprint lang-auto">
Me.BackgroundImage = PictureBox1.Image
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim qraph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
qraph = Graphics.FromImage(screenshot)
qraph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot</pre>
<p>Double click sur le bouton (start) mettez le code:</p>
<pre class="ipsCode prettyprint lang-auto">
Timer1.start()</pre>
<p>Double click sur le bouton (stop) mettez le code:</p>
<pre class="ipsCode prettyprint lang-auto">
Timer1.stop()</pre>
<p>Double click sur le bouton (supprimer) mettez le code:</p>
<pre class="ipsCode prettyprint lang-auto">
PictureBox1.Image = Nothing
Me.BackgroundImage = Nothing</pre>
<p>Double click sur le bouton (enregister) mettez le code:</p>
<pre class="ipsCode prettyprint lang-auto">
Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Enregistrer"
savefiledialog1.FileName = ".PNG"
savefiledialog1.Filter = "Image PNG |.Png"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)

        End If
    Catch ex As Exception

    End Try</pre>

<p>Programme : <span style="color:#FF0000;"><a href="http://www.mediafire.com/?guxuo3b77jpe3iu" rel="external nofollow">NSW.exe</a></span><span style="color:#C0C0C0;"><a href="http://www.virustotal.com/url-scan/report.html?id=59bfd33f44e824dbcc26de77ce88c88f-1298495448" rel="external nofollow"> </a></span></p>
<p><span style="color:#C0C0C0;"><a href="http://www.virustotal.com/url-scan/report.html?id=59bfd33f44e824dbcc26de77ce88c88f-1298495448" rel="external nofollow">Contrôle VirusTotal</a></span></p><p>
Cordialement,</p><p>
Mars073</p>

[Azad]

<p>Excellent tutoriel !</p>
<p>
Merci bien, utile pour ceux qui se lancent dans le VB.Net et qui veulent s'exercer. </p>