J'ai un contr=F4le RichTextBox dans lequel je fais du drag=20
and drop pour y d=E9poser des fichiers depuis l'explorateur=20
et je souhaiterais savoir comment faire pour r=E9cup=E9rer les=20
noms des fichiers ainsi d=E9pos=E9s !...
J'ai effectu=E9 une boucle sur OleObjects mais je ne sais=20
pas comment r=E9cup=E9rer les noms.
For i =3D 1 to Rtb.OleObjects.Count
debug.print "Le fichier " & i & " est " & ???????
Next i
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
le_troll
Bonjour,
Je n'ai jamais fait de drag... mais dans un fichier rtf, tu peut peut être accéder à tes noms de fichiers par le biais des instructions de chaînes et de fichier, en identifiant ton fichier d'après sa syntaxe "fic.ext" (sf si pas d'extension)... A part ça, si c'est juste pour y déposer des noms de fichiers, et sauf si le drag... ne marche pas dedans, une liste serait plus appropriée dans la mesure où chaque ligne serait un nom de fichier... -- Merci, @+, bye, Joe
------------------------------------------ Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
"Thierry Demoy" a écrit dans le message de news: 65df01c42e86$878481c0$ Bonjour,
J'ai un contrôle RichTextBox dans lequel je fais du drag and drop pour y déposer des fichiers depuis l'explorateur et je souhaiterais savoir comment faire pour récupérer les noms des fichiers ainsi déposés !... J'ai effectué une boucle sur OleObjects mais je ne sais pas comment récupérer les noms.
For i = 1 to Rtb.OleObjects.Count debug.print "Le fichier " & i & " est " & ??????? Next i
Merci de votre aide, Thierry
Bonjour,
Je n'ai jamais fait de drag... mais dans un fichier rtf, tu peut peut
être accéder à tes noms de fichiers par le biais des instructions de chaînes
et de fichier, en identifiant ton fichier d'après sa syntaxe "fic.ext" (sf
si pas d'extension)...
A part ça, si c'est juste pour y déposer des noms de fichiers, et sauf si le
drag... ne marche pas dedans, une liste serait plus appropriée dans la
mesure où chaque ligne serait un nom de fichier...
--
Merci, @+, bye, Joe
montmartre75@iFrance.com
------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------
"Thierry Demoy" <tdemoy@ares.fr> a écrit dans le message de news:
65df01c42e86$878481c0$a501280a@phx.gbl...
Bonjour,
J'ai un contrôle RichTextBox dans lequel je fais du drag
and drop pour y déposer des fichiers depuis l'explorateur
et je souhaiterais savoir comment faire pour récupérer les
noms des fichiers ainsi déposés !...
J'ai effectué une boucle sur OleObjects mais je ne sais
pas comment récupérer les noms.
For i = 1 to Rtb.OleObjects.Count
debug.print "Le fichier " & i & " est " & ???????
Next i
Je n'ai jamais fait de drag... mais dans un fichier rtf, tu peut peut être accéder à tes noms de fichiers par le biais des instructions de chaînes et de fichier, en identifiant ton fichier d'après sa syntaxe "fic.ext" (sf si pas d'extension)... A part ça, si c'est juste pour y déposer des noms de fichiers, et sauf si le drag... ne marche pas dedans, une liste serait plus appropriée dans la mesure où chaque ligne serait un nom de fichier... -- Merci, @+, bye, Joe
------------------------------------------ Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
"Thierry Demoy" a écrit dans le message de news: 65df01c42e86$878481c0$ Bonjour,
J'ai un contrôle RichTextBox dans lequel je fais du drag and drop pour y déposer des fichiers depuis l'explorateur et je souhaiterais savoir comment faire pour récupérer les noms des fichiers ainsi déposés !... J'ai effectué une boucle sur OleObjects mais je ne sais pas comment récupérer les noms.
For i = 1 to Rtb.OleObjects.Count debug.print "Le fichier " & i & " est " & ??????? Next i
Merci de votre aide, Thierry
ng
Salut,
Cela se passe à peu près comme pour tous les controles, tu dois déjà définir les propriétés suivantes :
* Spécifique au RTFBox pour désactiver l'insertion du fichier dans le document.
Ensuite utilise simplement ce code :
Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Integer For i = 1 To Data.Files.Count MsgBox Data.Files(i) Next End Sub
Tu pourrais également vérifier le format via Data.GetFormat. (cf Aide)
-- 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/
Thierry Demoy a écrit :
Bonjour,
J'ai un contrôle RichTextBox dans lequel je fais du drag and drop pour y déposer des fichiers depuis l'explorateur et je souhaiterais savoir comment faire pour récupérer les noms des fichiers ainsi déposés !... J'ai effectué une boucle sur OleObjects mais je ne sais pas comment récupérer les noms.
For i = 1 to Rtb.OleObjects.Count debug.print "Le fichier " & i & " est " & ??????? Next i
Merci de votre aide, Thierry
Salut,
Cela se passe à peu près comme pour tous les controles, tu dois déjà définir
les propriétés suivantes :
* Spécifique au RTFBox pour désactiver l'insertion du fichier dans le
document.
Ensuite utilise simplement ce code :
Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect
As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
For i = 1 To Data.Files.Count
MsgBox Data.Files(i)
Next
End Sub
Tu pourrais également vérifier le format via Data.GetFormat. (cf Aide)
--
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/
Thierry Demoy <tdemoy@ares.fr> a écrit :
Bonjour,
J'ai un contrôle RichTextBox dans lequel je fais du drag
and drop pour y déposer des fichiers depuis l'explorateur
et je souhaiterais savoir comment faire pour récupérer les
noms des fichiers ainsi déposés !...
J'ai effectué une boucle sur OleObjects mais je ne sais
pas comment récupérer les noms.
For i = 1 to Rtb.OleObjects.Count
debug.print "Le fichier " & i & " est " & ???????
Next i
* Spécifique au RTFBox pour désactiver l'insertion du fichier dans le document.
Ensuite utilise simplement ce code :
Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Integer For i = 1 To Data.Files.Count MsgBox Data.Files(i) Next End Sub
Tu pourrais également vérifier le format via Data.GetFormat. (cf Aide)
-- 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/
Thierry Demoy a écrit :
Bonjour,
J'ai un contrôle RichTextBox dans lequel je fais du drag and drop pour y déposer des fichiers depuis l'explorateur et je souhaiterais savoir comment faire pour récupérer les noms des fichiers ainsi déposés !... J'ai effectué une boucle sur OleObjects mais je ne sais pas comment récupérer les noms.
For i = 1 to Rtb.OleObjects.Count debug.print "Le fichier " & i & " est " & ??????? Next i
