DRAGE & DROP SUR UN PICCTUREBOX, UN LISTBOX ET UN TEXTBOX
cs_Stephane84
Messages postés16Date d'inscriptiondimanche 19 février 2006StatutMembreDernière intervention12 avril 2017
-
28 oct. 2006 à 20:10
bahharkarim
Messages postés3Date d'inscriptionvendredi 16 avril 2010StatutMembreDernière intervention10 juillet 2010
-
21 juin 2010 à 20:47
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
bahharkarim
Messages postés3Date d'inscriptionvendredi 16 avril 2010StatutMembreDernière intervention10 juillet 2010 21 juin 2010 à 20:47
bonjour
j'utilise 4 label 1;2;4;5
et je le drag and drop de label1 vers label3 et label2 vers label5 mais il ne fonctionne pas comme je veux j'ai le code suivant:
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label4.AllowDrop = True
Label5.AllowDrop = True
End Sub
Private Sub Label4_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label4.DragDrop
Label4.Text = e.Data.GetData(DataFormats.Text).ToString
End Sub
Private Sub Label4_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label4.DragEnter
If (e.Data.GetDataPresent(DataFormats.Text)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
Label1.DoDragDrop(Label1.Text, DragDropEffects.Copy)
End Sub
Private Sub Label5_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label5.DragDrop
Label5.Text = e.Data.GetData(DataFormats.Text).ToString
End Sub
Private Sub Label5_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label5.DragEnter
If (e.Data.GetDataPresent(DataFormats.Text)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown
Label2.DoDragDrop(Label2.Text, DragDropEffects.Copy)
End Sub
End Class
samfisher1726
Messages postés8Date d'inscriptiondimanche 2 mars 2008StatutMembreDernière intervention 3 août 2009 28 juil. 2008 à 10:55
svp , dans le cadre de mon projet de stage , je dois implementer ds mon application la fonctionnalite drag and drop entre deux filelistbox afin deffectuer un copier coller
je vous serai tres reconnaissant , si vous maccordez un pe d aide :)
cs_Stephane84
Messages postés16Date d'inscriptiondimanche 19 février 2006StatutMembreDernière intervention12 avril 2017 28 oct. 2006 à 20:10
21 juin 2010 à 20:47
j'utilise 4 label 1;2;4;5
et je le drag and drop de label1 vers label3 et label2 vers label5 mais il ne fonctionne pas comme je veux j'ai le code suivant:
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label4.AllowDrop = True
Label5.AllowDrop = True
End Sub
Private Sub Label4_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label4.DragDrop
Label4.Text = e.Data.GetData(DataFormats.Text).ToString
End Sub
Private Sub Label4_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label4.DragEnter
If (e.Data.GetDataPresent(DataFormats.Text)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
Label1.DoDragDrop(Label1.Text, DragDropEffects.Copy)
End Sub
Private Sub Label5_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label5.DragDrop
Label5.Text = e.Data.GetData(DataFormats.Text).ToString
End Sub
Private Sub Label5_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label5.DragEnter
If (e.Data.GetDataPresent(DataFormats.Text)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown
Label2.DoDragDrop(Label2.Text, DragDropEffects.Copy)
End Sub
End Class
28 juil. 2008 à 10:55
je vous serai tres reconnaissant , si vous maccordez un pe d aide :)
28 oct. 2006 à 20:10