Rechercher dans la communauté

Bonjour, je vais faire un tuto différent que d'habitude... Alors il vous faut : -1 Picturebox -4 boutons (start;stop;supprimer;enregistrer) -1 SaveFileDialog -1 Timer (Interval: 1) 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" Double click sur le Timer mettez le code: 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 Double click sur le bouton (start) mettez le code: Timer1.start() Double click sur le bouton (stop) mettez le code: Timer1.stop() Double click sur le bouton (supprimer) mettez le code: PictureBox1.Image = Nothing Me.BackgroundImage = Nothing Double click sur le bouton (enregister) mettez le code: 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 Programme : NSW.exe Contrôle VirusTotal Cordialement, Mars073