عمل Drag & Drop در دایرکتور

[nima13465]

یعنی تصویر شماره 1 باید کشیده بشه و روی تصویر شماره 2 رها بشه

برای این کار باید خاصیت moveable تصویر 1 رو فعال کنیم

اما کد لینگو کاملش چی میشه ؟

یعنی اگر عمل drag & drop به درستی انجام شد ( دقیقا روی تصویر 2 رها شد )، به مارکر بعدی بره ، در غیر این صورت هیچ اتفاقی نیفته و تصویر 1 از مکان خودش جا به جا نشه

 

[directormx]

سلام
با پیش فرض اینکه اسپرایت شماره 1 باید روی اسپرایت شماره 2 گذاشته شود نوشتم

توضیح : کد ها رو خیلی سریع نوشتم چون عجله داشتم باید به کاره دیگه رسیدگی می کرد

کد های زیر را داخل اسکریپت اسپرایت شماره یک بذار

موفق باشید


property spritenum
property match,matchpos

on beginsprite
match = false
sprite(spritenum).moveableSprite = true
end

on mousewithin
pMySpriteRef = sprite(2)

if match = false then
put sprite(spritenum).rect , pMySpriteRef.rect, match
if ((sprite(spritenum).left - 10 < pMySpriteRef.left) and (sprite(spritenum).left + 10 > pMySpriteRef.left)) and ((sprite(spritenum).top - 10 < pMySpriteRef.top) and (sprite(spritenum).top + 10 > pMySpriteRef.top)) and ((sprite(spritenum).right - 10 < pMySpriteRef.right) and (sprite(spritenum).right + 10 > pMySpriteRef.right)) and ((sprite(spritenum).bottom - 10 < pMySpriteRef.bottom) and (sprite(spritenum).bottom + 10 > pMySpriteRef.bottom)) then

match = true
else
match = false
end if

if match = true then
matchpos = sprite(spritenum).loc
sprite(spritenum).moveableSprite = False
end if
end if
end

on mouseUp me
sprite(spritenum).loc = matchpos
end