Repetition de pictureboxRésolu

Question

Bonsoir &#224; tous

Quelques questions sur les pictures Box

Quel code est utilis&#233; pour r&#233;p&#233;ter une picture box

exemple une picture de dessiner sur la form et au moment de l'execution apparaisse le nombre voulu de picture box?

J'imagine qu'il faut  For (I) mais comment l'utiliser ?

J'aimerais aussi savoir comment faire pour qu'elle se place a des endroits pr&#233;cis dans la Form

Merci

jpleroisse · Accepted Answer

Bonsoir,
Pour essayer ce code, place 1PictureBox sur ta Form, mets sa propri&#233;t&#233; Index = 0, ensuite place 4 contr&#244;les Images avec une image dans chacun des contr&#244;les.
Place un CommandButton et le code.

Private Sub Command1_Click()
  ' D&#233;clare la variable.
   Dim I
   ' Positionne le Picture1(0) sur la Form
   Picture1(0).Move 50, 1000, 800, 1000
   ' Cr&#233;e d'autres Picture
   For I = 1 To 3
      ' Cr&#233;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
   
   Next I
End Sub
 
Private Sub Picture1_Click(Index As Integer)
     If TypeOf ActiveControl Is PictureBox Then
      Select Case Index
         Case 0
            Picture1(0).Picture = Image1.Picture
         Case 1
            Picture1(1).Picture = Image2.Picture
        Case 2
         Picture1(2).Picture = Image3.Picture
         Case 3
          Picture1(3).Picture = Image4.Picture
      End Select
   End If
End Sub

jpleroisse

jpleroisse · Answer

Bonsoir,
Je ne comprend pas tr&#232;s bien ce que tu veux faire ?.
Si c'est faire apparaitre des PictureBox sur ta Form par une proc&#233;dure, place tes PictureBox aux endroits que tu d&#233;sirs et mets leurs propri&#233;t&#233; visible sur False. Ensuite dans ta proc&#233;dure tu remets les propi&#233;t&#233;s Visible sur True.
Sinon donne un peu plus de d&#233;tails et si tu as d&#233;j&#224; fait un code passe le.

jpleroisse

cs_marsouin · Answer

(Je mets 1 seul PictureBox sur ma form)

J'aimerais au moment de l'execution suite a un clic faire appraitre 20 autres picturesBox 

De quel maniere dois je m'y prendre pour &#233;viter de dessiner les 20 pictures box et 

faire en sorte qu'elles apparaissent a un endroit precis  de  la  form au moment de 

l'execution

En esperant avoir ete assez clair

cs_marsouin · Answer

Voici le code utilis&#233; (cela ne fonctione pas meme pas une erreur)

Private sub form Load ()

Dim I as Integer

For I = 0 To 7

If I > 0 Then Load Picture(I)

Next I

Un peu d'aide SVP

jpleroisse · Answer

PS: excuse si le code est pass&#233; 2 x , mais sur ce forum, j'ai pas mal d'ennui avec Internet.
jpleroisse

cs_marsouin · Answer

Merci pour les conseils

Repetition de picturebox

7 réponses

Discussions similaires