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 problème DragAndDrop picture

problème DragAndDrop picture

7 réponses
Avatar
LE TROLL
Bonjour,

J'ai une erreur sur un drag and drop de picture, procédure
n°2:
En fait au niveau du déplacement j'ai déclaré l'image de la
picture comme icône de curseur, et ça semble ne pas
plaire...
Voici ce que j'ai fait:

Dim indice As Byte ' picture1(60) de 1 à 60
Sub Picture1_MouseDown(Index As Integer, Button As Integer,
Shift As Integer, X As Single, Y As Single)
indice = Index
Picture1(indice).Drag vbBeginDrag
End Sub

Sub Picture1_DragOver(Index As Integer, Source As Control, X
As Single, Y As Single, State As Integer)
Source.DragIcon = Picture1(indice) " ### ICI ERREUR 380
valeur de la propriété incorrecte...
End Sub

Sub Picture1_DragDrop(Index As Integer, Source As Control, X
As Single, Y As Single)
Picture1(Index).Picture = Picture1(indice).Picture
End Sub

Je voudrais en fait avoir l'image déplacé en curseur au
moment du déplacement, comment faire ???

Merci, au revoir et à bientôt :o)
--
ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison
!
Signaler un problème avec ce contenu

7 réponses

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
Guy DETIENNE
Salut ;O)

Il me semble que ce dont tu veux faire n'est pas aussi simple que cela.

Voici un lien qui t'aidera sûrement.

Custom Drag-Drop Images Using ImageLists
http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/article.asp


Guy

"LE TROLL" <le a écrit dans le message de
news:
Bonjour,

J'ai une erreur sur un drag and drop de picture, procédure
n°2:
En fait au niveau du déplacement j'ai déclaré l'image de la
picture comme icône de curseur, et ça semble ne pas
plaire...
Voici ce que j'ai fait:

Dim indice As Byte ' picture1(60) de 1 à 60
Sub Picture1_MouseDown(Index As Integer, Button As Integer,
Shift As Integer, X As Single, Y As Single)
indice = Index
Picture1(indice).Drag vbBeginDrag
End Sub

Sub Picture1_DragOver(Index As Integer, Source As Control, X
As Single, Y As Single, State As Integer)
Source.DragIcon = Picture1(indice) " ### ICI ERREUR 380
valeur de la propriété incorrecte...
End Sub

Sub Picture1_DragDrop(Index As Integer, Source As Control, X
As Single, Y As Single)
Picture1(Index).Picture = Picture1(indice).Picture
End Sub

Je voudrais en fait avoir l'image déplacé en curseur au
moment du déplacement, comment faire ???

Merci, au revoir et à bientôt :o)
--
ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison
!





Avatar
LE TROLL
Merci, je vais voir...



"Guy DETIENNE" a écrit dans le message
de news: OTM%
Salut ;O)

Il me semble que ce dont tu veux faire n'est pas aussi
simple que cela.

Voici un lien qui t'aidera sûrement.

Custom Drag-Drop Images Using ImageLists
http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/article.asp


Guy

"LE TROLL" <le a écrit dans le message
de
news:
Bonjour,

J'ai une erreur sur un drag and drop de picture,
procédure
n°2:
En fait au niveau du déplacement j'ai déclaré l'image de
la
picture comme icône de curseur, et ça semble ne pas
plaire...
Voici ce que j'ai fait:

Dim indice As Byte ' picture1(60) de 1 à 60
Sub Picture1_MouseDown(Index As Integer, Button As
Integer,
Shift As Integer, X As Single, Y As Single)
indice = Index
Picture1(indice).Drag vbBeginDrag
End Sub

Sub Picture1_DragOver(Index As Integer, Source As
Control, X
As Single, Y As Single, State As Integer)
Source.DragIcon = Picture1(indice) " ### ICI ERREUR
380
valeur de la propriété incorrecte...
End Sub

Sub Picture1_DragDrop(Index As Integer, Source As
Control, X
As Single, Y As Single)
Picture1(Index).Picture = Picture1(indice).Picture
End Sub

Je voudrais en fait avoir l'image déplacé en curseur au
moment du déplacement, comment faire ???

