IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Téléchargé 4 fois
Vote des utilisateurs
0 
0 
Détails
Licence : Non renseignée
Mise en ligne le 14 novembre 2010
Langue : Français
Référencé dans
Navigation

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

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

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+.
Avatar de ProgElecT
Modérateur https://www.developpez.com
Le 07/06/2008 à 18:02
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.
Avatar de Delbeke
Membre expert https://www.developpez.com
Le 08/06/2008 à 11:56
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.
Avatar de ProgElecT
Modérateur https://www.developpez.com
Le 27/08/2008 à 16:41
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
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
 '..............................
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.