Bonjour, toujours sur le même projet, je cherche à déplacer un PictureBox à chaque Tick d'un Timer. J'ai abouti au code suivant (qui ne peut pas marcher tel quel) :
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
Module Principal
    WithEvents Metronome As New System.Windows.Forms.Timer()    'création du Timer Metronome
 
    Sub main()
        Dim Fenetre As New Form1        'création d'une fenêtre 
        Dim Cellule1 As New PictureBox  'création d'une picturebox
 
        'initialisation cellule 1
        Fenetre.Controls.Add(Cellule1)
        With Cellule1
            .Location = New System.Drawing.Point(20, 50)
            .Size = New System.Drawing.Size(20, 20)
            .TabIndex = 0
            .Image = My.Resources.Cellule_Est
        End With
 
        'affichage initial
        Fenetre.Show()
        Cellule1.Refresh()
        System.Threading.Thread.Sleep(1000) 'juste pour visualiser le début
 
        Metronome.Interval = 500    'réglage métronome
        Metronome.Start()           'départ métronome
 
        'pour passer le temps en attendant les Ticks
        Do While 2 < 3
        Loop
 
    End Sub
 
    Sub Metronome_Tick(ByRef Dessin As PictureBox)  'pour déplacer la picturebox aux Ticks du métronome
        Dessin.Left += 1
        Dessin.Refresh()
    End Sub
 
End Module
Je ne vois pas comment passer le paramètre Cellule1 à la routine Metronome_Tick. Déclarer la variable Cellule1 comme Public ne me parait pas élégant. Pourriez-vous me mettre sur la voie ?
Merci