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