begin process at 2012 02 16 16:42:48
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > CAPTURER L'ECRAN ET LE METTRE DANS UN FICHIER

CAPTURER L'ECRAN ET LE METTRE DANS UN FICHIER


 Information sur la source

Note :
7,07 / 10 - par 14 personnes
7,07 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Classé sous :capture, ecran, screenshot, fichier, enregistrer Niveau :Initié Date de création :15/05/1999 Vu / téléchargé :15 050 / 884
Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Comment Capturer l'écran et le mettre dans le Presse Papier ( ClipBoard ) ?

Mettez ce code dans votre Module :

Source

  • Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  • Public Function EnrgEcran(ByVal Fichier As String) As Boolean
  • On Error Goto SortieErreur
  • 'Test de la présence du fichier
  • If Dir(Fichier) <> "" Then Exit Function
  • 'Pour Capturer l'ecran entier
  • Call keybd_event(vbKeySnapshot, 1, 0, 0)
  • SavePicture Clipboard.GetData(vbCFBitmap), Fichier
  • EnrgEcran = True
  • Exit Function
  • SortieErreur:
  • MsgBox "Erreur dans le Module EnrgEcran. Erreur #: " & Err.Number & ", " & Err.Description
  • End Function
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Function EnrgEcran(ByVal Fichier As String) As Boolean
    On Error Goto SortieErreur

    'Test de la présence du fichier
    If Dir(Fichier) <> "" Then Exit Function

    'Pour Capturer l'ecran entier
    Call keybd_event(vbKeySnapshot, 1, 0, 0)

    SavePicture Clipboard.GetData(vbCFBitmap), Fichier
    EnrgEcran = True
    Exit Function

    SortieErreur:
    MsgBox "Erreur dans le Module EnrgEcran. Erreur #: " & Err.Number & ", " & Err.Description
End Function


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
Source avec Zip Source avec une capture FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAG...
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE
Toutes les sources de Nix

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) VB10 - CRÉER VOS PROPRES CALQUES SUR UNE IMAGE par Duke49
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN GIF ANIMÉ par Le Pivert
Source avec une capture GRAPH PHP COURBE DE CHARGE par s.defaye
Source avec Zip Source avec une capture BOULE DE CRISTAL par BLUEBIBUBBLE
VB6 - DÉPLACEMENT D'UN CONTRÔLE SUR UN SEGMENT DE DROITE DÉL... par ucfoutu
Toutes les sources de la catégorie Graphique

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) ENREGISTREUR DE NOMS par 1234567890MOFF
Source avec Zip Source avec une capture Source .NET (Dotnet) CAPTURE ET ENREGISTREMENT D'UNE IMAGE DEPUIS UNE WEBCAM par RENAUD34
Source avec Zip Source avec une capture Source .NET (Dotnet) HBSNAPSHOTERV3.0 : GESTIONNAIRE DE CAPTURES D'ÉCRAN par hvb
Source avec Zip Source avec une capture CAPTURE D'ÉCRAN par samrom
Source avec Zip CAPTURER LA FENETRE ACTIVE ET LA METTRE DANS UN FICHIER par Nix

Commentaires et avis

Commentaire de Stef le 07/01/2002 14:53:40

Simple et efficace... merci pour ce code !

Commentaire de wanico le 26/03/2002 19:27:07

C'est simple et ça déchire, le seul reproche c'est qu'on ne choisit pas la destination..

Commentaire de crossblade le 01/05/2002 21:38:36

Tout simplement super

Commentaire de Spylover le 16/05/2002 12:56:33

Simple et efficace, cependant, il ne fait pas un screenshot total de l'écran mais de la fenêtre active. (ALT+Imprim écran)

Si quelqu'un sait comment remédier à ce problème.
Merci de m'en faire part.

Commentaire de psy4meuh le 23/06/2003 11:20:26

Salut!

POUR SPYLOVER --&gt;
pour l'écran complet: Call keybd_event(vbKeySnapshot, 1, 0, 0)
pour la fenetre active : Call keybd_event(vbKeySnapshot, 0, 0, 0)

@+


Commentaire de grandvizir le 27/07/2005 15:14:42

C'est sympa... Mais l'autre technique consiste à utiliser GetWindowsDC et à faire de la copie de canvas. Et comme ca ne dépend plus des relations avec le clavier, la récupération est nécessairement sans faute.

spylover> http://www.vbfrance.com/code.aspx?ID=25

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Comment faire un screenshot(Capture d'ecran) d'une video, qui fonctionne ? [ par Jo ] Bonjour,Je recherche un moyen de faire une capture d'ecran d'un flux video en cours de lecture, car j'ai dejas essayer avec ma methode mais c'est que renomer un fichier [ par CCJ ] Salut!Quand je fais une capture d'ecran avec :Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As L URGENT MERCI [ par yoarf ] Bonjour,Je vous explique, je développe sous Access 97 et j'ouvre un fichier Excel en lecture conteant pleins de OLEObjects (Boutons, Checkbox, Combobo enregistrer un fichier !!! [ par bernett ] Salut !Je souhaite enregistrer un fichier powerpoint de façon a ce que son nom soit indexé chaque fois que je l'enregistre.Exemple :mois.ppt ou fic enregistrer sous [ par jdetrez ] en fait g fait une application qui transforme un fichier excel a qui je donne un nouveau nom juste pour pouvoir executer ma macro , lorsque celle ci urgent svp [ par sengra ] bon j'essaye de faire fichier texte d'enregistrement mais lors du sicie de l'nregistrement et la validation pour l'enregistrer dans le fichier il effa Comment faire pour enregistrer un fichier sou un autre nom ?? [ par eldiablomortal ] voila je fai ouvrir un fichier qui est config.cfg et je voudrai lenregistrer sou configbackup.cfg comment faire svp thxah oui le petit detail je ne mo Capturer le son du micro pour pouvoir le traiter ou l'enregistrer dans un fichier [ par jeune63000 ] Je cherche à faire un logiciel qui reconnait les mot qu'on dit et qui les réécris à l'écran (dans un premier temps)Alors la je seche totalement moi... Enregistrer un fichier excel en indexant le nom [ par PoK3uR ] Je voudrais pouvoir enregistrer un fichier excel en fonction de l'état d'une cellule et surtout que je choisi le nom du fichier (archivage de donnée). Enregistrer du texte [ par vinsus51 ] objet: 1 zone de texte 1 bouton Je souhaite enregistrer mon texte dans un fichier texte ou un fichier word sous c: Si qq peut m'aider Merci d'avanceV


Nos sponsors


Sondage...

Comparez les prix


Sony Ericsson XPERIA X10 (1 Go)
Entre 649€ et 649€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,357 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)