Discussion :

[Orion1452]

Bonjour à toutes et à tous,

Dans le cadre de mon métier, j'ai beaucoup programmé en VB6 (maintien et évolution de logiciel) et maintenant on me demande de passer toutes ces applications en VB.NET.
Novice, j'ai donc récupéré des cours (P. Lasserre en particulier) et pour une grande partie du code, j'ai réussi la traduction.
En revanche, je bloque sur un problème graphique.
En VB6, dans une picture box, je dois faire bouger avec la souris un cercle qui doit laisser derrière lui la trajectoire de son centre. Pour le cercle j'ai écrit ceci et ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
Private Sub mon_image_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mon_image.MouseMove
        Me.mon_image.Invalidate()
End Sub
 
Private Sub mon_image_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles mon_image.Paint
        Dim pt As Point = mon_image.PointToClient(Control.MousePosition)
        e.Graphics.DrawEllipse(monStylo, pt.X, pt.Y, 30, 30)
End Sub

Mon problème est que je n'arrive pas à tracer le centre du cercle avec sa trajectoire.
Cela doit vous sembler trivial, mais je bloque vraiment, j'ai lu des tuto qui me disent d'utiliser drawlines mais rien ne se trace.
Merci d'avance pour votre soutien.

[MABROUKI]

Bonjour

Il faut lire les tutos de la FAQ du forum sur l'API GDI+,tout y est.

voici un exemple code .vb qui utilise intensivement la structure Rectangle (elle est présente partout dans GDI+ quand il s'agit de dessiner des figures de base)

code behind.vb qui fera peut etre ton bonheur:

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
 
 
Public Class Form2
    Private startPoint As Point = Point.Empty
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        startPoint = e.Location
    End Sub
 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        Me.PictureBox1.Invalidate()
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim pt As Point = Me.PictureBox1.PointToClient(Control.MousePosition)
        Dim rect As New Rectangle(pt.X, pt.Y, 50, 50) ' rectangle englobant de ton Ellipse ou Cercle
        e.Graphics.DrawEllipse(Pens.Yellow, rect) 'dessine ton Ellipse ou Cercle
        e.Graphics.DrawRectangle(Pens.Red, rect) 'dessine son rectangle englobant
 
        Dim centerEllipse As New Point(pt.X + 25, pt.Y + 25) 'center  de ton Ellipse ou Cercle
 
        'le rectangle englobant de ton centre sous forme d'Ellipse
        Dim rectCenter As New Rectangle(centerEllipse.X - 5, centerEllipse.Y - 5, 2 * 5, 2 * 5)
 
        'crayon pointillé
        Dim penLine As New Pen(Brushes.Magenta, 1.0)
        penLine.DashStyle = Drawing2D.DashStyle.Dash
 
        'dessine le centre du cercle sous forme d'ellipse
        e.Graphics.DrawEllipse(penLine, rectCenter)
 
        'dessine  la ligne "traceuse"
        e.Graphics.DrawLine(penLine, startPoint, centerEllipse)
 
 
    End Sub
 
 
End Class

bon code...