ScreenShoot en vb.net
Résolu
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
-
1 sept. 2005 à 16:15
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 2 sept. 2005 à 00:56
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 2 sept. 2005 à 00:56
A voir également:
- Screenshooten
- Vb.net doevents - Forum Visual Basic
- Vb.net pdf viewer ✓ - Forum VB.NET
- Vb.net substring ✓ - Forum VB.NET
- Vb.net timer ✓ - Forum VB.NET
- Vb.net sleep - Forum VB.NET
4 réponses
cs_rt15
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
13
1 sept. 2005 à 17:26
1 sept. 2005 à 17:26
Y a aussi une solution avec un GetDC suivie d'un BitBlt (Deux API).
Le GetDC sert a récupérer le handle de contexte de l'écran.
Je crois qu'il faut mettre sont paramètre à 0.
Puis avec BitBlt, il faut mettre la résolution de l'écran en taille, et mettre le hDC de l'écran comme source et le hDC d'une PictureBox comme destin.
Je l'ai fait sous VB6, donc si tu veux plus d'info, demande ici.
Le GetDC sert a récupérer le handle de contexte de l'écran.
Je crois qu'il faut mettre sont paramètre à 0.
Puis avec BitBlt, il faut mettre la résolution de l'écran en taille, et mettre le hDC de l'écran comme source et le hDC d'une PictureBox comme destin.
Je l'ai fait sous VB6, donc si tu veux plus d'info, demande ici.
fohaf
Messages postés
60
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
6 septembre 2012
2
1 sept. 2005 à 16:24
1 sept. 2005 à 16:24
Pour l'imprim écran:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'****************************************************************************
Public Sub ImprimEcran()
Const touche = &H2C 'correspond à la touche imprim ecran
Const ecran = 0 'Défini la zone à imprimer
' 1-Nettoie le buffer du presse papier
Clipboard.Clear
' 2-Simule l'appui sur la toucheImprim Ecran
Call keybd_event(touche, ecran, 0&, 0&)
' 3-Attends que Windows rafraichisse le Presse papier
DoEvents
End Sub
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'****************************************************************************
Public Sub ImprimEcran()
Const touche = &H2C 'correspond à la touche imprim ecran
Const ecran = 0 'Défini la zone à imprimer
' 1-Nettoie le buffer du presse papier
Clipboard.Clear
' 2-Simule l'appui sur la toucheImprim Ecran
Call keybd_event(touche, ecran, 0&, 0&)
' 3-Attends que Windows rafraichisse le Presse papier
DoEvents
End Sub
Lutinore
Messages postés
3246
Date d'inscription
lundi 25 avril 2005
Statut
Membre
Dernière intervention
27 octobre 2012
41
1 sept. 2005 à 18:33
1 sept. 2005 à 18:33
Salut, désolé Fohaf mais ta méthode c'est du "bidouillage" on n'éfface pas le presse-papier !!
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
2 sept. 2005 à 00:56
2 sept. 2005 à 00:56
merci, j'avais fini par trouver ma solution sur le net et oui c,est bien avec BitBlt
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------
