problème DragAndDrop picture
Le
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
!
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
!
Poser une question
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/V...rticle.asp
Guy
"LE TROLL" news:
"Guy DETIENNE" de news: OTM%
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" de news: OTM%
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" OTM%
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" news:
fichiers,
taille
tas
http://www.vbaccelerator.com/home/V...rticle.asp