Gambas France BETA


Pas de compte ? Incription

Drag élément d'une listview

1
AuteurMessages
spheris#1 Posté le 3/5/2010 à 11:08:00
Dans ma listview, j'ai trois item image+ texte.
je voudrais les déplacer un a un par drag and drop dans une gridview.

mon drag :
PUBLIC SUB ListView1_Drag()
IF Drag.Type <> Drag.Image THEN STOP EVENT
END

mon drag move :
PUBLIC SUB ListView1_MouseDrag()
IF Mouse.Left THEN
Drag.Icon = ListView1.Current.Picture
'LAST.Drag(LAST.ListView)
ENDIF
END

Je pense que le problème se situe dans mon drag_move mais Où ... ???
;)
www.gambaslinux.fr
taoteblues#2 Posté le 5/5/2010 à 05:40:00
Cher Spheris,

Pourquoi ne reprends-tu pas l'exemple fourni?

1
PUBLIC SUB ListView1_MouseDrag() DIM hPict AS Picture IF NOT Mouse.Left THEN RETURN WITH ListView1 IF .Find(Mouse.X, Mouse.Y) THEN RETURN IF NOT .Key THEN RETURN hPict = NEW Picture(32 + 8 + .Font.Width(.Current.Text), 32, TRUE) Draw.Begin(hPict) TRY Draw.Picture(.Current.Picture, 0, 0) Draw.Font = .Font Draw.Text(.Current.Text, 34, 0, hPict.Width, 32, Align.Left) Draw.End Drag.Icon = hPict .Drag(.Key, MIME_TYPE) END WITHEND


Amitiés
taoteblues
spheris#3 Posté le 5/5/2010 à 09:54:00
Merci c'est exactement ce que je cherchais.
Mais dans quel exemple était-ce ?
;)
www.gambaslinux.fr
gambix#4 Posté le 5/5/2010 à 10:59:00
Faire simple !drag n drop :lol:
Moins de texte dans une signature c'est agrandir son espace.
1