Discussion :

[CARO_3D]

Salut,

Pour un projet d'école, je désire réaliser un logiciel. J'ai commencé à apprendre la programmation avec VB 2010, mais je suis encore qu'une débutante.

Bref, une partie de mon logiciel consiste à tracer une ligne comme dans Word ou PowerPoint sur une PictureBox. Donc, je voudrais faire comme dans cette vidéo (

), mais avec MouseDown et MouseUp pour déterminer les coordonnées.

Des pistes ?

Merci à l'avance!

[davjan]

Hello,

tu peux récupérer la position de la souris par la propriété MousePosition.
Il te reste plus qu'à créer des variables dans lesquels tu stockes MousePosition.X et MousPosition.Y dans le évenements MouseDown et MouseUp avant de les utiliser dans le drawLine.

[jpg75014]

Bonjour,

Je me greffe sur cette discussion concernant mouseposition.X et mouseposition.Y dont je me sers dans mon application.

J'ai l'impression que mouseposition prend en compte la position sur l'écran et non sur le formulaire. J'aimerais pourtant avoir la position sur mon formulaire avec une corrélation avec les position Left et Top de ce dernier.

Merci beaucoup pour votre aide.

[davjan]

Ben, tu accède aux coordonnée de ton formulaire avec

Code :

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

this.Parent.Location.X  ...

et tu fais la soustraction pour avoir tes coordonnées par rapport à celui-ci et non à l'écran.

[Pol63]

ou sinon control.pointtoclient()

à noter qu'il faut dessiner dans l'évènement paint du control
donc il faut stocker quelques parts la(les) ligne(s) à dessiner pour pouvoir le refaire à chaque rafraichissement

[jpg75014]

merci pour vos réponses

ou sinon control.pointtoclient()

à noter qu'il faut dessiner dans l'évènement paint du control
donc il faut stocker quelques parts la(les) ligne(s) à dessiner pour pouvoir le refaire à chaque rafraichissement

si c'est à moi que ça s'adresse, ça ne me concerne pas, j'essaye juste de permettre à l'utilisateur de déplacer un bouton et donc le positionner là où la souris s'est arrêtée (MouseUp). C'est pourquoi je comptais utiliser MousePosition. Mais je vais essayer vos trucs.

Merci

[chrismonoye]

Bonjour,
a tester sur la surface d'un Picturebox :

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
    Dim ptA As Point
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        '*** Pour éventuellement nettoyer la vue.
        PictureBox1.Image = Nothing
        '*** récupère le point de départ de ligne.
        ptA = New Point(e.X, e.Y)
    End Sub
 
    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        '*** Récupère le point de fin de ligne.
        Dim ptB As Point = New Point(e.X, e.Y)
        ' Récupère l'objet Graphics correspondant à la surface du contrôle.
        Dim gr As Graphics = Me.PictureBox1.CreateGraphics
        ' Dessine la ligne selon les points en mémoire.
        gr.DrawLine(Pens.Red, ptA, ptB)
        gr.Dispose()
    End Sub

[Pol63]

(...)

sauf que ca va s'effacer ...

[Geo2A]

Bonjour,

J'aimerais pourtant avoir la position sur mon formulaire avec une corrélation avec les position Left et Top de ce dernier.

En utilisant (et il le faut) pointtoclient comme indiqué par Pol63 vous allez obtenir les coordonnées relativement à la zone client d'une fenêtre, non pas par rapport à la fenêtre elle même. La zone client exclu la bordure et la barre de titre. Le left top que vous indiquez est relatif à la position de la fenêtre complète sur l'écran ou le conteneur MDI.

Pour la question initiale et de façon à ce que tout cela ne s'efface pas, et puisque nous sommes dans un langage objet il faut penser objet. Donc créer une classe, qui aura des propriétés comme X1, X2 etc qui stockeront les position en mouse_down et mouse_up et une fonction dessine.

D'autre part si vous souhaitez faire un véritable outil de tracer de ligne vous allez être confronté à un pb insoluble (à ma connaissance ) en .Net GDI+ c'est celui de la gestion des raster op (mode XOR). En effet pour dessiner une ligne entre mouse_down (on stocke le pt de départ) et le mouse_up (on stocke le pt final) il y a le mouse_move où là normalement on dessine une ligne qui va du pt de départ à la position actuelle. En fait on dessine une ligne en mode XOR qui va du pt de départ à la position précédente et une ligne du pt de départ à la position courante. La solution que j'ai adoptée et l'utilisation des API32 qui elles permettent de gérer les rasterop.

