Je m'en suis sorti pour l'epaisseur mais j'ai un pb avec la gomme et le cercle...
Pour la gomme je voulais me servir de l'outil pour faire des courbe et mettre une couleur blanche mzis j'ai un message d'erreur.
Pour le cercle ça ne fonctionne pas tres bien , le cercle se trace mais je defini pas bien le rayon en bougeant la souris...
Pouvez vous m'aider ?
Voici mon code :
Option Explicit
Private FoncGraph As Integer
Private Couleur As Integer
Private EpTrait As Integer
Private EpGomme As Integer
Private Orx, Ory As Single
Private Oldx, Oldy As Single
Private XF, YF As Single
Private NomFichier As String
Private TempNom As String
Private Dessin As Integer
Private Epaisseur As Integer
Private R As Single
Private Sub ClearAll_Click()
If ClearAll = True Then Picture1.Cls
End Sub
Private Sub Couleurs_Click(Index As Integer)
Couleur = Index
Select Case Couleur
Case 0
Couleur = 0
Case 1
Couleur = 4
Case 2
Couleur = 2
Case 3
Couleur = 1
End Select
End Sub
Private Sub Form_Load()
Const Gomme = 0
Const Ligne = 1
Const Segment = 2
Const Cercle = 3
EpTrait = 2
End Sub
Private Sub OutilsDessin_Click(Index As Integer)
Dessin = Index
Select Case Dessin
Case 0
Infos.Caption = "Outil Spline"
Case 1
Infos.Caption = "Outil Trait"
Case 2
Infos.Caption = "Outil Cercle"
Case 3
Infos.Caption = "Outil Gomme"
End Select
End Sub
Private Sub Picture1_Click()
If Dessin = 1 Then
Picture1.DrawWidth = EpTrait
Picture1.Line (Orx, Ory)-(XF, YF), QBColor(Couleur)
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Orx = X
Ory = Y
Oldx = X
Oldy = Y
If Dessin = 2 And Button = 1 Then fonction cercle, il dois y avoir une erreur qq part.
Picture1.DrawWidth = EpTrait
R = (Val(XF - Orx) ^ 2 + Val(YF - Ory) ^ 2) ^ (0.5)
Picture1.Circle (Orx, Ory), R, QBColor(Couleur)
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Dessin = 0 And Button = 1 Then
Picture1.DrawWidth = EpTrait
Picture1.Line (Oldx, Oldy)-(X, Y), QBColor(Couleur)
End If
Oldx = X
Oldy = Y
If Dessin = 3 And Button = 1 Then fonction gomme mais je sais pas si le 16 est bien le blanc
Picture1.DrawWidth = EpTrait ni si la syntaxe est bonne.
Picture1.Line (Oldx, Oldy)-(X, Y), QBColor(16)
End If
Oldx = X
Oldy = Y
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
XF = X
YF = Y
End Sub
Private Sub Trait_Click(Index As Integer)
Epaisseur = Index
Select Case Epaisseur
Case 0
EpTrait = 1
Case 1
EpTrait = 2
Case 2
EpTrait = 3
End Select
End Sub
Message édité par TopFrunix le 09-10-2005 à 13:45:40