Merci, au revoir et à bientôt :o)
--
ECRIRE AU TROLL
http://irolog.free.fr/letroll/index.html
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours
raison
!









Avatar
LE TROLL
Ça s'avère plus complexe que prévu, il est dit dans les
forums que le curseur doit être de type icône, alors donc je
ne peut y balancer l'image à déplacer, je comprends... Car
avant j'avais fait ça, mais en effet avec un curseur...

Le problème reste entier, j'ai déjà vu sur Windows des
DragAndDrop avec déplacement de l'image source, reste à
savoir quelle est la façon de procéder, si quelqu'un sait
???

-----------------------------

"Guy DETIENNE" a écrit dans le message
de news: OTM%
Salut ;O)

Il me semble que ce dont tu veux faire n'est pas aussi
simple que cela.

Voici un lien qui t'aidera sûrement.

Custom Drag-Drop Images Using ImageLists
http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/article.asp


Guy

"LE TROLL" <le a écrit dans le message
de
news:
Bonjour,

J'ai une erreur sur un drag and drop de picture,
procédure
n°2:
En fait au niveau du déplacement j'ai déclaré l'image de
la
picture comme icône de curseur, et ça semble ne pas
plaire...
Voici ce que j'ai fait:

Dim indice As Byte ' picture1(60) de 1 à 60
Sub Picture1_MouseDown(Index As Integer, Button As
Integer,
Shift As Integer, X As Single, Y As Single)
indice = Index
Picture1(indice).Drag vbBeginDrag
End Sub

Sub Picture1_DragOver(Index As Integer, Source As
Control, X
As Single, Y As Single, State As Integer)
Source.DragIcon = Picture1(indice) " ### ICI ERREUR
380
valeur de la propriété incorrecte...
End Sub

Sub Picture1_DragDrop(Index As Integer, Source As
Control, X
As Single, Y As Single)
Picture1(Index).Picture = Picture1(indice).Picture
End Sub

Je voudrais en fait avoir l'image déplacé en curseur au
moment du déplacement, comment faire ???

Merci, au revoir et à bientôt :o)
--
ECRIRE AU TROLL
http://irolog.free.fr/letroll/index.html
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours
raison
!









Avatar
LE TROLL
Salut, Guy,

La seconde possibilité c'est avec OLE, mais il faut une liste des fichiers,
etc... Ça fait beaucoup à faire, alors comme mon image est presque de la taille
d'une icône, ben j'ai simplement doublé les images, un tas "image" et un tas
"icônes", ça ira comme ça, merci beaucoup, fin du post pour moi :o)


"Guy DETIENNE" a écrit dans le message de news:
OTM%
Salut ;O)

Il me semble que ce dont tu veux faire n'est pas aussi simple que cela.

Voici un lien qui t'aidera sûrement.

Custom Drag-Drop Images Using ImageLists
http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/article.asp


Guy

"LE TROLL" <le a écrit dans le message de
news:
Bonjour,

J'ai une erreur sur un drag and drop de picture, procédure
n°2:
En fait au niveau du déplacement j'ai déclaré l'image de la
picture comme icône de curseur, et ça semble ne pas
plaire...
Voici ce que j'ai fait:

Dim indice As Byte ' picture1(60) de 1 à 60
Sub Picture1_MouseDown(Index As Integer, Button As Integer,
Shift As Integer, X As Single, Y As Single)
indice = Index
Picture1(indice).Drag vbBeginDrag
End Sub

Sub Picture1_DragOver(Index As Integer, Source As Control, X
As Single, Y As Single, State As Integer)
Source.DragIcon = Picture1(indice) " ### ICI ERREUR 380
valeur de la propriété incorrecte...
End Sub

Sub Picture1_DragDrop(Index As Integer, Source As Control, X
As Single, Y As Single)
Picture1(Index).Picture = Picture1(indice).Picture
End Sub

Je voudrais en fait avoir l'image déplacé en curseur au
moment du déplacement, comment faire ???

Merci, au revoir et à bientôt :o)
--
ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison
!









Avatar
Guy DETIENNE
Salut ;O)

Si tu veux quelque chose de convaincant avec VB, il ne fait pas avoir peur
de la difficulté.
Le lien proposé précédemment répondait me semble-t-il parfaitement à ta
demande sauf qui la méthode était ardue...

