OVH Cloud OVH Cloud

Drag & Drop

4 réponses
Avatar
André Joubert
Bonjour à tous,
Drag & Drop excusez-la je ne connais pas la
traduction française:

Bon, j'ai écrit une application qui accepte le D&D. Mais j'ai eu une
surprise, lorsque j'ai essayé en déplacant plusieurs fichiers mon
application fut démarré autant de fois qu'il y avait de fichier. Je
m'attendais de recevoir la liste des fichiers que j'aurais alors pu traiter
un à un ou en bloc.
Est-ce faisable? Comment?

André

4 réponses

Avatar
François Picalausa
Bonjour/soir,

Drag & Drop excusez-la je ne connais pas la
traduction française


Au choix, cliquer glisser, cliquer déplacer, gliser déposer, ..

Pourrait-on voir ton code?
S'il s'agit du d&d sur une feuille, c'est toi qui gère les instances, par
exemple, dans Form_OLEDragDrop.
S'il s'agit du cliquer glisser vers l'exécutable de ton application, tu
pourrais utiliser un contrôle activeX permettant de savoir si une instance
est déjà lancée et lui envoyer le nom du fichier si c'est le cas.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"André Joubert" a écrit dans le message de
news:wrDfb.8389$
Bonjour à tous,
Drag & Drop excusez-la je ne connais pas la
traduction française:

Bon, j'ai écrit une application qui accepte le D&D. Mais j'ai eu une
surprise, lorsque j'ai essayé en déplacant plusieurs fichiers mon
application fut démarré autant de fois qu'il y avait de fichier. Je
m'attendais de recevoir la liste des fichiers que j'aurais alors pu
traiter un à un ou en bloc.
Est-ce faisable? Comment?

André


