Bonjour,

J'ai un logiciel a modifié, ce logiciel programmé en VB me permet de déterminer la giration en metre d un bateau (demi tour) j ai besoin d un outil qui permet de determiné le rayon du cercle (approximatif). j'ai déterminé un programme interressant qui me permet de tracer sur mon graphique une LINE à l'interieur de ma picturebox ce qui me manque c'est de déterminer la longueur de la LINE que je trace afinde pouvoir l afficher en temps reel ds un label...

voici mon programme, je l ai transferer ds mon soft il s applique tres bien, maintenant pour finaliser le projet il faut que je determine la longueur du trait que je trace :

Code :

   
Option Explicit
 
Private mDragEnCours                As Boolean
 
Private Sub Form_Load()
  mDragEnCours = False
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  mDragEnCours = True
  With Line1
    .X1 = X
    .X2 = X
    .Y1 = Y
    .Y2 = Y
  End With
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If mDragEnCours Then
    With Line1
      .X2 = X
      .Y2 = Y
    End With
  End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  mDragEnCours = False
End Sub
 

ç rentabiliserait mon outil, je suis malheuresement un peu juste en connaissance de code ( j'etudie le etape par etape de Halvorson) mais ...il n y a pas la reponse à l interieur ;)

merci de votre aide...