Discussion :

[gaetan13]

Bonjour,
J'ai une petite question en ce qui concerne la gestion de dessins.
Je dessine environ 800 cases (qui sont des losanges), pour chaque j'ajoute dans une liste l'identifiant et des 4 point qui représentent le polygone.

Je veux que quand je passe sur un losange il change de couleur. Actuellement je parcours ma liste et pour chaque case je teste si la souris est dedans avec un truc dans ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Function PointIsInPolygon(ByVal polygon() As Point, _
    ByVal target_point As Point) As Boolean
 
    Dim path As New GraphicsPath()
    path.AddPolygon(polygon)
 
    Return path.IsVisible(target_point)
End Function

Ensuite je redessine par dessus les cases un polygone plein...Et quand la souris rebouge on recommence a dessiner les 800 cases.

Le problème c'est que c'est long et ça bug pas mal. Quelqu’un aurait une autre solution ?

[hunteshiva]

Bonjour,

je pense à 2 choses,

soit faire un tableau de coordonnées des losanges et faire une routine qui tests si la souris passe dans la surface d'un des losanges
(mais a mon avis pas très optimisé)

Sinon tu peux essayer d'implémenter un événement "MouseOn" à chacun de tes losanges.
Si ce sont des graphiques crées par le code, tu peux leur ajouter des événements.
Après je ne suis pas spécialiste, visiblement c'est avec un "AddHandler" que tu pourrais le faire

Code :

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

AddHandler myTextGenerator.OnTextChanged, AddressOf myTextGenerator_MonEvenement

Voir ce lien

Je dirais même que POL63 a montré que mon idée était réalisable dans ce post

Code :

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

1
2
3
       dim p as new picturebox
       uncontainer.controls.add(p) ' <- ici uncontainer = ta grande PictureBox
       addhandler p.click, addressof pct_click '<- tu ajoute l'événement à ta PictureBox

[gaetan13]

Merci,
Je doute que je puisse intégrer les Event, moi je dessine sur un bitmap ainsi :

Code :

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

1
2
 
      graphic.DrawPolygon(Pens.Black, PointArray)

[hunteshiva]

Quel est le but de ton dessin?
une animation? faire une impression en définitif?

[gaetan13]

C'est comme une carte donc il n'y aura pas d'impression

[hunteshiva]

Alors pourquoi ne pas passer par des "picturebox" dans une "picturebox_Mère" ?
tu pourrais facilement gérer le passage de la souris avec les évents.