copie picturebox

Question

Bonjour

Comment faire pour copier une picture box avec tous ses contrôles (picture box, images, labels, Richtextbox et boutons) d'une form à une autre?

jmfmarques · Answer

A quel stade (tu ne le précises pas!) ?
Celui du développement (design time) ou dynamiquement (runtime) ?

mJuJu · Answer

Exact. J'ai omis de dire que je voulais faire cette copie PENDANT LE RUNTIME.

jmfmarques · Answer

Tu ne peux le faire comme tu le ferais au sein de la même form...
Il te faudarit donc  ;
1) créer dynamiquement une picturebox picture1 dans ta Form2
2) lui donner les dimentions de la picturebox de picture1 de ta Form1
3) pour chaque contrôle de la picturebox picture1 de ta form1
- créer dynamiquement un contrôle de même type et lui donner toutes les propriétés du contrôle correspondant de ta picture1 de ta form1 et lui donner comme container la picture1 de ta Form2

mJuJu · Answer

C'est une solution et j'y ai déjà pensé. C'est un peu lourd mais ça marche. L'idée étant de créer un aperçu, j'ai recherché une solution plus simple. SUR UNE MEME FORM, j'ai créé une deuxième picturebox éventuellement de taille différente, et en utilisant l'API stretchblt, je suis arrivé à copier tous les contrôles de la 1ère picturebox dans la 2ème. Quand je veux faire ça sur une autre Form, ça ne marche plus. J'ai vérifié les propriétés autoredraw, j'ai fait des refresh, rien n'y fait. Peut-être y a-t-il un problème avec les pointeurs Hdc.

cs_Djedj · Answer

Attention aux API ***Blt : les Width et Height passés en paramètres sont en pixels! Si tu utilises les propriétés ScaleWidth et ScaleHeight de tes picturebox ou form comme valeurs, vérifie que leurs propriétés ScaleMode sont bien sur 3 - Pixel...

mJuJu · Answer

Tout est en pixels.

jmfmarques · Answer

1) Tu ne peux faire une création dynamique de type "indexé" que sur la même Form (je te l'ai dit)
2) ta copie de picturebox ne marcheras que si :
a) tu as bien fixé sa propriété aytoredraw = True
b) tu fais suivre l'utilisation de ta strechBlt par un
Picture.Picture = Picture1.Image 
avant de dire que :
Form2.Picture1.Picture  = Picture1.Picture

jmfmarques · Answer

Et n'aoublie pas, dans ta Form2, de mettre également la propriété Autoredraw de la picturebix qui s"y trouve à True elle aussi (sinon l'image disparaitra de la vue au changement de Form)

TMONOD · Answer

Hello,

eh les gars ! on fait de l'objet là !!
Rien de plus simple que de creer une nouvelle instance du form1 et de l'afficher :

dim form2 = new form1
form1.showDialog()
...

Non ??

Jcbé[^]

jmfmarques · Answer

Excellente idée, TMONOD...

Chez moi, il me faut écrire :

Private Sub Command1_Click()
    Set form2 = New Form1
    form2.Show
End Sub

Seul problème : voilà ce que veut mJuJju :

Comment faire pour copier une picture box avec tous ses contrôles (picture box, images, labels, Richtextbox et boutons) d'une form à une autre? 

et pas toute la Form

TMONOD · Answer

Une picturebox n'a pas de contrôles ?

Jcbé[^]

jmfmarques · Answer

Avant d'aller dormir, TMONOD, juste un rappel :

Une pictureBox (comme un Frame ou une Form), peut être utilisée comme container de contrôles .... et est souvent utilisée à cette fin.

TMONOD · Answer

Ah oui, c'est VB6 je me fais avoir à chaque fois !!!
(Non pas que l'on ne puisse pas faire la même chose avec .Net mais c'est complétement inutile).
Jcbé[^]

Copie picturebox

13 réponses

Votre réponse

Discussions similaires