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:
Double click sur le bouton (start) mettez le code:
Double click sur le bouton (stop) mettez le code:
Double click sur le bouton (supprimer) mettez le code:
Double click sur le bouton (enregister) mettez le code:
comment c'est pas un tuto comme d'habitude je met le programme fini(fait par moi^^): NSW.exe - Contrôle VirusTotal
je vais peut-être le modifier et mettre des fichiers "KDO"^^
(oubliez pas le "+Thanks")
Cordialement,
Mars073
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:
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
Code:
Timer1.start()
Code:
Timer1.stop()
Code:
PictureBox1.Image = Nothing Me.BackgroundImage = Nothing
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
je vais peut-être le modifier et mettre des fichiers "KDO"^^
(oubliez pas le "+Thanks")
Cordialement,
Mars073
Comment