Bonjour , voici ce que mon programme trace : un polygon qui a la forme d'un sablier :
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
Function TraceVanne2Voies()
  ScaleMode = vbPixels        ' dessine en pixel
  ForeColor = vbBlack         ' couleur trait en noir
  Line (140, 70)-(longueur, 70)
  Line (140, 70)-(longueur, hauteur)
  Line (longueur, 70)-(140, hauteur)
  Line (140, hauteur)-(longueur, hauteur)
  FillStyle = vbFSSolid       ' la forme dessinée est un solide
End Function
 
Sub CouleurObjet(red As Integer, green As Integer, blue As Integer)
  FillColor = RGB(255, 0, 0)
  FloodFill hDC, coord_x, coord_y1, ForeColor  ' colori la partie supérieure
  FloodFill hDC, coord_x, coord_y2, ForeColor  ' colori la partie inférieure
End Sub
Maintenant , j'aimerai pouvoir faire clignoter le POLYGON tracé , mais je ne vois vraiment pas comment m'y prendre avec le timer , car je ne peux pas utiliser la propriété VISIBLE=TRUE / VISIBLE=FALSE avec ma fonction ....
Comment faire ????

merci d'avance
amicalement lucas