begin process at 2012 02 10 20:44:50
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Graphique

 > PROG DE DESSIN

PROG DE DESSIN


 Information sur la source

Note :
6 / 10 - par 7 personnes
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Niveau :Débutant Date de création :02/07/2003 Date de mise à jour :03/07/2003 12:47:17 Vu / téléchargé :3 766 / 728

Auteur : jotrash

Ecrire un message privé
Site perso
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

 Description

voici un prog de dessin assez complet a mon goût
-ouvrir
-enregistrer
-imprimer
-rotation
-aid e
crayon
-pipette
-rectangle
-cercle
spray
-vrai pot de peinture
-selection
-couleur facon paintshoppr
-double couleur
-possibilite de tablette enclikant usr la couleurgauche ou droite
-possibilite de les inverser en cliquant
-code des couleurs
et des autres trucs    

Source

  • MISE A JOUR ::::
  • tra,sformation en fond d'écran
  • je cherche tjrs pour aire une fonction du genre couleur car ca marche pas ce que g
  • @+
 MISE A JOUR ::::
tra,sformation en fond d'écran
je cherche tjrs pour aire une fonction du genre couleur car ca marche pas ce que g
@+  

 Conclusion

pb avec la rotation normalemnt le code de la rotaion marche en twip et la je fonctionne ne pixel donc c moche et long donc si vous avez une solution
bientot ovales pinceau et flou mais pour linstant rien ne marche donc je fais encrore appel a vous
bn code a tous laissez moi une note des suggestions et de laide!!!!!!!!!!
@+ all bon code a tous    

 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 DESSINEUR V:3.0

 Sources de la même categorie

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
Source avec Zip Source .NET (Dotnet) APPLICATION DE DESSIN par fsafsafsaf
Source avec Zip Source avec une capture Source .NET (Dotnet) MERGEIMAGES par Le Pivert

Commentaires et avis

Commentaire de jotrash le 02/07/2003 15:48:04

laisserr moi des aides notes suggestions et puis voili voila
je dis que ca vaut 4 et vous ?

Commentaire de Saros le 03/07/2003 00:34:34

Fait transférer ton programme de la catégorie API à la catégorie Graphique...
Autrement là je ne peux pas tester ton programme mais je promet de le faire prochainement.

Commentaire de jotrash le 03/07/2003 09:16:29

oki merci jai transferer bon je voulais mettre une capture mais paint shop pro marche plus donc pour linstant je peux pas en mettre

Commentaire de jotrash le 03/07/2003 09:17:50

donc si quelqqun peut la faire et me lenvoyer se serait vraiment sympa

Commentaire de klok le 03/07/2003 09:59:03

il manque des scrollbars pour pouvoir deplacer l'image quand elle n'est pas complete si tu veut j'ai un petit ocx qui n'est pas tout a fait
finaliser mais devrait convertir pour le proghttp://www.vbfrance.com/article.aspx?Val=9531
et la gomme ne marche pas
moi je te mais 5/10


Commentaire de jotrash le 03/07/2003 12:03:58

la gomme marche chez moi et^pour deplacer limafge il faudrait que ma feulle st en mdi

Commentaire de jotrash le 03/07/2003 12:05:42

la gomme marche chez moi et^pour deplacer limafge il faudrait que ma feulle st en mdi

Commentaire de Saros le 03/07/2003 12:06:08

Pour la gomme, il manque un PictureBox, 'gomme'...
Tu pourrais voir pourquoi il n'y est pas ?
À part ça, tout va bien (bravo pour le boulot, par rapport à la première version il y a vraiment de la différence).
9/10
Pour imprimer, pourquoi tu n'utilise pas les boîtes de dialogue Windows par défaut ?

Commentaire de jotrash le 03/07/2003 22:47:50

je sais pas ca ne marchais pas ca se meter en file dattente mais nimprimer pas dons la au moins ca marche apres je verrai
c vrai que cest un peu le jour et la nuit mais ce projet ma donne envie daller plus loin  et je suis quand meme fier de moi pake je ssuis debutat et que bah il est pas si mauvais par rapport aux autres

Commentaire de jotrash le 03/07/2003 22:49:48

sinon pour la gomme c bizarre car cherz moi ca marche meme chez flameboy ca marche
et je cherche saros pour avoir tu sais pour la couleur ce que tu ma dis marche pas
pareil pour lovale
mais je cherche je vais voir ce qui coince mais bon je sais pas comment faire chez moi la gomme marche

Commentaire de Saros le 04/07/2003 16:37:10


Je t'avais proposé une version basic pour l'ellipse, je viens de l'implémenter, mais elle malheureusement elle a de gros désavantages, au niveau du cercle rempli.
Mais, héhé, il y a l'API Ellipse :
Declare Function Ellipse Lib "gdi32" ( _
                 ByVal hdc As Long, _
                 ByVal X1 As Long, _
                 ByVal Y1 As Long, _
                 ByVal X2 As Long, _
                 ByVal Y2 As Long) As Long