Guy

"LE TROLL" <le a écrit dans le message de
news:
Salut, Guy,

La seconde possibilité c'est avec OLE, mais il faut une liste des


fichiers,
etc... Ça fait beaucoup à faire, alors comme mon image est presque de la


taille
d'une icône, ben j'ai simplement doublé les images, un tas "image" et un


tas
"icônes", ça ira comme ça, merci beaucoup, fin du post pour moi :o)


"Guy DETIENNE" a écrit dans le message de news:
OTM%
> Salut ;O)
>
> Il me semble que ce dont tu veux faire n'est pas aussi simple que cela.
>
> Voici un lien qui t'aidera sûrement.
>
> Custom Drag-Drop Images Using ImageLists
>


http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/article.asp
>
>
> Guy
>
> "LE TROLL" <le a écrit dans le message de
> news:
>> Bonjour,
>>
>> J'ai une erreur sur un drag and drop de picture, procédure
>> n°2:
>> En fait au niveau du déplacement j'ai déclaré l'image de la
>> picture comme icône de curseur, et ça semble ne pas
>> plaire...
>> Voici ce que j'ai fait:
>>
>> Dim indice As Byte ' picture1(60) de 1 à 60
>> Sub Picture1_MouseDown(Index As Integer, Button As Integer,
>> Shift As Integer, X As Single, Y As Single)
>> indice = Index
>> Picture1(indice).Drag vbBeginDrag
>> End Sub
>>
>> Sub Picture1_DragOver(Index As Integer, Source As Control, X
>> As Single, Y As Single, State As Integer)
>> Source.DragIcon = Picture1(indice) " ### ICI ERREUR 380
>> valeur de la propriété incorrecte...
>> End Sub
>>
>> Sub Picture1_DragDrop(Index As Integer, Source As Control, X
>> As Single, Y As Single)
>> Picture1(Index).Picture = Picture1(indice).Picture
>> End Sub
>>
>> Je voudrais en fait avoir l'image déplacé en curseur au
>> moment du déplacement, comment faire ???
>>
>> Merci, au revoir et à bientôt :o)
>> --
>> ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
>> ------------------------------------------------------------
>> LE TROLL, éleveur de trolls depuis César, qui disait :
>> Avec une hache, celui qui tient le manche a toujours raison
>> !
>>
>>
>>
>
>




Avatar
LE TROLL
Oh yes, déjàa appendre l'anglais :o)


"Guy DETIENNE" a écrit dans le message de news:
%
Salut ;O)

Si tu veux quelque chose de convaincant avec VB, il ne fait pas avoir peur
de la difficulté.
Le lien proposé précédemment répondait me semble-t-il parfaitement à ta
demande sauf qui la méthode était ardue...

Guy

"LE TROLL" <le a écrit dans le message de
news:
Salut, Guy,

La seconde possibilité c'est avec OLE, mais il faut une liste des


fichiers,
etc... Ça fait beaucoup à faire, alors comme mon image est presque de la


taille
d'une icône, ben j'ai simplement doublé les images, un tas "image" et un


tas
"icônes", ça ira comme ça, merci beaucoup, fin du post pour moi :o)


"Guy DETIENNE" a écrit dans le message de news:
OTM%
> Salut ;O)
>
> Il me semble que ce dont tu veux faire n'est pas aussi simple que cela.
>
> Voici un lien qui t'aidera sûrement.
>
> Custom Drag-Drop Images Using ImageLists
>


