Drag&Drop Bureau -> Appli VB6
cs_smellycat
Messages postés
6
Date d'inscription
jeudi 10 avril 2003
Statut
Membre
Dernière intervention
19 juillet 2004
-
27 juin 2004 à 01:55
cs_smellycat Messages postés 6 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 19 juillet 2004 - 28 juin 2004 à 14:07
cs_smellycat Messages postés 6 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 19 juillet 2004 - 28 juin 2004 à 14:07
2 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
27 juin 2004 à 11:05
27 juin 2004 à 11:05
Met la propriété OleDropMode de ton controle à "1 - Manual"
ici pour une Form :
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Data.GetFormat(vbCFFiles) Then
For i = 1 To Data.Files.Count
MsgBox i & " : " & Data.Files(1)
Next i
End If
End Sub
ici pour une Form :
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Data.GetFormat(vbCFFiles) Then
For i = 1 To Data.Files.Count
MsgBox i & " : " & Data.Files(1)
Next i
End If
End Sub
cs_smellycat
Messages postés
6
Date d'inscription
jeudi 10 avril 2003
Statut
Membre
Dernière intervention
19 juillet 2004
28 juin 2004 à 14:07
28 juin 2004 à 14:07
Merci bcp de ta réponse ;-)