Et la version Ellipse serait :
Private Sub Fond_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Outil = 5 And Button = 1 Then 'pot de peinture, bouton droit
Fond.FillStyle = 0
Fond.FillColor = Couleurgauche.BackColor 'pot de peinture de couleur de la picturebox couleurgauche
ExtFloodFill Fond.hdc, X, Y, Fond.Point(X, Y), 1 'pour cette ligne il faut declarer extfloodfill dans un module
Fond.FillStyle = 1
ElseIf Outil = 5 And Button = 2 Then 'pot de peinture, bouton droit
Fond.FillStyle = 0
Fond.FillColor = Couleurdroite.BackColor 'pot de peinture de couleur de la picturebox couleurdroite
ExtFloodFill Fond.hdc, X, Y, Fond.Point(X, Y), 1 'pour cette ligne il faut declarer extfloodfill dans un module
Fond.FillStyle = 1
ElseIf Outil = 3 And (AncX <> 9999) And (AncY <> 9999) And Button = 1 Then 'cercle
CX = AncX + ((X - AncX) / 2)
CY = AncY + ((Y - AncY) / 2)
Fond.FillColor = Fond.BackColor 'l'intérieur du cercle est égale à la couleur de la form
Fond.FillStyle = 1
Ellipse Fond.hdc, AncX, AncY, X, Y
Fond.Refresh
AncX = 9999
AncY = 9999
ElseIf Outil = 3 And (AncX <> 9999) And (AncY <> 9999) And Button = 2 Then 'cercle
CX = AncX + ((X - AncX) / 2)
CY = AncY + ((Y - AncY) / 2)
Fond.FillColor = Fond.BackColor 'l'intérieur du cercle est égale à la couleur de la form
Fond.FillStyle = 1
Ellipse Fond.hdc, AncX, AncY, X, Y
Fond.Refresh
AncX = 9999
AncY = 9999
ElseIf Outil = 9 And (AncX <> 9999) And (AncY <> 9999) And Button = 1 Then 'cercle
CX = AncX + ((X - AncX) / 2)
CY = AncY + ((Y - AncY) / 2)
Fond.FillColor = Couleurgauche.BackColor 'l'intérieur du cercle est égale à la couleurgauche
Fond.FillStyle = 0
Ellipse Fond.hdc, AncX, AncY, X, Y
Fond.Refresh
AncX = 9999
AncY = 9999
ElseIf Outil = 9 And (AncX <> 9999) And (AncY <> 9999) And Button = 2 Then 'cercle
CX = AncX + ((X - AncX) / 2)
CY = AncY + ((Y - AncY) / 2)
Fond.FillColor = Couleurdroite.BackColor 'l'intérieur du cercle est égale à la couleurdroite
Fond.FillStyle = 0
Ellipse Fond.hdc, AncX, AncY, X, Y
Fond.Refresh
AncX = 9999
AncY = 9999
ElseIf Outil = 4 And (AncX <> 9999) And (AncY <> 9999) And Button = 1 Then
Fond.Line (AncX, AncY)-(X, Y), Couleurgauche.BackColor, BF 'je pense que tout est explicite
AncX = 9999
AncY = 9999
ElseIf Outil = 4 And (AncX <> 9999) And (AncY <> 9999) And Button = 2 Then
Fond.Line (AncX, AncY)-(X, Y), Couleurdroite.BackColor, BF 'je pense que tout est explicite
AncX = 9999
AncY = 9999
ElseIf Outil = 11 And Poly Then
Pselect.Move IIf(X > X1, X1, X), IIf(Y > Y1, Y1, Y), Abs(X1 - X), Abs(Y1 - Y)
BitBlt Pselect.hdc, 0, 0, Abs(X - X1), Abs(Y - Y1), Fond.hdc, Pselect.Left, Pselect.Top, &HCC0020
Pselect.Refresh
Shape1.Visible = False
Pselect.Visible = True
Poly = False
Else
Poly = True
End If
End Sub
Voilà !
Je l'ai testée, elle marche.
De plus, dans Form_Load, rajoute ça :
Couleur.Width = 2040
Ca permet de bien voir la barre d'outil couleur.
Pour ta rotation, je vais voir, mais je ne te promet rien...
Bonne continuation.

Commentaire de jotrash le 04/07/2003 19:11:59

whaaaaaaaaaaaa et bah ca cest du code
et ben finalement mon prog interesse des gens im happy
MMMMMEEEERRRRRCCCCCIIIIIIII SSSSSAROS

Commentaire de CYBOR2000 le 10/04/2005 15:14:39

au niveau du cercle rempli, emploi la propriété fillstyle de ta form

 Ajouter un commentaire




Nos sponsors


Sondage...

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 : 0,562 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales