Discussion :

[mattmax]

Bonjour,

J'ai créer un ecran ou dedans j'ai une picture box ou je dessine des carrés et je voudrais que quand je clique sur un carré é il se colore en rouge pour se faire j'ai ecrit le code suivant mais il ne fonctionne pas j'aurais besoin de quelques conseils

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
 
  Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        Dim posXsouris As Double
        Dim posYsouris As Double
        Dim posXcarre As Integer
        Dim posYcarre As Integer
 
 
        Me.Cursor = New Cursor(Cursor.Current.Handle)
 
        posXsouris = e.X
        posYsouris = e.Y
 
        posXcarre = Math.Truncate(((posXsouris - 125) / 50) + 1)
        posYcarre = Math.Truncate(((posYsouris - 50) / 50) + 1)
 
        posXcarre = posXcarre * 50
        posYcarre = posYcarre * 50
 
        Dim myBrush = New System.Drawing.SolidBrush(System.Drawing.Color.Red)
 
        Dim g As System.Drawing.Graphics
 
        g = System.Drawing.Graphics.FromImage(Me.PictureBox1.Image)
        g.FillRectangle(myBrush, New Rectangle(posXcarre, posYcarre, 50, 50))
    End Sub

Mon ecran se presente comme ceci


Mon ecran a une taille de 1300 sur 650 et ma picture box de1050 par 550 et ma picture box a une localisation de 125,50

Merci d'avance

[mattmax]

Alors j'ai reussi a colorer un carré en rouge en rajoutant me.refresh a la fin de mon code mais mon probleme c'est que ca ne colore pas le bon carré je dois avoir un probleme de convertion de ma position de la souris en point

[mattmax]

j'ai reussi avec ce code

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
 
  posXsouris2 = e.X
        posYsouris2 = e.Y
 
 
        posXcarre = posXsouris2 \ 50
        posYcarre = posYsouris2 \ 50
 
 
        posXcarre = posXcarre * 50
        posYcarre = posYcarre * 50
 
 
 
 
 
        Dim myBrush = New System.Drawing.SolidBrush(System.Drawing.Color.Red)
 
        Dim g As System.Drawing.Graphics
 
        g = System.Drawing.Graphics.FromImage(Me.PictureBox1.Image)
        g.FillRectangle(myBrush, New Rectangle(posXcarre, posYcarre, 50, 50))
        Me.Refresh()