Aribeau
Messages postés5Date d'inscriptionjeudi 7 août 2003StatutMembreDernière intervention24 août 2003
-
7 août 2003 à 20:48
vincentClimber
Messages postés20Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 3 mai 2006
-
4 févr. 2005 à 10:05
Bonjour à tous.
Pour mon entrée sur ce forum génial, une petite question concernant VisualBasic.NET :
Comment coder un évènement Drag and Drop entre 2 Listview (contenant des noms de fichiers). Le drag and Drop doit être possible dans un sens comme dans l'autre.
vincentClimber
Messages postés20Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 3 mai 2006 4 févr. 2005 à 09:17
Option Explicit
Dim txStr As String
Dim flgTx As Boolean
Private Sub Form_Load()
Dim indx As Integer
For indx = 1 To 10
List1.AddItem "Item " & indx
Next indx
End Sub
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Button = 1 Then
txStr = List1.Text
flgTx = True
End If
End Sub
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If flgTx Then
List2.AddItem txStr
List1.RemoveItem (List1.ListIndex)
End If
flgTx = False
End Sub