荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: pIII (徐子陵》重出江湖), 信区: Multimedia
标 题: 对历遍图标程序的说明
发信站: BBS 荔园晨风站 (Sat Jun 3 11:20:46 2000), 转信
下面的程序时历遍a5p文件中每一个图标，并给显示图标加上随机过渡效果。
_BranchList := []
--建立一个空的线性表
AddLinear(_BranchList, CallTarget("GetVariable", "RootIcon") ^", 0")
--将根图标的ID加入到线性表中
repeat while ListCount(_BranchList)>0
--线性表不为空时，重复进行下列操作：
_ParentIcon:=GetNumber(1, _BranchList[1])
--得到线性表中当前第一个图标的ID，并把它赋给_parenticon变量
repeat with _ChildNum :=1 to CallTarget("IconNumChildren", _ParentIcon,
GetNumber(2, _BranchList[1]))
--从当前父图标的第一个孩子到循环最后一个孩子，孩子个数的计算方法由父图标的类
型决定。（框架图标有特别的计算方法）
_ChildIcon := CallTarget("ChildNumToID", _ParentIcon,_ChildNum, GetNumber(2,
_BranchList[1]))
--得到当前孩子的ID
_ChildTitle := CallTarget("IconTitle", _ChildIcon)
--得到当前孩子的图标名称
if CallTarget("IconType", _ChildIcon) = 4 |=5 |=6 then
AddLinear(_BranchList,_ChildIcon ^", 0") --对组图标，分支图标，交互图标进行处
理
else if CallTarget("IconType", _ChildIcon) = 12
then AddLinear(_BranchList,_ChildIcon ^", 0")
AddLinear(_BranchList,_ChildIcon ^", 1")
AddLinear(_BranchList,_ChildIcon ^", 2")
--处理框架图标
end if icons := icons + 1
--处理过的图标数一
SyncPoint(0)
SyncWait(0.001)
--同步
-- Icon types: 1 = Display 2 = Motion 3 = Erase 4 = Interaction 5 = Decision
6 = Map 7 = Wait 8 = Calc 9 = Digital Movie -- 10 = Sound 11 = Video 12 = F
ramework 13 = Navigate 14 = Sprite Xtra 15 = Knowledge Object 各种图标类型的
说明
if (CallTarget("IconType", _ChildIcon) = 1) then
--判断图标类型是否为显示图标
replacements := replacements + 1
--处理的显示图标数增加一
CallTarget("SelectIcon", _ChildIcon)
--选中当前孩子
SyncPoint(0)
SyncWait(0.001)
--同步
random_line:=Random(1,lines,1)
line_content:=GetLine(all_trans,random_line,random_line) random_cate:=GetLin
e(line_content,1,1,Tab)
random_trans:=GetLine(line_content,2,2,Tab)
CallTarget("SetIconProperty",_ChildIcon,#awIconTransition,[#category:random_
cate,#transition:random_trans]) --给显示图标加上随机过渡效果
MediaPlay(@"laser")
SyncWait(0.001)
--发出一个声音提示
end if end repeat DeleteAtIndex(_BranchList, 1)
--删除线性表中的第一个记录
end repeat
SyncPoint(0)
MediaPlay(@"laser")
SyncWait(0.001)
--发出一个声音提示
end if end repeat DeleteAtIndex(_BranchList, 1)
--删除线性表中的第一个记录
end repeat
--
════════════════════════
我不想再等待！！！
把握现在，意味着开拓未来！
愿同我一起奋斗吗？
██Email：zhalj@cmmail.com
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.36.1]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店