Déplacer un cercle dans une image en VB

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:

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