BOnjour a tout le monde
Dans mon projet j'ai 2 objets créés dynamiquement ( 1 objet pictubox et 1 objet panel )
Lorsque je bouge l'objet pictubox, je souhaiterais que l'objet panel bouge de la même façon. Y a t'il une solution a cela
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
42
43
44
45
46 private sub ceationObjet() pict(1) = New PbTimbres panelpict(1) = New PanelPage FrmPage.Panel1.Controls.Add(pict(1)) FrmPage.Panel1.Controls.Add(Panelpict(1)) end sub Public Class PbTimbres Inherits PictureBox Dim x, y As Integer Private Sub Me_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then x = e.X y = e.Y End If End Sub Private Sub Me_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then sender.Left += (e.X - x) sender.Top += (e.Y - y) FrmPage.LblPage1.Text = Me.Left & "/" & Me.Top End If End Sub End Class Public Class PanelPage End Class
Partager