Discussion :

[thierry007]

Bonjour a tout le monde


Question ( peut être bête , mais bon )

Est-il possible de créer un objet sur une form, a partir d'une autre

exemple de code !!! pour explication

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Class Form1
 
For i= 0 to MonDatagridView.rows.count-1
 
If MonDatagridView.rows(i).cell("MaPage").value=1 then Créer objet1 Picture sur Form2
 
If MonDatagridView.rows(i).cell("MaPage").value=2 then Créer un objet1 Picture sur Form3
 
If MonDatagridView.rows(i).cell("MaPage").value=1 then Créer objet2 Picture sur Form2
 
next i
end Class

[Bluedeep]

Form est un container comme un autre.

Par objet, on va supposer que tu veux parler de Control

Tu peux parfaitement instancier un Controlet l'ajouter à la collection Controls de n'importe quelle Form (mais une seule à la fois : car tout Control dans un container référence son Container dans sa propriété Parent).

La seule contrainte est que cette manip doit être faite dans le thread qui a instancié la form à laquelle tu ajoutes des Controls.

[thierry007]

merci Bluedeep pour l'info

As-tu une référence ou exemple de code a ce sujet

[thierry007]

Re-

Ceci fonctionne, mais je crois être coincé plus loin car je voudrais lors de l'affichage de ma form frmpage1 pouvoir déplacer mon Pb créé dynamiquement avec la souris ( voir code plus bas ). mais....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Dim pb As PictureBox = New PictureBox
 
            With pb
                  .BorderStyle = BorderStyle.Fixed3D
                  .Size = New Size(200, 200)
                  .Location = New Point(50, 150)
            End With
 
 
            FrmPage1.Panel1.Controls.Add(pb)
            FrmPage1.Show()

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
 Private Sub PbDocument1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PbDocument1.MouseDown, PbDocument2.MouseDown
 
            If e.Button = Windows.Forms.MouseButtons.Left Then
                  x = e.X
                  y = e.Y
            End If
 
      End Sub
 
      Private Sub PbDocument1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PbDocument1.MouseMove, PbDocument2.MouseMove
 
            If e.Button = Windows.Forms.MouseButtons.Left And sender.name = "PbDocument1" Then
                  PbDocument1.Left += (e.X - x)
                  PbDocument1.Top += (e.Y - y)
            End If
 
            If e.Button = Windows.Forms.MouseButtons.Left And sender.name = "PbDocument2" Then
                  PbDocument2.Left += (e.X - x)
                  PbDocument2.Top += (e.Y - y)
            End If
 
      End Sub

Une idée peut être

[-N4w4k-]

Mais quoi? Tu n'arrives pas à faire que tes picturebox se déplacent en clikant dessus ?
Si c'est ca je te proposerait une solution: créer une classe héritant de la classe PictureBox et rajoute tes méthodes PictureBox_MouseDown et PictureBox_MouseMove à l'intérieur:

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
 
Public Class MaPictureBox
    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)
        End If
    End Sub
 
End Class

ensuite, au moment de créer tes PictureBox, créer plutôt des MaPictureBox:

Code :

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

1
2
3
4
5
6
7
8
9
 
        Dim pict As New MaPictureBox With {
            .BackColor = Color.Green,
            .Width = 100,
            .Height = 100}
 
        Dim frm2 As New Form2
        frm2.Controls.Add(pict)
        frm2.Show()

Est ce que ça répond à ton problème?

[Nathanael Marchand]

Mais quoi? Tu n'arrives pas à faire que tes picturebox se déplacent en clikant dessus ?
Si c'est ca je te proposerait une solution: créer une classe héritant de la classe PictureBox et rajoute tes méthodes PictureBox_MouseDown et PictureBox_MouseMove à l'intérieur

Y'a t il une quelconque utilité de créer une classe héritant de PictureBox si c'est uniquement pour s'abonner aux évènements MouseDown et MouseMove?