Discussion :

[ProgElecT]

Capture d’écran entier ou sélection, sauvegarde avec GDI+

Je sais qu’il existe une multitude de programme de capture d’écran, avec celui-ci, vous disposerez du source pour le modifier à votre convenance, en récupérer quelque procédure et/ou comprendre le mécanisme de sauvegarde d’image en 5 formats différents (BMP, GIF, JPG, PNG et TIF) grâce à l’utilisation de GDI+.

Au démarrage

Après une capture

Après une capture en mode prévisualisation avant impression


Vos critiques …… sont toujours les bien venues.

CaptEcran.zip (53.3Ko)

Motif de l’édit: actualisation du lien de téléchargement pour dernière version, pour informations, voir mon dernier message.

[Delbeke]

Beau boulot. Cà marche très bien.
Petit regret quand même, il n'est pas possible de prendre un screen shot sur une appli ayant le focus, ou alors j'ai raté quelque chose.

[ProgElecT]

Ayant changé d'ordinateur, je passe tous mes projets à la moulinette, et corrige les problémes qui surviennent sous VISTA .
Le programme de capture (le Form frmMenuCapt) reste souvant affiché dans la recupération de l'image du burreau.
Dans la procedure Cmd_Click(Index As Integer) de frmMenuCapt, ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Cmd_Click(Index As Integer)
Select Case Index
 Case 0 'Lancer la capture écran
  Me.WindowState = vbNormal: DoEvents
  Me.Visible = False: DoEvents
 
 '***********************************
  '****** partie ajoutée ******************
  T = Timer + 0.25 'ajuster eventuellement suivant l'OS et la vitesse de l'UC
  Do While Timer < T: DoEvents: Loop
  '**** Fin partie ajoutée ******************
  '************************************
 
  Me.Width = 4005 + CorrectionV: Me.Height = 1485 + CorrectionH: DoEvents
  'dessine sur frmCapture, tout se qui est visible a l'écran, sauf frmMenuCapt
  BitBlt frmCapture.hdc, 0&, 0&, Screen.Width, Screen.Height, GetDC(GetDesktopWindow()), 0, 0, vbSrcCopy
  DoEvents
  frmCapture.ShapeSelect.Visible = False
  frmCapture.Show
 '..............................

[ProgElecT]

Nouvelle version avec touche de raccourci configurable pour déclenchement de la capture, amélioration de l'effacement de la fenêtre du programme lors du lancement de la capture et ..... quelques petits trucs


Le téléchargement est possible depuis le premier message de la discussion, dans ma page de contributions ou dans Tous les téléchargements de ProgElecT