I try to realize Drag&Drop functionality for symbol element in Zenon Runtime mode.
I have read post http://www.copadata.com/forums/showthread.php?t=486&highlight=dragdrop for example.
I wrote macros for DragBegin and it works. But when I clicked leftbutton of mouse on symbol and began dragging mouse cursor changed and looked not good for this functionality, see attachments. I tried to change it. But my code don't work.
Is it possible to change cursor during drag&drop operation? How can to do it?
Do you plan to develop a good Drag&Drop functionality for symbol in Runtime mode in new versions Zenon?
VBA Code:
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Function MouseCursor(CursorType As Long)
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End Function
Public Sub DragBegin_select(obElem As Element, vPosX As Variant, vPosY As Variant)
Set obElem_DR_begin = obElem
Call MouseCursor(IDC_HAND)
End Sub
This is a migrated post! Originally posted on 19.11.2010 by user altera. Please be aware that information can be outdated.