Soyez le premier à donner votre avis sur cette source.
Vue 9 442 fois - Téléchargée 533 fois
Public Class Form1 Dim m_MouseIsDown As Boolean Dim sender2 As Object Private 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 End Sub #Region "Mouse Down" Private 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 'On verifie que la picturebox source n'est pas vide m_MouseIsDown = True End If End Sub #End Region #Region "Mouse Move" Private Sub Mouse_Move(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove, PictureBox2.MouseMove, PictureBox3.MouseMove If m_MouseIsDown = True Then sender2 = sender 'On recupére le nom d'objet de la picturebox source sender.DoDragDrop(sender.Image, DragDropEffects.Move) 'On lance l'operation de Drag&Drop de l'image End If m_MouseIsDown = False End Sub #End Region #Region "DragEnter" Private 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 'Au cas ou il y a eu un probléme dans l'envoi de l'image End If End Sub #End Region #Region "DragDrop" Private Sub Drag_Drop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop, PictureBox2.DragDrop, PictureBox3.DragDrop sender2.Image = Nothing 'On vide la picturebox source sender.Image = e.Data.GetData(DataFormats.Bitmap) 'on place l'image dans la picture box source End Sub #End Region End Class
4 avril 2009 à 15:41
sender.image
sender.DoDragDrop
Ps: Il n'y a pas l'ombre de sender.width dans mon code, pourquoi vouloir trouver des défaut en plus à la source, il y en a déjà bien assez ^^
Cordialement
4 avril 2009 à 15:02
Il faut cependant, vérifier son type et suivant le type, le caster pour l'utiliser.
Ajoute une Option Explicit et une Option Strict tu verras tout de suite les erreurs.
__
Kenji
4 avril 2009 à 13:57
4 avril 2009 à 13:56
4 avril 2009 à 13:56
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.