Discussion :

[jlalexie]

Bonjour,

J'ai une image dans une PictureBox, et je veux tracer un cercle et pouvoir le déplacer avec la souris pour sélectionner un élément de cette image.
Je sais tracer le cercle, mais pas le déplacer. J'ai fait quelques recherches mais pas trouvé de solution en VB, alors que le sujet semble assez classique.

Merci pour votre aide.

[jlalexie]

J'ai résolu mon problème grâce à ce lien:

http://www.developpez.net/forums/d10.../creer-calque/


Ci joint mon bout de code pour ce que cela intéresserait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Public Class test_cercle2
    Private _g As System.Drawing.Graphics
    Private monStylo As New System.Drawing.Pen(System.Drawing.Color.Red)
    Private _mouseDown As Boolean
    Private x0, y0, Xf, Yf As Integer
    Private bitmap1 As Bitmap
    Const r_cercle As Integer = 12
 
    Private Sub test_cercle2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bitmap1 = Bitmap.FromFile("j:\cameras\images\im-10-04.jpg")
        pbDroite.Image = bitmap1
    End Sub
 
    Sub New()
        InitializeComponent()
        _g = pbDroite.CreateGraphics()
        _g.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed
    End Sub
 
    Private Sub pbDroite_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseDown
        _mouseDown = True
        Cursor = Cursors.Cross
    End Sub
 
    Private Sub pbDroite_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseMove
        If _mouseDown Then
            Xf = e.X
            Yf = e.Y
            pbDroite.Refresh()
            x0 = Xf - r_cercle
            y0 = Yf - r_cercle
            _g.DrawEllipse(monStylo, x0, y0, 2 * r_cercle, 2 * r_cercle)
            Centre.Text = "X0=" & x0.ToString & " Y0=" & y0.ToString
        End If
    End Sub
 
    Private Sub pbDroite_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseUp
        _mouseDown = False
        Cursor = Cursors.Arrow
    End Sub
End Class