Scusate ma pensavo di non averlo fatto...così va bene?
Sempre un saluto a tutti
Vorrei poter inserire a piacere una immagine in una windows trascinandola da
una cartella (es la cartella immagini)
ho inserito in una window un oggetto IMAGEWELL e seguendo da manuale ho
immesso i seguenti controlli :
Nella OPEN :
Me.AcceptPictureDrop
Me.AcceptFileDrop("image/x-jpg")
Nel DropObject
If Obj.PictureAvailable then
Me.Image=Obj.Picture
elseif Obj.FolderItemAvailable then
Me.Image=Obj. FolderItem.OpenAsPicture
End if
Nel MouseDown
Dim d as DragItem
d= NewDragItem( Me.left, Me.top, Me.width, Me.height)
d.picture= Me.Image
d.Drag //Allow the drag
Ma non riesco a vedere l'iimagine trascinata.
Sempre un grazie a tutti
Enrico
|