Discussion :

[Lucas42]

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

[jmfmarques]

en en changeant la couleur ...
Ceci étant dit, une autre fois, ne sera certes pas valable si le polygone se trouve sur un activex et que tu cherches à en modifier la couleur depuis une appli où tu l'as installé, sans avoir contruit les propriétés ad hoc du dit activex (c'est comme pour le timer, rappelle-toi !)

[Lucas42]

tkt , j'ai appri bcp ce week a propos es activeX , tous les posts que j'ai mis today sont fait sous un controle activex , donc tout est cool , sauf que ne pouvant pas utiliser la fontion visible , je vois pas comment je pe faire pour faire clignoter ...

[jmfmarques]

Construction de la propriété Visiblemachin applicaple au polygone de l'activex
ou
contruction de la propriété colormachin applicable au polygone concerné de ton ocx

Sans l'une ou l'autre de ces propriétes construites pour permettre la communication entre l'appli sur laquelle tu insères ton activex (et donc apparaissant, au stade développement, dans la fenêtrre des propriétés de ton activex dès son placement sur ta Form), tu ne pourras pas modifier les propriétés internes de l'activex.

C'est CA, un activex (ce n'est pas une Form !)

[Lucas42]

re , bon , en fait , mon pb ne vient pas du fait que j'utilise un activeX , la preuve , si je fais pareil sur une feuille .exe standart , comment faire pour faire clignoter mon polygon ?????

[jmfmarques]

sur une feuille exe standard ? donc où se trouve ton polygone EGALEMENT ?
Tu redessines ton polygone au même endroit en en faisant alterner la couleur !
Tout ceci, à vrai dire, est plutôt curieux car j'aurais personnellement dessiné mon polygone, tout bêtement (mais je suis très bête) dans une picturebox dont j'aurais, également tout bêtement, utilisé la propriété visible que j'aurais fait alterner entre true et false (mais, une autre fois, je ne suis pas très futé !...)

[riesseg]

ou tout betement un .bmp representant un sablier :p

donc dans une image ou picture box

donc qvec visible true/false :p

[jmfmarques]

Bien évidemment, Riesseg
Mais il veut en plus en changer la couleur (l'un de ses très nombreux messages précédents). Et bien que son "patron"/"prof" lui ait soufflé (j'ai vu) et que je lui aie parlé de PictureClip, il continue avec ses 2 triangles inversés (il y tient)

[Lucas42]

L'idée de la picture box n'est pas bête , mais le soucis que mon patron a soulevé est : comment faire apparaitre à l'ecran SEULEMENT le sablier , et non pas toute la form coloré derriere , donc je pense que si j'utilise une picture box , il va i avoir une couleur qui sera visble car mon polygon n'est pas rectangulaire ......

EDIT : oui je tient à dessiner mes 2 triangle inversé car je peut ainsi les redimensioner à ma guise dans POURRIR la definition ..... ^^

[riesseg]

Oo

suffit que tu mette la couleur de fond de la picture box de la meme couleur que la form qui est derriere...

pis voila

[Lucas42]

c'est ce qu'on va faire , mais c peinible dans la mesure ou mon activeX va se trouver sur une page de supervision , donc cad qu'il ya deja plein d'element et que des fois ca va se recouper ....

mais j'adopte cette solution

merci