Drag and drop avec une image (image flottante) (résolu)

Bonsoir
on peu faire un drag and drop avec des images(des images flottante qu'on peux les déplacer )
par exemple y aura une interface avec 4 grille et on déplace image dans une grille qu'on veut ???

images
	glisser l'image ici par exemple

merci

re ,

Je recherche dans la 1ere version de InfoBat , qui , avait une barre des titre personalisée et en cliquant et déplaçant , le Form bougait !

Je recherche les code !! SINON , tu peur rechercher sur le fofo le sujet qui date !

Cordialement ,
Le réparateur de PC

Bonjour

Si je me souvient bien le drag and drop n'est pas instauré dans SoftwareZator..

Xavier

Bonsoir,

En effet lereparateurdepc est parvenu à faire un "semblant" de drag & drop. En réalité le vrai Drag & Drop (déplacer un élément d'une liste vers une autre par exemple) est actuellement impossible à faire.
Voila

Bonne soirée

re ,

SISI , je vien de modifier le code de InfoBat et je peut bouger l'image dans la form !

Je met ça ......

Cordialement ,
Le réparateur de PC

re ,

OHHHLALA , j' ai trouvé ! GRACE à Admin pour InfoBat :

Sur le premier onglet , met CE code ( éxécuter une comande VB ) :

Code:

Private IsFormBeingDragged As Boolean = False 'Used for custom move code, scroll down to see the actual code.
    Private MouseDownX As Integer
    Private MouseDownY As Integer

Dans l'évènement mouse move du picturebox , mettre CE code :

Code:

If IsFormBeingDragged Then
            Dim temp As Drawing.Point = New Drawing.Point()
            temp.X = Me.pictureBox1.Location.X + (e.X - MouseDownX)
            temp.Y = Me.pictureBox1.Location.Y + (e.Y - MouseDownY)
            Me.pictureBox1.Location = temp
            temp = Nothing
        End If

Dans l'évènement MouseDown , mettre celui là :

Code:

If e.Button = System.Windows.Forms.MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If

Enfin, dans l'évènement MouseUp , celui là :

Code:

If e.Button = System.Windows.Forms.MouseButtons.Left Then
            IsFormBeingDragged = False
        End If

Voilà !

Je pense que je ne me suis pas trompé en recopiant car moi , ça marche !
MERCI Admin pour le code ( que j'ai modifié )

Cordialement ,
Le réparateur de PC

C'est pas vraiment du drag&drop ça ;P le drag&drop c'est prendre une image de l'explorateur windows par exemple, et la déplacer dans ton programme, qui lui intègre l'image que tu as déplacer dans un picturebox par exemple

re ,

AHH OK , j'avais MAL compris !
Désolé Mais bon , c'est une avancée ( pour moi !

Cordialement ,
Le réparateur de PC

merci une autre fois M. lereparateurdepc ça marche très bien même ce n'est pas ça le drag and drop mais vraiment ça me parait très utile ce que tu as fait merci encore une autre fois