comment creer une picturebox en soft en vb6

Question

FAB
salut a tous 

voila j ai une form1
 et je voudrai que dans form_load   un bout de prog me cr&#233;e picturebox  sur form1

j ai essay&#233; mais pas compris

mon idee etait 

dim pict1 as picturebox 
....
...

merci de m aider

l0st3d · Answer

Ben... personellement je te conseille de cr&#233;e ton picturebox en dans l'ide graphique de vb





cependant, j'ose deviner que tu veux cr&#233;e plusieur picturebox et ce sans faire picture1 picture2 picture3....



Si c'est le cas

  cr&#233;e 1 picturebox dans ta forme

  dans les propri&#233;t&#233; de celle ci, trouve l'attribut INDEX et mets le a 0

  ensuite pour en cr&#233;e de nouveau a partir de celle la

  tu utilise load picture1(Index)

  Note que l'index doit etre la suite logique du nombre de picturebox que tu a deja a ce nom

  pour l'avoir facilement utilise picture1.count



j'esp&#232;re que sa va t'aider

ORTIPIC · Answer

FAB repond

bien cool  l0st3d

helas  je connais 
  la creation sous ide   c est justement pas ce qui m interesse (sauf sur une autre form)
 et picture1(index) ne fais pas ce que je veus
   car si form2.picture1(0)
   alors je ne peus pas  creer form1.picture(1)     oui  oui  form1

car je veus creer une picture sur une form ou il n en existe pas avant le lancement du code

meme si je cree form1.picture1         --> picture1     ne deviendra jamais la reference de form2.picture2    a moins que je n est pas compris comment faire
----------------------------
Dim ooi As PictureBox
Set ooi = Form2.Picture2

Set Form1.Picture1 = ooi  '<--   pourquoi picture1 ne prend pas la couleur de picture2 ???
---------------------------------
ce code ne fais rien pourquoi ?

jpleroisse · Answer

Place un PictureBox sur ta form2 et tappe le code suivant dans form1.

Option Explicit
Private WithEvents picObj As PictureBox


Private Sub PicObj_Click()    'Ceci peut &#234;tre supprim&#233;
   MsgBox "Ceci est un Picturebox ajout&#233; de fa&#231;on dynamique."
End Sub

Private Sub Form_Load()
   Set picObj = Controls.Add("VB.PictureBox", "PicObj")
   With picObj
      .Visible = True
      .Width = 2000
      .Height = 2000
      .Top = 1000
      .Left = 1000
      .Picture = Form2.Picture1.Picture
   End With
End Sub

jpleroisse

ORTIPIC · Answer

FAB excellant je suis un 

alors la , merci pour ton aide

je vois bien  mieu 
j avais zapp&#233;   le withevents   il faut que je boss dessus
et controls que j avais vaguement experiment&#233; ........

j ai modifier ca
.Picture = Form2.Picture1.image
pour mon recuper&#233; l image

merci encore
-----------------------------------------
bien je tombe sur un truc louche

hdc1 = picture1.hDC
hdc2 = getdc(picture1.hwnd)

hdc1 et hdc2 ne sont pas egaux  
hdc1 est juste pour bitblt
mais hdc2 non    manque de peau   ou suis je toujours un 

merci pour l entre aide  fab

Comment creer une picturebox en soft en vb6

4 réponses

Discussions similaires