Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Glisser-déplacer image

Glisser-déplacer image

1 réponse
Avatar
sergio
Bonjour,

j'ai deux contrôles images sur une même form, et je voudrais par un
glisser-déplacer copier la propriété picture d'une image sur l'autre image.
Comment faire ? Quelles sont les propriétés et les évènements à définir ?
Merci pour votre aide.
Salutations.
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Jean-Marc
"sergio" a écrit dans le message de
news:
Bonjour,

j'ai deux contrôles images sur une même form, et je voudrais par un
glisser-déplacer copier la propriété picture d'une image sur l'autre


image.
Comment faire ? Quelles sont les propriétés et les évènements à définir ?
Merci pour votre aide.
Salutations.



Hello,
je te donne l'idée générale + du code qui fonctionne. Voir la doc pour le
reste.

Sur une form, placer 2 controles images: image1 et image2
pour que ce soit plus démonstratif, les 2 avec borderstyle=1 et Appareance flat


dans les propriétés de Image1, OleDropMode = 1
dans les propriétés de Image2, OleDragMode = 1
mettre un picture dans ton image2.

puis mettre ce code:

Private Sub Image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As
Integer, Shift As Integer, X As Single, Y As Single)

Image1.Picture = Data.GetData(2)
End Sub

lancer le programme. Voila ça marche. Tu peux drag and droper de image2 vers
image1.

le reste est dans la doc, le principe est la.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."