Enregistrer une image créer avec setpixel [Résolu]
chodavins
- Messages postés
- 7
- Date d'inscription
- jeudi 1 avril 2004
- Dernière intervention
- 25 mai 2007
- Messages postés
- 7
- Date d'inscription
- jeudi 1 avril 2004
- Dernière intervention
- 25 mai 2007
A voir également:
- Setpixelv
- Fsview enregistrement d'image en un seul fichier - Codes sources - Visual Basic / VB.NET (Graphique)
- Clique droit > enregistrer l'image sous ... - Codes sources - Flash (Menu & navigation)
- Affiche et enregistre une image d'une webcam (snapshot) à fréquence désirée - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Enregistrer une image contenue dans le presse-papier - Codes sources - Java (Systeme)
- Visual Basic / VB.NET : Enregistrer l'image d'un contrôle - CodeS SourceS - Guide
4 réponses
Meilleure réponse
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
tout dépend de ton autoredraw.
ce genre de chose, en somme :
Private Declare Function SetPixelV Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Sub Command1_Click()
SavePicture Picture1.Image, "c:\a.bmp"
End Sub<hr />
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Picture1.AutoRedraw = True
SetPixelV Picture1.hdc, x, y, vbRed
Picture1.Refresh
Picture1.AutoRedraw = False
End Sub , ----
By Renfield
Renfield
Admin CodeS-SourceS- MVP Visual Basic
ce genre de chose, en somme :
Private Declare Function SetPixelV Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Sub Command1_Click()
SavePicture Picture1.Image, "c:\a.bmp"
End Sub<hr />
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Picture1.AutoRedraw = True
SetPixelV Picture1.hdc, x, y, vbRed
Picture1.Refresh
Picture1.AutoRedraw = False
End Sub , ----
By Renfield
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 98 internautes ce mois-ci
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
NB. il faut que le ScaleMode soit à 3 - vbPixels pour que mon code fonctionne
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 98 internautes ce mois-ci
- Messages postés
- 15838
- Date d'inscription
- jeudi 8 août 2002
- Dernière intervention
- 4 mars 2013
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.