PROG DE DESSIN
jotrash
Messages postés
373
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
19 juin 2007
-
2 juil. 2003 à 15:48
CYBOR2000 Messages postés 31 Date d'inscription samedi 19 février 2005 Statut Membre Dernière intervention 9 mars 2007 - 10 avril 2005 à 15:14
CYBOR2000 Messages postés 31 Date d'inscription samedi 19 février 2005 Statut Membre Dernière intervention 9 mars 2007 - 10 avril 2005 à 15:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7751-prog-de-dessin
https://codes-sources.commentcamarche.net/source/7751-prog-de-dessin
10 avril 2005 à 15:14
4 juil. 2003 à 19:11
et ben finalement mon prog interesse des gens im happy
MMMMMEEEERRRRRCCCCCIIIIIIII SSSSSAROS
4 juil. 2003 à 16:37
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.
3 juil. 2003 à 22:49
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
3 juil. 2003 à 22:47
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
3 juil. 2003 à 12:06
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 ?
3 juil. 2003 à 12:05
3 juil. 2003 à 12:03
3 juil. 2003 à 09:59
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
3 juil. 2003 à 09:17
3 juil. 2003 à 09:16
3 juil. 2003 à 00:34
Autrement là je ne peux pas tester ton programme mais je promet de le faire prochainement.
2 juil. 2003 à 15:48
je dis que ca vaut 4 et vous ?