[RESOLVED] DragIcon = LoadCursor

[MikiSoft]

The question is simple: How to set DragIcon property to load a (current) Link Select system cursor? LoadCursor API gives only a pointer to the cursor for later usage with SetCursor API. Does anyone know how to utilize that to achieve the goal?

[jmsrickland]

You can set it at design time using the properties window or at run time using object.DragIcon = LoadPicture("path_to_cursor_icons\cursor_image_file.cur")

[MikiSoft]

Read my question again. I was asking for loading a current system cursor from the memory, not something from the file. That's why I'm mentioning the LoadCursor API.

[LaVolpe]

Another option if you want to use one of the MousePointer constants...
In the OLEGiveFeedback event of the object being dragged:

DefaultCursors = False
Screen.MousePointer = vbHourglass ' for example

Then in the OLECompleteDrag event

Screen.MousePointer = vbDefault

[MikiSoft]

Yeah but I want to load a Link Select cursor which has no VB constant. Sorry for that, I've edited the main post to be more clear now.

[LaVolpe]

If you give this forum a quick search for the following, you'll find a routine that converts icons/cursor handles to a stdPicture object. Once you have that, you can apply the custom image to the drag operation. Search for: OleCreatePictureIndirect

1. Declare a stdPicture object/variable at top of your form to hold the image returned from OleCreatePictureIndirect. This is set/released in the events below.
2. In the OLEStartDrag event: create [the stdPicture] object & assign to your form-level variable
3. In the OLEGiveFeedback event

DefaultCursors = False
Set Screen.MouseIcon = [the stdPicture]
Screen.MousePointer = vbCustom

4. In the OLECompleteDrag event

Screen.MousePointer = vbDefault
Set [the stdPicture] = Nothing ' free some memory

Thinking above is easy & should work

[MikiSoft]

Thanks for the tip! I found solution here: http://www.vbaccelerator.com/home/VB...le/article.asp