Sauvegarder le contenu du presse-papier dans un fichier ?
2 réponses
teddy
Bonjour,
Il est facile de sauvegarder le contenu du presse-papier ClipBoard dans un
fichier si c'est du texte avec :
Clipboard.GetData() puis enregistrer ce contenu dans un fichier texte.
J'ai besoin de sauvegarder une image d'écran obtenue avec la touche
PRINT-SCREEN.
Comment enregistrer dans un fichier le bitmap récupéré dans le ClipBoard ?
Une solution "bricolée" consiste à utiliser l'objet PictureBox, mais n'y
aurait-il pas un autre moyen sans employer d'objets qu'il faut coller sur la
feuille (form). Cela serait plus pratique pour créer une fonction (dans un
module) indépendante des Forms.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
John Smith
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = &H2C
'theFile > le path du fichier a saver Public Function SaveScreen(ByVal theFile As String) As Boolean If IsFileExist(theFile) = True Then Kill theFile End If Clipboard.clear Call keybd_event(vbKeySnapshot, 0, 0, 0) DoEvents SavePicture Clipboard.GetData(vbCFBitmap), theFile End Function
juste a caller la function pour saver l'image de l'écran
" teddy" wrote in message news:eQO%
Bonjour,
Il est facile de sauvegarder le contenu du presse-papier ClipBoard dans un fichier si c'est du texte avec : Clipboard.GetData() puis enregistrer ce contenu dans un fichier texte.
J'ai besoin de sauvegarder une image d'écran obtenue avec la touche PRINT-SCREEN.
Comment enregistrer dans un fichier le bitmap récupéré dans le ClipBoard ?
Une solution "bricolée" consiste à utiliser l'objet PictureBox, mais n'y aurait-il pas un autre moyen sans employer d'objets qu'il faut coller sur la feuille (form). Cela serait plus pratique pour créer une fonction (dans un module) indépendante des Forms.
Ted
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
'theFile > le path du fichier a saver
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function
juste a caller la function pour saver l'image de l'écran
" teddy" <teddy@wanadoo.fr> wrote in message
news:eQO%23yCncGHA.4932@TK2MSFTNGP03.phx.gbl...
Bonjour,
Il est facile de sauvegarder le contenu du presse-papier ClipBoard dans un
fichier si c'est du texte avec :
Clipboard.GetData() puis enregistrer ce contenu dans un fichier texte.
J'ai besoin de sauvegarder une image d'écran obtenue avec la touche
PRINT-SCREEN.
Comment enregistrer dans un fichier le bitmap récupéré dans le ClipBoard ?
Une solution "bricolée" consiste à utiliser l'objet PictureBox, mais n'y
aurait-il pas un autre moyen sans employer d'objets qu'il faut coller sur
la feuille (form). Cela serait plus pratique pour créer une fonction (dans
un module) indépendante des Forms.
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = &H2C
'theFile > le path du fichier a saver Public Function SaveScreen(ByVal theFile As String) As Boolean If IsFileExist(theFile) = True Then Kill theFile End If Clipboard.clear Call keybd_event(vbKeySnapshot, 0, 0, 0) DoEvents SavePicture Clipboard.GetData(vbCFBitmap), theFile End Function
juste a caller la function pour saver l'image de l'écran
" teddy" wrote in message news:eQO%
Bonjour,
Il est facile de sauvegarder le contenu du presse-papier ClipBoard dans un fichier si c'est du texte avec : Clipboard.GetData() puis enregistrer ce contenu dans un fichier texte.
J'ai besoin de sauvegarder une image d'écran obtenue avec la touche PRINT-SCREEN.
Comment enregistrer dans un fichier le bitmap récupéré dans le ClipBoard ?
Une solution "bricolée" consiste à utiliser l'objet PictureBox, mais n'y aurait-il pas un autre moyen sans employer d'objets qu'il faut coller sur la feuille (form). Cela serait plus pratique pour créer une fonction (dans un module) indépendante des Forms.
Ted
teddy
Merci !
"John Smith" a écrit dans le message de news: yRH7g.1914$
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = &H2C
'theFile > le path du fichier a saver Public Function SaveScreen(ByVal theFile As String) As Boolean If IsFileExist(theFile) = True Then Kill theFile End If Clipboard.clear Call keybd_event(vbKeySnapshot, 0, 0, 0) DoEvents SavePicture Clipboard.GetData(vbCFBitmap), theFile End Function
juste a caller la function pour saver l'image de l'écran
" teddy" wrote in message news:eQO%
Bonjour,
Il est facile de sauvegarder le contenu du presse-papier ClipBoard dans un fichier si c'est du texte avec : Clipboard.GetData() puis enregistrer ce contenu dans un fichier texte.
J'ai besoin de sauvegarder une image d'écran obtenue avec la touche PRINT-SCREEN.
Comment enregistrer dans un fichier le bitmap récupéré dans le ClipBoard ?
Une solution "bricolée" consiste à utiliser l'objet PictureBox, mais n'y aurait-il pas un autre moyen sans employer d'objets qu'il faut coller sur la feuille (form). Cela serait plus pratique pour créer une fonction (dans un module) indépendante des Forms.
Ted
Merci !
"John Smith" <spam@spam.com> a écrit dans le message de news:
yRH7g.1914$aq5.84591@news20.bellglobal.com...
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
'theFile > le path du fichier a saver
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function
juste a caller la function pour saver l'image de l'écran
" teddy" <teddy@wanadoo.fr> wrote in message news:eQO%23yCncGHA.4932@TK2MSFTNGP03.phx.gbl...
Bonjour,
Il est facile de sauvegarder le contenu du presse-papier ClipBoard dans un fichier si c'est du
texte avec :
Clipboard.GetData() puis enregistrer ce contenu dans un fichier texte.
J'ai besoin de sauvegarder une image d'écran obtenue avec la touche PRINT-SCREEN.
Comment enregistrer dans un fichier le bitmap récupéré dans le ClipBoard ?
Une solution "bricolée" consiste à utiliser l'objet PictureBox, mais n'y aurait-il pas un autre
moyen sans employer d'objets qu'il faut coller sur la feuille (form). Cela serait plus pratique
pour créer une fonction (dans un module) indépendante des Forms.
"John Smith" a écrit dans le message de news: yRH7g.1914$
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = &H2C
'theFile > le path du fichier a saver Public Function SaveScreen(ByVal theFile As String) As Boolean If IsFileExist(theFile) = True Then Kill theFile End If Clipboard.clear Call keybd_event(vbKeySnapshot, 0, 0, 0) DoEvents SavePicture Clipboard.GetData(vbCFBitmap), theFile End Function
juste a caller la function pour saver l'image de l'écran
" teddy" wrote in message news:eQO%
Bonjour,
Il est facile de sauvegarder le contenu du presse-papier ClipBoard dans un fichier si c'est du texte avec : Clipboard.GetData() puis enregistrer ce contenu dans un fichier texte.
J'ai besoin de sauvegarder une image d'écran obtenue avec la touche PRINT-SCREEN.
Comment enregistrer dans un fichier le bitmap récupéré dans le ClipBoard ?
Une solution "bricolée" consiste à utiliser l'objet PictureBox, mais n'y aurait-il pas un autre moyen sans employer d'objets qu'il faut coller sur la feuille (form). Cela serait plus pratique pour créer une fonction (dans un module) indépendante des Forms.
