Discussion :

[__fabrice]

salut à tous,

Peut-on, en VB6, créer des controles PictureBox à la volée (New) ... (et les aujouter sur une Form en clickant dessus) ?


Merci
Fabrice

[leroissejp]

Bonjour,
Voici une méthode. Place un PictureBox sur ta Form et met sa propriété Index à 0.

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
16
17
 
Private Sub Command1_Click()
  ' Déclare la variable.
   Dim I
   ' Positionne le Picture1(0) sur la Form
   Picture1(0).Move 50, 1000, 800, 1000
   ' Crée d'autres Picture
   For I = 1 To 3
      ' Crée un Picture
      Load Picture1(I)
      ' Place et dimensionne le Picture
      Picture1(I).Move I * 1000, 1000, 800, 1000
      ' Affiche le Picture
      Picture1(I).Visible = True
   Picture1(1).Picture = LoadPicture("C:\Test.bmp")
   Next I
End Sub

jpleroisse

[__fabrice]

J'ai une autre methode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set TextBoxDynamique = Me.Controls.Add("VB.PictureBox", "ctl") 'ctl est le nom du textbox
TextBoxDynamique.Left = X
TextBoxDynamique.Top = Y
 
TextBoxDynamique.Width = widthPictureBox
TextBoxDynamique.Height = heightPictureBox
 
TextBoxDynamique.Visible = True

Fabrice

[leroissejp]

Bonjour fabrice,
Je voudaris bien savoir comment ta méthode fonctionne parce que là, je n'y comprend rien. ???

jpleroisse

[sovo]

tout d'abord

__fabrice, pour que ton exemple fonctionne tu doit declarer ta variable TextBoxDynamique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim WithEvents TextBoxDynamique as PictureBox

pour leroissejp.

le code de __fabrice permet de creer un picturebox en mode execution tout simplement.
par exemple lorsque tu crees ta form (en mode creation) tu ne met pas de picturebox, avec ce code tu poura en avoir un et evidement a la fin de l'execution du programme n'existera plus.