COMMENT DUPLIQUER UN CONTROLE

COMMENT DUPLIQUER UN CONTROLE
par exemple un shape j'ai essayer:

dim ShapeX as Shape
Set ShapeX = New Shape

mais ca m'indique une erreur VITE DE L'AIDE

t'as essayer en enlevant le New? car moi avec ca:
Dim dbHwnd As Database
Set dbHwnd = OpenDatabase(App.Path & "\Option.mdb")

ca ne me donne pas d'erreur.

-------------------------------
Réponse au message :
-------------------------------

COMMENT DUPLIQUER UN CONTROLE
par exemple un shape j'ai essayer:

dim ShapeX as Shape
Set ShapeX = New Shape

mais ca m'indique une erreur VITE DE L'AIDE

Mais pour dupliquez un shape comment je fait.

Adieu p'tit

une solution:
tu a un controle de base existant sur ta form qui s'appelle ctrlDivers

tu met 0 dans sa propriete index
(tu crée un tableau)

il s'appelle ctrlDivers(0)

dans ton code tu tape
load ctrlDivers(1)
a l'origine il est identique au premier (position, proprietes) mais invisible
et tu change ses proprietes comme un controle normal
ctrldivers(1).top = ctrldivers(0).top+ctrldivers(0).height
ctrldivers(1).visible = true

ATTENTION
il fo le décharger à la fin de l'utilisation ave unload
unload ctrldivers(1)

tu peux comme ca creer plein de copies de ton controle de base..

et....
et....
ca marche.......


A r'vi pa...

Partager ce qu'on sait c'est laisser une trace de notre passage...


-------------------------------
Réponse au message :
-------------------------------

Mais pour dupliquez un shape comment je fait.

merci bcp man tres bon systeme marche nickel sur mon activeX pour créer un agenda dynamiquement
++
booster2000


-------------------------------
Réponse au message :
-------------------------------

>
> Adieu p'tit
>
> une solution:
> tu a un controle de base existant sur ta form qui s'appelle ctrlDivers
>
> tu met 0 dans sa propriete index
> (tu crée un tableau)
>
> il s'appelle ctrlDivers(0)
>
> dans ton code tu tape
> load ctrlDivers(1)
> a l'origine il est identique au premier (position, proprietes) mais invisible
> et tu change ses proprietes comme un controle normal
> ctrldivers(1).top = ctrldivers(0).top+ctrldivers(0).height
> ctrldivers(1).visible = true
>
> ATTENTION
> il fo le décharger à la fin de l'utilisation ave unload
> unload ctrldivers(1)
>
> tu peux comme ca creer plein de copies de ton controle de base..
>
> et....
> et....
> ca marche.......
>
>
> A r'vi pa...
>
> Partager ce qu'on sait c'est laisser une trace de notre passage...
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Mais pour dupliquez un shape comment je fait.
>