Discussion :

[Duriv73]

Bonjour à tous.

J'avais développé un petit programme rigolo ... en VB5 : Représentation animée de la terre, vue d'une position quelconque.
Pour l'animation, l'astuce était la suivante : "je" dessinais dans une picturebox d'index 0 (propriété visible à 0) pendant que j'affichais le dessin complet de la picturebox à l'index 1 (propriété visible à 1), puis j'inversais les visibilités, et ainsi de suite.

Ça donnait le code suivant :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub Animation()
    L0deg = frmParam.txtLatitude.Text
    G0deg = frmParam.txtLongitude.Text
    Bdeg = frmParam.txtRotation.Text
    GRILLEdeg = frmParam.txtGrille.Text
    Echelle = frmParam.txtEchelle.Text
    Transp = frmParam.cochTranspar.Value
 
    While Anim = True
 
        Call Dessin
 
        'Cbangement d'index image et inversion de l'image vue
        Select Case IndexImage
            Case 0
                IndexImage = 1
                frmGraph.Image1(1).Visible = False
                frmGraph.Image1(0).Visible = True
                frmGraph.Image1(0).Refresh
            Case 1
                IndexImage = 0
                frmGraph.Image1(0).Visible = False
                frmGraph.Image1(1).Visible = True
                frmGraph.Image1(1).Refresh
        End Select
 
        'Passe le main à WINDOWS pour traitement
        'des évenememts (tels que "Fin Anim." ou "Quitter )
        DoEvents
 
        'Incrémentation de la longitude
        G0deg = G0deg + 0.5
        If G0deg > 180 Then
            G0deg = G0deg - 360
        End If
 
        'Temporisation
        Call Tempo(0.01)
    Wend
End Sub

Je voudrais porter ce petit bidule sous VB 2015 (VB5 ne tournant pas sous système x64). Malheureusement, en VB 2015, l'indexation des PictureBox n'existe plus.
J'ai bien trouvé ceci :
https://msdn.microsoft.com/fr-fr/lib...=vs.71%29.aspx

... mais pour moi, c'est de l'hébreu ! Si quelqu'un pouvait m'aider ...

[sevyc64]

Les contrôles indexés n'existent plus, par contre il existe sur la form et sur tout contrôle de type Conteneur la propriété Controls qui n'est rien d'autre que la collection des contrôles enfant du conteneur. Et on peut faire des recherches par le nom du contrôle dans cette collection.

A supposé que tes images s'appellent désormais Image_0 et Image_1, tu pourras y accéder par la commande frmGraph.Controls("Image_"+ index.ToString) avec index valant 0 ou 1.
Bien attendu c'est pas une simple conversion de code comme cela qu'il faut faire, il va falloir repenser un peu tout le code.
Mais on peut quand même faire, indirectement, du contrôle indexé avec Dotnet

[clementmarcotte]

Bonjour,

En résumant le texte de la page où mène ton lien, ils te proposent de contourner la difficulté en utilisant l'une ou l'autre de deux propriétés disponible:

TabIndex qui permet de définir l'ordre dans lequel les contrôles sont parcourus quand on appuie sur la touche TAB du clavier.
Tag est une propriété de (presque) tous les contrôles qui permet de mettre à peu près n'importe quelle information, à la discrétion du programmeur

Le code de ta page donne ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub MixedControls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, CheckBox1.Click
   Select Case sender.TabIndex
      Case 0
         MsgBox("Button 1")
      Case 1
         MsgBox("Button 2")
      Case 2
         MsgBox("CheckBox 1")
   End Select
End Sub

L'idée de base, c'est de regrouper tes PictureBoxes (ou tout autre contrôles), dans un conteneur particulier sur ta form. L'idée qui me vient à l'esprit c'est un Panel, mais ce n'est pas le seul choix. Si tu recopies le code directement. ton "conteneur" devrait s'appeler MixedControls. En supposant que tu aies 3 pictureboxes (pour suivre l'exemple. Si tu en as juste 2, cela fait quelques lignes de moins) tu mets la propriétée TabIndex de tes pictureboxes en ordre croissant à partir de 0.

Le "mérite", si on peut dire d'une procédure d'événement est l'objet Sender, qui représente le contrôle qui a déclenché l'événement (Click ou autre). Donc, le Case 0, traite le bouton (ou le PictureBox, c'est exactement le même principe) qui a le TabOrder valant 0. Le Case 1, s'occupe de celui qui a le TabOrder valant 1 etc.

Je n'ai jamais uttilisé VB5, et j'ai désinstallé VB6 depuis longtemps, mais to code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 'Cbangement d'index image et inversion de l'image vue
        Select Case IndexImage
            Case 0
                IndexImage = 1
                frmGraph.Image1(1).Visible = False
                frmGraph.Image1(0).Visible = True
                frmGraph.Image1(0).Refresh
            Case 1
                IndexImage = 0
                frmGraph.Image1(0).Visible = False
                frmGraph.Image1(1).Visible = True
                frmGraph.Image1(1).Refresh
        End Select

deviendrait grosso-modo celui-ci (En supposant que ta Form s'appelle FormGraph et que tes PictureBoxes s'appellent PictureBox1 et PictureBox2. Sinon, il faut adapter en fonction des noms

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 'Cbangement d'index image et inversion de l'image vue
        Select Case sender.tabIndex
            Case 0
                frmGraph. PictureBox2.Visible = False
                frmGraph. PictureBox1.Visible = True
                frmGraph. PictureBox1.Refresh
            Case 1
                frmGraph. PictureBox1.Visible = false
                frmGraph. PictureBox2.Visible = True
                frmGraph.PictureBox2.Refresh
        End Select

(j'espère que je ne me suis pas trompé)

P.S. En jouant au devin, j'ai l'impression que tu commences ta "conversion" à VB.net. Si j'ai raison, je te recommande de jeter un œil, et même sur ce "cadeau" que nous a fait Philippe Lasserre :

http://plasserre.developpez.com/cours/vb-net/

[Duriv73]

Merci beaucoup pour vos 2 réponses !

Je vais travailler la question avant de revenir, comme je l'espère, marquer ce fil [Résolu]

P.S. En jouant au devin, j'ai l'impression que tu commences ta "conversion" à VB.net. Si j'ai raison, je te recommande de jeter un œil, et même sur ce "cadeau" que nous a fait Philippe Lasserre :

http://plasserre.developpez.com/cours/vb-net/

Tu joue très bien au devin, Clément ! Et je vais suivre ton conseil !