PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Drag N Drop Appli => Explorer
Drag N Drop Appli => Explorer
Iniciado por Fred_mass, jun., 30 2005 7:11 PM - 2 respostas
#1
Publicado em junho, 30 2005 - 7:11 PM
Je voudrai par drag N Drop, déplacer des fichiers dont les référence sont dans une liste de l'appli vers un fichier de l'explorer Windaws (fichier au choix de l'utilisateur). Est ce possible? Ma première experience etant de les faire passer PostMessage avec la constante WM_DROPFILES, les desrcriptions de fichiers sont dans le paramêtre _EVE.wparam
#2
Publicado em junho, 30 2005 - 9:04 PM
Salut

Le code est un peu compliqué
mais une fois que la fonction est écrite, c'est très simple

Exemple :

DNDVersExplorateur("D:\Monfichier.txt")


PROCEDURE DNDVersExplorateur

sBuffer est une chaine
POINT est une structure
X, Y sont des entiers
FIN
stDROPFILES est composée de
fNC est un booléen
fWide est un booléen
PT est un POINT
pFiles est un entier
FIN

stDROPFILES.fNC = Vrai
stDROPFILES.fWide = Faux
stDROPFILES.PT:X = 0


@+
Max°(51)°


"FredMass" <Fred_mass@hotmail.com> a écrit dans le message de
news:42c40102$1@news.pcsoft.fr...


Je voudrai par drag N Drop, déplacer des fichiers dont les référence sont

dans une liste de l'appli vers un fichier de l'explorer Windaws (fichier au
choix de l'utilisateur). Est ce possible? Ma première experience etant de
les faire passer PostMessage avec la constante WM_DROPFILES, les
desrcriptions de fichiers sont dans le paramêtre _EVE.wparam
>
#3
Publicado em junho, 30 2005 - 9:07 PM
Salut,

Le code est un peu compliqué mais c'est faisable

Dans une procédure appelée lors d'un DNDDEBUT :

DndVersExplorateur("D:\MonFichier.TXT" + RC + "D:\Autre.TXT")


Et voilà la procédure :

PROCEDURE DndVersExplorateur(sCheminFichier est une chaîne)

POINT est une structure
x,y sont des entiers
FIN
DROPFILES est une structure
pFiles est un entier
PT est un POINT
fNC est un booléen
fWide est un booléen
FIN
sBuffer est une chaîne

// Remplit une structure HDROP
stDROPFILES est un DROPFILES
stDROPFILES:fNC = Vrai
stDROPFILES:fWide = Faux
stDROPFILES:PT:x = 0
stDROPFILES:PT:y = 0
stDROPFILES:pFiles = Dimension(stDROPFILES)

// Alloue un buffer de la taille de la structure
sBuffer = Répète(" ", Dimension(stDROPFILES))

// Transfert le contenu de la structure dans le buffer
Transfert(&sBuffer, &stDROPFILES, Dimension(stDROPFILES))

// Ajoute le fichier donné à la fin du buffer
sBuffer += Remplace(sCheminFichier, RC, Caract(0)) + Caract(0) + Caract(0)

// Donne un HDROP
DnDDonne(CF_HDROP, &sBuffer, Taille(sBuffer))


@+
Max°(51)°

----- Original Message -----
From: "FredMass" <Fred_mass@hotmail.com>
Newsgroups: pcsoft.fr.windev
Sent: Thursday, June 30, 2005 6:11 PM
Subject: Drag N Drop Appli => Explorer




Je voudrai par drag N Drop, déplacer des fichiers dont les référence sont

dans une liste de l'appli vers un fichier de l'explorer Windaws (fichier au
choix de l'utilisateur). Est ce possible? Ma première experience etant de
les faire passer PostMessage avec la constante WM_DROPFILES, les
desrcriptions de fichiers sont dans le paramêtre _EVE.wparam
>
→ Voltar para WINDEV 2024