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) :
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 ?
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
Merci
Partager