Discussion :

[__fabrice]

salut à tous,

Je crée des controles PictureBox (sur une form) à la volée comme ceci :

Code :

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

1
2
3
4
5
6
Set TextBoxDynamique = Me.Controls.Add("VB.PictureBox", "ptb" & indexPictureBox) 'txtDynamic est le nom du textbox
PictureBoxDynamique.Left = X
PictureBoxDynamique.Top = Y
PictureBoxDynamique.Width = 1000
PictureBoxDynamique.Height = 800
PictureBoxDynamique.Visible = True

et j'aimerais savoir si on peut tester pour ne pas que 2 controles se superpose complement. Je voudrai donc qu'on puisse les ajouter à la form et qu'ils ne se "touchent" pas.
Je sais qu'on peut tester les 'coordonées' des controles, etc, etc, mais c'est pas top comme maniere

Merci à tous.
Fabrice

[Megaxel]

C'est peut-être "pas top", amis je ne crois pas qu'il y ait d'autres manières de contrôler ça.
A moins qu'un Zorro n'arrive...

[ouskel'n'or]

Je voudrai donc qu'on puisse les ajouter à la form et qu'ils ne se "touchent" pas.

Sur quoi travailles-tu VB ou VBA ?

J'ai fait ça en VBA. Le principe : Établir un delta x et un delta y
Tu as la position du premier (Top et left)
Tu as la largeur et la hauteur
Si tu veux le placer sous le précédent, tu fais Top + Height+ Delta Y et tu optiens le top du second
Dans le sens de la largeur, tu fais Left + Width + Delta X et tu as le left du suivant.
etc

Avec VBA, c'est plus simple, tu fais une grille dans une feuille masquée et tu utilises ta grille pour positionner tes contrôles. J'ai un exemple. C'est une émanation d'Excel 5 mais qui marche toujours.

Tu dis

A+

[__fabrice]

C'est du VB6.
Pour le Delta X et Y, cela correspond à quoi ?

Merci
Fabrice

[ouskel'n'or]

Delta X et Y correxpond aux intervales que tu souhaites mettre entre chaque contrôle.
Si j'ai mal interprété ta question, ru dis

A+

[__fabrice]

ok merci, je vais voir tout çà


Fabrice

[leroissejp]

Bonsoir,
J'ai essayer ton code, mais je n'ais que des erreurs;Je ne comprend pas comment tu sais créer un PictureBox dynamique avec ce code ??
Perso, j'utilise celui-ci
Je place un pictureBox sur ma form (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
18
19
 
Private Sub Form_Load()
  ' 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(0).Picture = LoadPicture("C:\MonImage.jpg")
   Picture1(1).Picture = LoadPicture("C:\test.bmp")
'etc....
   Next I
End Sub

jpleroisse

[__fabrice]

merci, mais mon code marche tres bien.
C'est du VB6.

Fabrice