Dessiner une line sur une ShapeRésolu

Question

Bonjour &#224; vous,

j'ai d&#233;plac&#233; ce sujet depuis le th&#232;me Divers vers le th&#232;me Graphique.



voici mon probl&#232;me :
j'aimerais :
   - dessiner des traits dynamiquement dans une shape avec la fonction "line" (&#231;a c'est OK)
   - mette une couleur de fond &#224; la Shape (&#231;a aussi)
   - et surtout que la form dans laquelle se trouve la Shape ait la propri&#233;t&#233; AutoRedraw = true

comment faire pour que mes traits apparaissent, et restent ?
A cause de la propri&#233;t&#233; AutoRedraw = true, ils n'apparaissent pas !

@+

Gobillot · Accepted Answer

je corrige le code pr&#233;c&#233;dent, il manque le nom.

   For i = 1 To nombreline

           Unload Line1(i)

           Next



en m&#233;moire &#231;a va prendre un peu de place mais pas trop,

je compte quelques centaines de milliers d'octets pour 1200 controles,

c'est pas &#233;norme et c'est un controle qui prend le moins de m&#233;moire,.

en ressource &#231;a prend 10% pendant un temps assez court, donc c'est assez raisonnable

en temps machine je sais pas, j'ai pas test&#233;.

on peut peut &#234;tre optimiser, et ne pas recharger les m&#234;mes controles &#224;
chaque fois, mais &#231;a va obliger &#224; tester et &#231;a va prendre encore du
temps... &#224; voir


je pense &#224; autre chose:

tu peux remplacer les shapes par des rectangles:

   Me.Line (100, 100)-(300, 300), vbRed, BF

mais faudra les redessiner &#224; chaque fois, ou les mettre dans l'&#233;v&#234;nement Form_Paint, et enlever l'Autoredraw.

&#231;a aussi &#231;a prend pas mal de ressources.



Daniel

katsankat · Answer

Salut :)

Le contr&#244;le Shape n' a pas de propri&#233;t&#233; Autoredraw.

Par contre PictureBox en a une.

Gobillot · Answer

- dessiner des traits dynamiquement dans une shape avec la fonction "line" (&#231;a c'est OK)



    ben non c'est pas OK,

    tu dessine sur la Forme et pas dans la Shape,

    donc les lignes seront toujours en dessous des contr&#244;les.



  - mette une couleur de fond &#224; la Shape (&#231;a aussi)



     si la Shape n'est plus transparente la ligne n'apparaitra plus



  - et surtout que la form dans laquelle se trouve la Shape ait la propri&#233;t&#233; AutoRedraw = true



     ben justement c'est ce qui emp&#234;che la ligne de s'effacer



si tu veux une ligne au dessus de la shape, tu peux mettre le contr&#244;le line

&#231;a marche sur certains contr&#244;les (shape, Label, image)

et pas d'autres (picturebox, bouton)

    
Daniel

pecheur_de_truite · Answer

Bonjour,

Ce que tu dis est vrai sur toute la ligne !!!
Par contre concernant le contr&#244;le line &#224; mettre au-dessus de la Shape, c'est vrai que c'est une solution ...
MAIS, mon appli repr&#233;sente un sonogramme, dont les amplitudes sont dessin&#233;es par des lines, donc je peux pas dessiner + de 1000 contr&#244;les lines ...
De plus actuellement pour effacer le sonogramme, je fais Form.Cls, et ensuite je rappelle la fonctionne derri&#232;re pour afficher le sonogramme suivant.

Si vous avez une id&#233;e ?

@+

Gobillot · Answer

&#224; moins d'avoir des shapes transparentes, je vois pas comment faire.

avec des controles en dynamiques, &#231;a marche,

j'arrive &#224; 1257 contr&#244;les

il faut Me.Scalemode en pixels.

pour le cls, il faut faire les Unload correspondants





Private Sub Command1_Click()

    Dim i  As Integer

    Dim x  As Double

    Dim y  As Double

    Dim z  As Double

    

    Me.Line (0, Me.ScaleHeight / 2)-(Me.ScaleWidth, Me.ScaleHeight / 2), vbGreen

    

    For z = 0 To 6.28 Step 0.005

        i = i + 1

        Load Line1(i)

        Line1(i).X1 = x

        Line1(i).Y1 = y

        x = z * 100

        y = Sin(z) * 100 + Me.ScaleHeight / 2

        Line1(i).X2 = x

        Line1(i).Y2 = y

        Line1(i).ZOrder

        Line1(i).Visible = True

        Next

    MsgBox i

    

End Sub


Daniel

pecheur_de_truite · Answer

Re,
merci pour ta r&#233;ponse ...
Donc si je comprends bien tu dessines une seul ligne en graphique sur ta form avec un index = 4000 ou 5000
et inat&#233;gnable par ta boucle, c'est bien &#231;a ?
Et ensuite il faut remplacer tous les .cls par des une boucle qui unloade toutes les lignes, c'est bien &#231;a aussi ?

@+

Gobillot · Answer

oui,

tu met un controle line, un seul avec index = 0

bien sur j'ai exag&#233;r&#233; pour le step 0.005
parce que si le pas est trop petit, les controles line ne sont pas
visibles, mais ici c'&#233;tait des coordonn&#233;es calcul&#233;es pour une fonction
sinus.


pour le cls faut avoir conserv&#233; le nombre de line cr&#233;&#233;es.

le faire avant de cr&#233;er un nouveau graphique.

    For i = 1 To nombreline

        Unload i

        Next




Daniel

pecheur_de_truite · Answer

Oui OK !!

Et bien en tout cas, Monsieur Gobillot,
grand merci et chapeau bas !

@+
Olivier

pecheur_de_truite · Answer

Ha au fait, penses-tu que ce soit + long en teme de temps machine ou que &#231;a prenne + de ressource CPU ou ressource m&#233;moire de faire ainsi plut&#244;t qu'avec la fonction object.Line ?

katsankat · Answer

Depuis quand il vaut mieux charger 25000 contr&#244;les l&#224; ou
picture1.Line() et Picture1.cls font l' affaire? Dans un contr&#244;le
utilisateur &#231;a autoredrawe bien en plus.

Dessiner une line sur une Shape

10 réponses

Discussions similaires