有谁可以做出像WINDOWS中开始菜单一样的效果！（点击一下可以出现子菜单）

珍，我现在正在做一个模拟windows的东西，用来做公司的宣傳，不知道是否有興趣共同研究一下。

呵呵，我觉得用miaw可能更简单适用，呵呵，如果需要的话，可以和你合作。呵呵，大大节省时间。^_^

其实，用很多中方法都能实现这个功能。我曾经用lingo写过一个类似的程序，比较的麻烦。毕竟那是微软写出来的东西，考虑的很周到。
语法很简单，就是简单的显示该显示的东西，但是能否做到跟windows的一样就困难了。

这是我98年写的程序，有兴趣可以研究一下。图要自己做。
你要例子的话，我也可以先做一个，以后发给你。


（？是Alt+Enter键）

property turnMenuMem,old_MenuMem
property farther,children
property specialChild

on BeginSprite me
set old_MenuMem = the member of sprite the spriteNum of me
sendSprite(farther,#addChildren,me)
end

on mouseEnter me
if farther then
set sp=the spriteNum of me
sendSprite(farther,#hideBorther,sp)
call(#open,me)
updatestage
end if
end

on rightMouseDown me
if farther=0 then
if (the member of sprite the spriteNum of me)=old_MenuMem then
set the visible of sprite specialChild to 1
updatestage
end if
end if
end

on mouseDown me
global Down
if farther=0 then
if (the member of sprite the spriteNum of me)=old_MenuMem then
call(#open,me)
set the visible of sprite specialChild to 0
else
call(#closeAll,me)
end if
else
set Down=1
end if
end

--on mouseUp me
-- pass
--end

on mouseLeave me
if farther then
if children=[] then
set sp=the spriteNum of me
set the member of sprite sp to old_MenuMem
end if
end if
end

on addChildren me,p
addat children,p
end

on closeAll me
call(#close,me)
repeat with n=1 to count(children)
set childSp=the spriteNum of getat(children,n)
sendSprite(childSp,#closeAll)
end repeat
end

on hide me
set sp=the spriteNum of me
set the visible of sprite sp to 0
end

on show me
set sp=the spriteNum of me
set the visible of sprite sp to 1
end

on open me
set sp=the spriteNum of me
set the member of sprite sp to turnMenuMem
call(#showChildren,me)
end

on close me
set sp=the spriteNum of me
set the member of sprite sp to old_MenuMem
call(#hideChildren,me)
end

on hideChildren me
repeat with n=1 to count(children)
set childSp=the spriteNum of getat(children,n)
set the visible of sprite childSp to 0
end repeat
end

on showChildren me
repeat with n=1 to count(children)
set childSp=the spriteNum of getat(children,n)
set the visible of sprite childSp to 1
end repeat
end

on hideBorther me,oneChild
repeat with n=1 to count(children)
set childSp=the spriteNum of getat(children,n)
if not(oneChild=childSp) then
sendSprite(childSp,#closeAll)
end if
end repeat
end

on getPropertyDescriptionList
if the currentSpriteNum= 0 then
set mem=0
else
set s= the currentSpriteNum
set m=the member of sprite s
set n= the memberNum of member m
set c= the castLibNum of member m
set nm=member (n+1) of castLib c
end if
set description=[?
#turnMenuMem:[#comment:"Change the Menu Option's member:",?
#format:#graphic,?
#default: nm],?
#farther:[#comment:"the Menu Option's Farther Name:",?
#format:#integer,?
#default:0],?
#children:[#comment:"the Menu Option's Children Names:",?
#format:#integer,?
#default:[]],?
#specialChild:[#comment:"Hide or Show Child Name:",?
#format:#integer,?
#default:0]]
return description
end