[vb6] plaatje laten zien bij drag-actie

[DPLuS]

Hoi,

Ik wil in vb6 bij een "drag"-actie het plaatje laten zien dat ik aan 't verslepen ben.
Hoe kan ik dat bewerkstelligen?
Want nu kan ik alleen een dragicon definieren.

[Crazy D]

Plaatje dat je aan het verslepen bent als DragIcon instellen

[DPLuS]

Zoals de naam DragIcon al doet vermoeden, kan ik alleen *.ico en *.cur bestanden instellen als DragIcon.

Dus geen JPG of BMP of GIF...

En dat is juist wat ik moet hebben...

[kaandorp]

Kun je niet gewoon een beetje creatief een functie daarvoor maken?

Dus gewoon OnMouseDown plaatje aan pijltje vast maken en bij moven van muis de coordinaten van de muispointer gebruiken voor de coordinaten van het plaatje?

[Verwijderd]

Misschien een idee;

Ik zou met de muiscursor-coordinaten (de code hiervoor haal je zo van PSC) gewoon de imagecontrol mee laten verslepen bij mousedown dmv. de left en top properties van de imagecontrol.

success anyway!

edit:

PSC = Planet SourceCode = http://www.planetsourcecode.com

[Verwijderd]

Ok, heb het gevonden:
maak een module en stop in de General declarations:

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

Type PointAPI
X As Long
Y As Long
End Type

Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

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

maak een Form, met 2 labels Label1 en Label2 en een Timer Timer1 (interval=1)

In de General Declarations van deze form:
Dim Pnt As PointAPI

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

Onder Timer1:

GetCursorPos Pnt
Form1.Label1 = Pnt.X
Form1.Label2 = Pnt.Y

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

Thats it and thats that!