Avatar
André Joubert
Bonjour/soir,
Je vous montre ici le code le plus simple. Il s'agit
simplement d'effectuer un rename.
Je veux pouvoir sélectionner plusieurs fichiers et leur donner à tous la
même extension.
========================================================= Public Sub Main()
Dim Fichier As String, Nouveau As String, Ext As String, i%
Fichier = Command()
Fichier = Replace(Fichier, """", "")
Ext = InputBox("Entrez la nouvelle extension", "Changer l'extension")
i% = InStrRev(Fichier, ".")
Nouveau = Left(Fichier, i%) + Ext
Name Fichier As Nouveau
End Sub
=========================================================
André

"François Picalausa" wrote in message
news:eY$Z%
Bonjour/soir,

> Drag & Drop excusez-la je ne connais pas la
> traduction française
Au choix, cliquer glisser, cliquer déplacer, gliser déposer, ..

Pourrait-on voir ton code?
S'il s'agit du d&d sur une feuille, c'est toi qui gère les instances, par
exemple, dans Form_OLEDragDrop.
S'il s'agit du cliquer glisser vers l'exécutable de ton application, tu
pourrais utiliser un contrôle activeX permettant de savoir si une instance
est déjà lancée et lui envoyer le nom du fichier si c'est le cas.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"André Joubert" a écrit dans le message de
news:wrDfb.8389$
> Bonjour à tous,
> Drag & Drop excusez-la je ne connais pas la
> traduction française:
>
> Bon, j'ai écrit une application qui accepte le D&D. Mais j'ai eu une
> surprise, lorsque j'ai essayé en déplacant plusieurs fichiers mon
> application fut démarré autant de fois qu'il y avait de fichier. Je
> m'attendais de recevoir la liste des fichiers que j'aurais alors pu
> traiter un à un ou en bloc.
> Est-ce faisable? Comment?
>
> André




Avatar
François Picalausa
Bonjour/soir,

Vu la manière dont Windows travaille, tu aura besoin de communiquer entre
les deux process (ce qui se fait plus ou moins aisément par ActiveX EXE.

Tu pourrais avoir une propriété partagée qui indique si une instance est
déjà présente.
Si telle est le cas, on ajoute à une autre propriété partagée le command
actuel.
La première instance ne s'arrêt qu'une fois la liste vide.
Pour celà, il faudrait des variables stoquées dans un module standrad ou
dans une feuille.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"André Joubert" a écrit dans le message de
news:f5Zfb.1064$
Bonjour/soir,
Je vous montre ici le code le plus simple. Il
s'agit simplement d'effectuer un rename.
Je veux pouvoir sélectionner plusieurs fichiers et leur donner à tous
la même extension.
========================================================= > Public Sub Main()
Dim Fichier As String, Nouveau As String, Ext As String, i%
Fichier = Command()
Fichier = Replace(Fichier, """", "")
Ext = InputBox("Entrez la nouvelle extension", "Changer
l'extension") i% = InStrRev(Fichier, ".")
Nouveau = Left(Fichier, i%) + Ext
Name Fichier As Nouveau
End Sub
========================================================= >
André

"François Picalausa" wrote in message
news:eY$Z%
Bonjour/soir,

Drag & Drop excusez-la je ne connais pas la
traduction française


Au choix, cliquer glisser, cliquer déplacer, gliser déposer, ..

Pourrait-on voir ton code?
S'il s'agit du d&d sur une feuille, c'est toi qui gère les
instances, par exemple, dans Form_OLEDragDrop.
S'il s'agit du cliquer glisser vers l'exécutable de ton application,
tu pourrais utiliser un contrôle activeX permettant de savoir si une
instance est déjà lancée et lui envoyer le nom du fichier si c'est
le cas.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"André Joubert" a écrit dans le message de
news:wrDfb.8389$
Bonjour à tous,
Drag & Drop excusez-la je ne connais pas la
traduction française:

Bon, j'ai écrit une application qui accepte le D&D. Mais j'ai eu une
surprise, lorsque j'ai essayé en déplacant plusieurs fichiers mon
application fut démarré autant de fois qu'il y avait de fichier. Je
m'attendais de recevoir la liste des fichiers que j'aurais alors pu
traiter un à un ou en bloc.
Est-ce faisable? Comment?

André






Avatar
André Joubert
Bonjour/soir,
J'ai réussi à faire le cliquer/glisser dans une feuille
et obtenir le nom de tous les fichiers.
Maintenant je m'attaque à mon besoin réel, celui de le faire avec le EXE. Je
ne connais pas les active X.
Je vous reviendrai pour vous faire part des résultats. Je retourne étudier
cela
Merci en attendant
André

"François Picalausa" wrote in message
news:%
Bonjour/soir,

Vu la manière dont Windows travaille, tu aura besoin de communiquer entre
les deux process (ce qui se fait plus ou moins aisément par ActiveX EXE.

Tu pourrais avoir une propriété partagée qui indique si une instance est
déjà présente.
Si telle est le cas, on ajoute à une autre propriété partagée le command
actuel.
La première instance ne s'arrêt qu'une fois la liste vide.
Pour celà, il faudrait des variables stoquées dans un module standrad ou
dans une feuille.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"André Joubert" a écrit dans le message de
news:f5Zfb.1064$
> Bonjour/soir,
> Je vous montre ici le code le plus simple. Il
> s'agit simplement d'effectuer un rename.
> Je veux pouvoir sélectionner plusieurs fichiers et leur donner à tous
> la même extension.
> ========================================================= > > Public Sub Main()
> Dim Fichier As String, Nouveau As String, Ext As String, i%
> Fichier = Command()
> Fichier = Replace(Fichier, """", "")
> Ext = InputBox("Entrez la nouvelle extension", "Changer
> l'extension") i% = InStrRev(Fichier, ".")
> Nouveau = Left(Fichier, i%) + Ext
> Name Fichier As Nouveau
> End Sub
> ========================================================= > >
> André
>
> "François Picalausa" wrote in message
> news:eY$Z%
>> Bonjour/soir,
>>
>>> Drag & Drop excusez-la je ne connais pas la
>>> traduction française
>> Au choix, cliquer glisser, cliquer déplacer, gliser déposer, ..
>>
>> Pourrait-on voir ton code?
>> S'il s'agit du d&d sur une feuille, c'est toi qui gère les
>> instances, par exemple, dans Form_OLEDragDrop.
>> S'il s'agit du cliquer glisser vers l'exécutable de ton application,
>> tu pourrais utiliser un contrôle activeX permettant de savoir si une
>> instance est déjà lancée et lui envoyer le nom du fichier si c'est
>> le cas.
>>
>> --
>> François Picalausa (MVP VB)
>> FAQ VB : http://faq.vb.free.fr
>> MSDN : http://msdn.microsoft.com
>>
>>
>> "André Joubert" a écrit dans le message de
>> news:wrDfb.8389$
>>> Bonjour à tous,
>>> Drag & Drop excusez-la je ne connais pas la
>>> traduction française:
>>>
>>> Bon, j'ai écrit une application qui accepte le D&D. Mais j'ai eu une
>>> surprise, lorsque j'ai essayé en déplacant plusieurs fichiers mon
>>> application fut démarré autant de fois qu'il y avait de fichier. Je
>>> m'attendais de recevoir la liste des fichiers que j'aurais alors pu
>>> traiter un à un ou en bloc.
>>> Est-ce faisable? Comment?
>>>
>>> André