[Pol63]

D'autre part si vous souhaitez faire un véritable outil de tracer de ligne vous allez être confronté à un pb insoluble (à ma connaissance ) en .Net GDI+ c'est celui de la gestion des raster op (mode XOR). En effet pour dessiner une ligne entre mouse_down (on stocke le pt de départ) et le mouse_up (on stocke le pt final) il y a le mouse_move où là normalement on dessine une ligne qui va du pt de départ à la position actuelle. En fait on dessine une ligne en mode XOR qui va du pt de départ à la position précédente et une ligne du pt de départ à la position courante. La solution que j'ai adoptée et l'utilisation des API32 qui elles permettent de gérer les rasterop.

je ne comprends pas trop ton histoire de rasterop, et google ne veut pas trop m'aider, mais il y a les bufferedgraphics qui permettent de faire pas mal de choses (comme de l'undo ou du déplacement de ligne, ou tout ce que fait paint je pense)

[CARO_3D]

Merci beaucoup pour toutes vos réponses. J'ai essayé celle de chrismonoye et ça fonctionne à merveille!

[Geo2A]

Bonsoir,

je ne comprends pas trop ton histoire de rasterop

Le rasterop c'est la façon dont les pixels se combinent pour former une image. Le mode classique par défaut et AND un pixel Bleu AND un pixel Rouge égale un pixel Noir : (255,0,0) AND (0,0,255) = (0,0,0) (je passe sous silence la conversion d'une valeur BGR en entier).

Le mode XOR (ou exclusif) permet de tracer une ligne par exemple (0,0 ; 20,20) en rouge, puis si on trace la même ligne toujours en mode XOR cela restitue le fond d'origine car une ligne rouge XOR la même ligne = invariance (fond d'origine).
C'est cette techno qui est utilisée pour dessiner un cadre de sélection avec la souris.

Pour google :

http://www.leptonica.com/rasterops.html

Et une esquisse de solution avec GDI+ (en C#) que je n'aime pas.

http://support.microsoft.com/kb/314945/fr

A+

[CARO_3D]

Bonjour,
a tester sur la surface d'un Picturebox :

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
    Dim ptA As Point

    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        '*** Pour éventuellement nettoyer la vue.
        PictureBox1.Image = Nothing
        '*** récupère le point de départ de ligne.
        ptA = New Point(e.X, e.Y)
    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        '*** Récupère le point de fin de ligne.
        Dim ptB As Point = New Point(e.X, e.Y)
        ' Récupère l'objet Graphics correspondant à la surface du contrôle.
        Dim gr As Graphics = Me.PictureBox1.CreateGraphics
        ' Dessine la ligne selon les points en mémoire.
        gr.DrawLine(Pens.Red, ptA, ptB)
        gr.Dispose()
    End Sub

Merci encore! Ça marche vraiment bien!

Je voulais savoir maintenant comment modifier l'épaisseur du trait sur un Pens. J'ai essayé les méthodes pour Pen, mais ça marche pas. Comment devrais-je l'écrire dans ce programme.

[Pol63]

pens.red est une instance de pen fournit par microsoft, tu peux en instancier un pour le définir comme tu veux

dim p as pen

et ensuite lui donner sa couleur, son épaisseur, si tu veux des pointillés etc...

[CARO_3D]

Je suis aller voir dans msdn et j'ai fait comme suit:

Code :

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

1
2
Dim pinceau As Pen
    pinceau.Width = 2.0F

Mais ça me dit «Déclaration attendue» alors que j'ai déjà un Dim.

[CARO_3D]

J'ai trouvé la réponse à mon problème. Je dois écrire Dim pinceau As Pen dans Private Sub et non dans Public Class.

[Pol63]

tu peux le mettre dans le sub, c'est surtout qu'il faut un new
enfin ce qu'il faudrait plus c'est lire ca : http://plasserre.developpez.com/cours/vb-net/

[mdegremo]

Bonjour, je reviens sur :

'*** Pour éventuellement nettoyer la vue.
PictureBox1.Image = Nothing

Tout en gardant une image

'*** Pour éventuellement nettoyer la vue.
PictureBox1.refresh