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 ...