drag&drop sur un form

Salut,

Voici un exemple :


'//Dans une Form :

Option Explicit

Private Sub Form_Load()
Me.OLEDropMode = 1 '//Manual
Me.AutoRedraw = True '//Pour ecrire avec Print
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As
Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFFiles) Then
If Data.Files.Count > 0 Then
Dim i As Integer
Me.Cls
Me.Print "Fichiers glissés-déplacés : " & vbCrLf & "--========--"
For i = 1 To Data.Files.Count
Me.Print " * Fichier #" & i & " : " & Data.Files(i) & " (" &
Round(FileLen(Data.Files(i)) / 1024, 2) & " Ko)"
Next
End If
End If
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



scraper <scraperpasdespam@tiscali.fr> a écrit :

bonjour à tous !

voila, je voudrais arriver au résultat suivant :

créer une form (ça, pas de problèmes :-D ) et, si je fais un
drag&drop d'un fichier sur cette form, récupérer dans mon code, pour
l'exploiter (et aussi l'afficher) l'information du nom et du
répertoire de stockage de ce fichier ....

je sais pas si je m'exprime clairement ??

mais j'ai aucun début du commencement d'idée sur la façon de procéder
....

merci à l'âme charitable qui me mettra sur la voie ...

à moins, si un bout de code a déjà été réalisé .... je ferai pas le
difficile ! lol


merci d'avance

Hello,

essaye de définir la propriété OLEDropMode sur 1 - Manual.
Ensuite, dans ton code:
Option Explicit

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 Long

On Error GoTo nofile
For i = 1 To Data.Files.Count
MsgBox GetDir(Data.Files(i))
Next i

nofile:
End Sub

Private Function GetDir(strFile As String) As String
GetDir = Mid$(strFile, 1, InStrRev(strFile, ""))
End Function

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"scraper" <scraperpasdespam@tiscali.fr> a écrit dans le message de
news:el$Lqk0QEHA.3532@TK2MSFTNGP12.phx.gbl

créer une form (ça, pas de problèmes :-D ) et, si je fais un
drag&drop d'un fichier sur cette form, récupérer dans mon code, pour
l'exploiter (et aussi l'afficher) l'information du nom et du
répertoire de stockage de ce fichier ....

Salut à François Picalausa, qui nous a nous a écrit/ répondu

dans son message %238Gc6v0QEHA.3300@TK2MSFTNGP09.phx.gbl :

Hello,

essaye de définir la propriété OLEDropMode sur 1 - Manual.
Ensuite, dans ton code:
Option Explicit

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 Long

On Error GoTo nofile
For i = 1 To Data.Files.Count
MsgBox GetDir(Data.Files(i))
Next i

nofile:
End Sub

Private Function GetDir(strFile As String) As String
GetDir = Mid$(strFile, 1, InStrRev(strFile, ""))
End Function

merci bcp ... je teste ça dès que possible ... et je reviens ;-)



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

Salut à ng, qui nous a nous a écrit/ répondu

dans son message ueiUcq0QEHA.808@tk2msftngp13.phx.gbl :

Salut,

Voici un exemple :


'//Dans une Form :

Option Explicit

Private Sub Form_Load()
Me.OLEDropMode = 1 '//Manual
Me.AutoRedraw = True '//Pour ecrire avec Print
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long,
Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFFiles) Then
If Data.Files.Count > 0 Then
Dim i As Integer
Me.Cls
Me.Print "Fichiers glissés-déplacés : " & vbCrLf &
"--========--" For i = 1 To Data.Files.Count
Me.Print " * Fichier #" & i & " : " & Data.Files(i) & "
(" & Round(FileLen(Data.Files(i)) / 1024, 2) & " Ko)"
Next
End If
End If
End Sub

OK, merci !

je regarde ça (ainsi que la méthode donnée par François) dès que possible, et je reviens ....




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper