PROG DE DESSIN

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 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 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:05:42

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

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 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.