Aller au contenu


Photo

Drag and Drop spécial


  • Please log in to reply
3 replies to this topic

#1 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 345 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 28 octobre 2018 - 12:44

Bonjour à tous

J'ai un drag and drop à partir d'une listbox vers un canvas à faire, je m'explique :

Dans ma fenetre j'ai une listbox et 3 canvas

l'idée est de choisir dans la listbox le nom d'une image et de faire un drag and drop dans un des canvas l'image correspondante son nom.

en fait, c'est glisser un texte, ouvrir l'image et la lâcher dans le canvas.

Cela est-il possible, je pense ! mais les Drag and Drop j'en ai pratiquement jamais utilisé.

Quelqu'un à a-t-il une idée ?

 

Borak a surement fait çà, non !

 

Merci


Ce message a été modifié par patyom - 28 octobre 2018 - 12:53 .

MacBook Pro - 13" - 4Go - 250Go
Emac 1GHz - 640 MB - 40 Go

#2 BorakLeRouge

BorakLeRouge

    Hamster d'or (dort ?)

  • Membres
  • PipPipPipPipPipPipPip
  • 3 973 Messages :
  • Configuration:Mac Mini Core i7 2019 - 16Go - 2x1To SSD
  • Sexe:Masculin
  • Localisation:Cormeilles en Parisis.rb
  • Passions:Macintosh, Photo, Haute-fidélité, Ski, Roller, Call of Duty, Tactical Ops, Counter Strike, Worms 1

Posté 28 octobre 2018 - 15:50

Bonjour

 

Oui, c'est possible. Faut que je me souvienne :)
Je revérifie et je poste :)


Je fais mes sauvegardes sur NSA-Cloud !

Au bout de 10 ans, le vieux MacPro vient de laisser sa place à un MacMini i7...


#3 BorakLeRouge

BorakLeRouge

    Hamster d'or (dort ?)

  • Membres
  • PipPipPipPipPipPipPip
  • 3 973 Messages :
  • Configuration:Mac Mini Core i7 2019 - 16Go - 2x1To SSD
  • Sexe:Masculin
  • Localisation:Cormeilles en Parisis.rb
  • Passions:Macintosh, Photo, Haute-fidélité, Ski, Roller, Call of Duty, Tactical Ops, Counter Strike, Worms 1

Posté 28 octobre 2018 - 16:11

Ok, c'est trop facile, faut lire la doc :)

1) Dans ta ListBox faut activer "EnableDrag" dans les propriétés.

 

2) alimenter un évenement "DragRow" :

drag.PrivateRawData("Toto") = "Gros Test"
Return true

3) Dans ta reception (ici un champ texte, mais ça peut être n'importe quoi). Evenement "Open" Accepter le dragitem :

me.AcceptRawDataDrop("Toto")

4) Recevoir le dragitem avec un evenement "DropObject"

If obj.RawDataAvailable("Toto") then
  me.Text = obj.RawData("Toto")
end

Et voila :)


Je fais mes sauvegardes sur NSA-Cloud !

Au bout de 10 ans, le vieux MacPro vient de laisser sa place à un MacMini i7...


#4 patyom

patyom

    Grand(e) bavard(e)

  • Membres
  • PipPipPip
  • 345 Messages :
  • Sexe:Masculin
  • Localisation:Livernon (Lot)

Posté 28 octobre 2018 - 16:46

Bonjour Borak

En Attendant une réponse j'ai poussé un peu mes recherche et j'ai trouvé.

C'est effectivement la démarche que tu as posté mais à la différence qu'au moment où je Drag la ligne de la Listbox, je ne passe pas le texte de la ligne mais une image préalablement importé à l'aide d'une des données de cette ligne qui m'a servi à reconstituer la clé de l'image, là je fais dans le Dragrow de la listbox, un dragPicture.

 

DRAGROW de Listbox

'Déclarations

dim p as picture
dim Chemin as string

'Initialisations
AAMMJJ = Me.Cell(Me.ListIndex,1)

Chemin = "Macintosh HD:Users:PATRICK:Documents:MonDomaine:Projets:" + AAMMJJ

p = ProgsCommuns.MOuverturePicture(Chemin)

drag.Picture = p

Return True

et pour le DROP dans canvas c'est comme d'habitude

 

Je n'avais pas visualisé les différentes options du DRAG et c'est pour çà que j'ai posé la question.

 

C'est çà que je n'arrivais pas à imaginer.

 

çà colle, c'est parfait

 

merci


Ce message a été modifié par patyom - 28 octobre 2018 - 16:48 .

MacBook Pro - 13" - 4Go - 250Go
Emac 1GHz - 640 MB - 40 Go




0 utilisateur(s) en train de lire ce sujet

0 membre(s), 0 invité(s), 0 utilisateur(s) anonyme(s)