主题:  windows的树型目录怎样加动作行为?

moueiki

职务:普通成员
等级:1
金币:0.0
发贴:44
注册:2002/3/22 9:38:10
#12002/4/27 9:34:44
我制作了一个仿windows的树型目录,但不知怎样加动作行为?请高手指点。



5D荣誉斑竹

职务:普通成员
等级:4
金币:13.0
发贴:1504
注册:2000/11/14 12:10:50
#22002/4/27 13:05:41
选中其中一个对象,点右键,在弹出菜单中有个script和behaviors,选中它们其中一个就可以了,再在上面建立你的行为脚本


閑闪互动多媒体

moueiki

职务:普通成员
等级:1
金币:0.0
发贴:44
注册:2002/3/22 9:38:10
#32002/4/27 16:16:03
我用的是插件TreeView(http://www.updatestage.com)
点右键的方法不行,因为此目录是一整体对象。
lingo如下:
global event

on beginsprite
event=false

--建立根节点root
root = getRootNodeXTV(sprite 6)
--根节点取名为"多媒体魔法录"
setNameXTV(sprite 6,root,"结构介绍")


--添加五个孩子节点
SecondNodeID1 = addChildXTV(sprite 6, root, 1, 0)
setNameXTV(sprite 6,SecondNodeID1,"部分")

SecondNodeID2 = addChildXTV(sprite 6, root, 1, 0)
setNameXTV(sprite 6,SecondNodeID2,"部分1-1")

SecondNodeID3 = addChildXTV(sprite 6, root, 1, 0)
setNameXTV(sprite 6,SecondNodeID3,"1-2")


--添加孙子节点
ThirdNodeID1 = addChildXTV(sprite 6, SecondNodeID1, 1, 0)
setNameXTV(sprite 6,ThirdNodeID1,"1-3")

ThirdNodeID1 = addChildXTV(sprite 6, SecondNodeID1, 1, 0)
setNameXTV(sprite 6,ThirdNodeID1,"1-4")

ThirdNodeID1 = addChildXTV(sprite 6, SecondNodeID1, 1, 0)
setNameXTV(sprite 6,ThirdNodeID1,"1-5")


ThirdNodeID2 = addChildXTV(sprite 6, SecondNodeID2, 1, 0)
setNameXTV(sprite 6,ThirdNodeID2,"2")

ThirdNodeID2 = addChildXTV(sprite 6, SecondNodeID2, 1, 0)
setNameXTV(sprite 6,ThirdNodeID2,"2-1")


--将根节点展开
setExpandedXTV(sprite 6,0,1)

---- Hide scrollbars
setScrollbarUsageXTV(sprite 6,1)
setScrollbarColorsXTV(sprite 6,0,0,65535,0,0,65535,0, 0,0)



--设置标题颜色为白色
repeat with i=0 to 25
setFontColorXTV(sprite 6,i,65535,65535,65535)
end repeat
--设置当点击时标题文字的背景色
setTextHiliteColorXTV(sprite 6,65535,0,65535)
--向文字格式列表中添加新的一项
fontlist=addFontXTV(sprite 6,"Arial",16,0)
--设置标题文字的格式
repeat with i=0 to 25
setFontIDXTV(sprite 6,i,fontlist)
end repeat

put event
End

--on expandtree
-- if event=false then
-- setExpandedXTV(sprite 6,0,1)
-- else
-- setExpandedXTV(sprite 6,0,0)
-- end if
--end


on treeViewSingleClick refcon, id, whichPart
refcon=0
id=0
whichPart=2
if event=false then
setExpandedXTV(sprite 6,0,0)
redrawXTV(sprite 6)
event=true
else
setExpandedXTV(sprite 6,0,1)
redrawXTV(sprite 6)
event=false
end if

put event
end