http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/article.asp
>
>
> Guy
>
> "LE TROLL" <le a écrit dans le message de
> news:
>> Bonjour,
>>
>> J'ai une erreur sur un drag and drop de picture, procédure
>> n°2:
>> En fait au niveau du déplacement j'ai déclaré l'image de la
>> picture comme icône de curseur, et ça semble ne pas
>> plaire...
>> Voici ce que j'ai fait:
>>
>> Dim indice As Byte ' picture1(60) de 1 à 60
>> Sub Picture1_MouseDown(Index As Integer, Button As Integer,
>> Shift As Integer, X As Single, Y As Single)
>> indice = Index
>> Picture1(indice).Drag vbBeginDrag
>> End Sub
>>
>> Sub Picture1_DragOver(Index As Integer, Source As Control, X
>> As Single, Y As Single, State As Integer)
>> Source.DragIcon = Picture1(indice) " ### ICI ERREUR 380
>> valeur de la propriété incorrecte...
>> End Sub
>>
>> Sub Picture1_DragDrop(Index As Integer, Source As Control, X
>> As Single, Y As Single)
>> Picture1(Index).Picture = Picture1(indice).Picture
>> End Sub
>>
>> Je voudrais en fait avoir l'image déplacé en curseur au
>> moment du déplacement, comment faire ???
>>
>> Merci, au revoir et à bientôt :o)
>> --
>> ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
>> ------------------------------------------------------------
>> LE TROLL, éleveur de trolls depuis César, qui disait :
>> Avec une hache, celui qui tient le manche a toujours raison
>> !
>>
>>
>>
>
>








Avatar
Guy DETIENNE
En effet, sans quoi le nombre de sites diminue fameusement...

Guy

"LE TROLL" <le a écrit dans le message de
news:
Oh yes, déjàa appendre l'anglais :o)


"Guy DETIENNE" a écrit dans le message de news:
%
> Salut ;O)
>
> Si tu veux quelque chose de convaincant avec VB, il ne fait pas avoir


peur
> de la difficulté.
> Le lien proposé précédemment répondait me semble-t-il parfaitement à ta
> demande sauf qui la méthode était ardue...
>
> Guy
>
> "LE TROLL" <le a écrit dans le message de
> news:
>> Salut, Guy,
>>
>> La seconde possibilité c'est avec OLE, mais il faut une liste des
> fichiers,
>> etc... Ça fait beaucoup à faire, alors comme mon image est presque de


la
> taille
>> d'une icône, ben j'ai simplement doublé les images, un tas "image" et


un
> tas
>> "icônes", ça ira comme ça, merci beaucoup, fin du post pour moi :o)
>>
>>
>> "Guy DETIENNE" a écrit dans le message de news:
>> OTM%
>> > Salut ;O)
>> >
>> > Il me semble que ce dont tu veux faire n'est pas aussi simple que


cela.
>> >
>> > Voici un lien qui t'aidera sûrement.
>> >
>> > Custom Drag-Drop Images Using ImageLists
>> >
>


http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/article.asp
>> >
>> >
>> > Guy
>> >
>> > "LE TROLL" <le a écrit dans le message de
>> > news:
>> >> Bonjour,
>> >>
>> >> J'ai une erreur sur un drag and drop de picture, procédure
>> >> n°2:
>> >> En fait au niveau du déplacement j'ai déclaré l'image de la
>> >> picture comme icône de curseur, et ça semble ne pas
>> >> plaire...
>> >> Voici ce que j'ai fait:
>> >>
>> >> Dim indice As Byte ' picture1(60) de 1 à 60
>> >> Sub Picture1_MouseDown(Index As Integer, Button As Integer,
>> >> Shift As Integer, X As Single, Y As Single)
>> >> indice = Index
>> >> Picture1(indice).Drag vbBeginDrag
>> >> End Sub
>> >>
>> >> Sub Picture1_DragOver(Index As Integer, Source As Control, X
>> >> As Single, Y As Single, State As Integer)
>> >> Source.DragIcon = Picture1(indice) " ### ICI ERREUR 380
>> >> valeur de la propriété incorrecte...
>> >> End Sub
>> >>
>> >> Sub Picture1_DragDrop(Index As Integer, Source As Control, X
>> >> As Single, Y As Single)
>> >> Picture1(Index).Picture = Picture1(indice).Picture
>> >> End Sub
>> >>
>> >> Je voudrais en fait avoir l'image déplacé en curseur au
>> >> moment du déplacement, comment faire ???
>> >>
>> >> Merci, au revoir et à bientôt :o)
>> >> --
>> >> ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
>> >> ------------------------------------------------------------
>> >> LE TROLL, éleveur de trolls depuis César, qui disait :
>> >> Avec une hache, celui qui tient le manche a toujours raison
>> >> !
>> >>
>> >>
>> >>
>> >
>> >
>>
>>
>
>