none
dragdrop sur un user control RRS feed

  • Question

  • coucou,

    jai construit un usercontrol "note" avec dedans un picturebox.dans une  form jai plein de "note" (usercontrol) et au lieu de devoir faire sur chaqun dentre eux dragdrop pour permettre au user de "tirer" les notes pour les mettre a lendroit voulu,jaimerai le faire sur le usercontrol et automatiquement toutes les note sur le form pourront eter tirer .mais   il ny a pa de location pour un user control donc ca ne marche pas car pour bouger un objet il faut la location!

    quelqun aurai une solution????merci davance

    mardi 9 novembre 2010 16:32

Réponses

  • Bonjour,

    J'ai déjà répondu mais je ne vois pas ma réponse ?

    Pour le dragAnDrop d'images de pictureBox :

    '
    ' drag and drop entre 3 pictureBox
    ' 1 image (départ 1) avec 3 picturebox
    '
    Option Explicit On
    Public Class Form1
     Dim mouseIsDown As Boolean
     Dim senderBis As Object
     Dim positionClick As Point
    
     Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Me.PictureBox1.AllowDrop = True
      Me.PictureBox2.AllowDrop = True
      Me.PictureBox3.AllowDrop = True
      PictureBox1.Image = My.Resources.J
      Me.Left = 50 : Me.Top = 50
     End Sub
    
     Sub Mouse_Down(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown, PictureBox2.MouseDown, PictureBox3.MouseDown
      If Not sender.Image Is Nothing Then mouseIsDown = True ' image présente
     End Sub
    
     Sub Mouse_Move(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove, PictureBox2.MouseMove, PictureBox3.MouseMove
      If mouseIsDown = True Then
       senderBis = sender ' nom objetc (sender)
       sender.DoDragDrop(sender.Image, DragDropEffects.Move) ' lancement
      End If
      mouseIsDown = False
     End Sub
    
     Sub Drag_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter, PictureBox2.DragEnter, PictureBox3.DragEnter
      If e.Data.GetDataPresent(DataFormats.Bitmap) Then
       e.Effect = DragDropEffects.Move
      Else
       e.Effect = DragDropEffects.None ' rejet non conforme
      End If
     End Sub
    
     Sub Drag_Drop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop, PictureBox2.DragDrop, PictureBox3.DragDrop
      senderBis.Image = Nothing ' vidange source
      sender.Image = e.Data.GetData(DataFormats.Bitmap) ' dép$ot cible
     End Sub
    
    End Class
    

    Pour le tri, je ne comprends pas ce que tu veux trier et comment ?

    Cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Marqué comme réponse Alex Petrescu vendredi 12 novembre 2010 09:47
    mardi 9 novembre 2010 21:31

Toutes les réponses

  • Bonjour,

    J'ai déjà répondu mais je ne vois pas ma réponse ?

    Pour le dragAnDrop d'images de pictureBox :

    '
    ' drag and drop entre 3 pictureBox
    ' 1 image (départ 1) avec 3 picturebox
    '
    Option Explicit On
    Public Class Form1
     Dim mouseIsDown As Boolean
     Dim senderBis As Object
     Dim positionClick As Point
    
     Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Me.PictureBox1.AllowDrop = True
      Me.PictureBox2.AllowDrop = True
      Me.PictureBox3.AllowDrop = True
      PictureBox1.Image = My.Resources.J
      Me.Left = 50 : Me.Top = 50
     End Sub
    
     Sub Mouse_Down(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown, PictureBox2.MouseDown, PictureBox3.MouseDown
      If Not sender.Image Is Nothing Then mouseIsDown = True ' image présente
     End Sub
    
     Sub Mouse_Move(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove, PictureBox2.MouseMove, PictureBox3.MouseMove
      If mouseIsDown = True Then
       senderBis = sender ' nom objetc (sender)
       sender.DoDragDrop(sender.Image, DragDropEffects.Move) ' lancement
      End If
      mouseIsDown = False
     End Sub
    
     Sub Drag_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter, PictureBox2.DragEnter, PictureBox3.DragEnter
      If e.Data.GetDataPresent(DataFormats.Bitmap) Then
       e.Effect = DragDropEffects.Move
      Else
       e.Effect = DragDropEffects.None ' rejet non conforme
      End If
     End Sub
    
     Sub Drag_Drop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop, PictureBox2.DragDrop, PictureBox3.DragDrop
      senderBis.Image = Nothing ' vidange source
      sender.Image = e.Data.GetData(DataFormats.Bitmap) ' dép$ot cible
     End Sub
    
    End Class
    

    Pour le tri, je ne comprends pas ce que tu veux trier et comment ?

    Cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Marqué comme réponse Alex Petrescu vendredi 12 novembre 2010 09:47
    mardi 9 novembre 2010 21:31
  • Bonjour Joe,

     

    J'ai une erreur sur

    PictureBox1.Image = My.Resources.J

     

    c'est quoi ce J ?

     


    fred
    mercredi 10 novembre 2010 17:39
  • Salut Fred,

    C'est normal, c'est le nom que j'ai donné à une de mes ressources images, faut le changer en fonction de tes ressources images et de leurs noms. Le "j" pour "joe", c'est une de mes photos :o)

    C'est bien, c'est "Infomendo" qui pose la question et c'est toi qui suit ...

    Est-ce toi qui m'a mis un point ?

    Cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    mercredi 10 novembre 2010 19:45
  • Bonjour Joe,

    ok

    oui c'est moi car quand je trouve un code intéressant je le teste

    et vu que le tien est cool tu as gagné 1 point :O)

     


    fred
    jeudi 11 novembre 2010 09:09
  • Bonjour Fred,

    Merci pour le point, je te rends la politesse, mais n'hésite pas à m'en mettre surtout :o)

    Pour le code, en fait je voulais rajouter quelque chose mais je n'ai pas réussi, je voulais mettre une mini photographie qui suivent le curseur (comme il est d'usage), mais avec toutes ces procédures (dont je pense qu'on pourrait en enlever une), ben je n'arrive pas à créer un procédue qui prenne le dessus sur tout le monde pour la position du curseur (à la fois selon la feuille et les pictubeBox) ... si tu y arrives ?

    Merci encore, cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe samedi 13 novembre 2010 17:52
    jeudi 11 novembre 2010 18:55