快进来authoware多媒体素材库平台源代码可以下载了
[这个贴子最后由chmedia在 2004/08/09 10:23am 第 3 次编辑]
进入cbt超级论坛就可以下载了：
http://www.juscrea.com/cgi-bin
多媒体素材库平台源代码已共享。
大量光盘及源代码将陆续共享给大家，请大家要回复呀（我昨天晚上整理一晚上眼睛好痛55呵呵）多多支持！
其中的代码：
lastClick:=Click+1--所选的源目录树的条目位置（即行号）
favorClick:=Click_temp+1--选择的收藏夹的条目位置（即行号）
--如果选择的收藏夹的条目是素材则提示选择目录
--判断是否存在文件夹
if myItems2="" then
MessageBox(WindowHandle, "请先建立一个目录!", "提示", 64)
GoTo(IconID@"main_frame")
end if
--判断是否正确
if favorClick<1 then
MessageBox(WindowHandle, "请在收藏夹中选择存放目录!", "提示", 64)
GoTo(IconID@"main_frame")
end if
node2:=GetLine(myImageIndex2, favorClick)
if node2=17 then
-- MessageBox(WindowHandle, "请在收藏夹中选择存放目录!", "提示", 64)
-- GoTo(IconID@"main_frame")
repeat with ii:=favorClick down to 1
if GetLine(myImageIndex2, ii)=6 then
exit repeat
end if
end repeat
favorClick:=ii
end if
cur_leave:=1--选择的收藏夹的目录级别
cur_item:=GetLine(myItems2, favorClick)--选择的收藏夹的条目
repeat while SubStr(cur_item, cur_leave, cur_leave)=" "
cur_leave:=cur_leave+1
end repeat
--计算选择的收藏夹的目录级别和选择的源目录树的目录级别之间的差数
--如果差数大于或等于0，则应在对收藏夹添加目录树之前对源目录树的条目补空格（即增加其级别）
sel_leave:=node_info[lastClick,2]--选择的源目录树的目录级别
sub_leave:=cur_leave-sel_leave+1
temp:=""
if sub_leave>=0 then
repeat with i:=1 to sub_leave
temp:=temp^" "
end repeat
end if
--计算备份开始点
bak_line:=""
last_line:=GetLine(myItems2, LineCount(myItems2))
last_line_leave:=1
repeat while SubStr(last_line, last_line_leave,last_line_leave)=" "
last_line_leave:=last_line_leave+1
end repeat
bak_position:=favorClick+1
repeat with bak_position:=favorClick+1 to LineCount(myItems2)
cur_line_leave1:=1
cur_item1:=GetLine(myItems2, bak_position )
repeat while SubStr(cur_item1, cur_line_leave1,cur_line_leave1)=" "
cur_line_leave1:=cur_line_leave1+1
end repeat
if cur_line_leave1<=cur_leave then
exit repeat
end if
end repeat
bak_position:=bak_position-1
----如果备份开始点不是收藏夹末尾，则先保存选择位置以后的目录树（从备份开始点到最后）
if bak_positionnode_info[lastClick,2])&(max_line=0 then
myItems2:=myItems2^temp^new_item^"\r"
else
myItems2:=myItems2^SubStr(new_item,ABS(sub_leave)+1,CharCount(new_item))^"\r"
end if
max_line:=max_line+1
----------------
----如果差数小于0，则应在对收藏夹添加目录树之前对源目录树的条目减空格（即降低其级别）
myItems2:=myItems2^SubStr(new_item,ABS(sub_leave)+1,CharCount(GetLine(myItems,max_line)))^"\r"
end if
else--如果选择了素材，则把该素材复制到收藏夹
if sub_leave>=0 then
myItems2:=myItems2^temp^GetLine(myItems,lastClick)^"\r"
else
new_item:=GetLine(myItems,lastClick)
myItems2:=myItems2^SubStr(new_item,ABS(sub_leave)+1,CharCount(GetLine(myItems,lastClick)))^"\r"
-----------
--如果备份了部分目录，则添加刚才保存的目录树
if if_bak=1 then
myItems2:=myItems2^bak_line
myImageIndex2:=myImageIndex2^bak_images
myNodeIndex2:=myNodeIndex2^bak_myNodeIndex2
end if
wcSetPropertyValue(con_id2, "Items", myItems2)
wcSetPropertyValue(con_id2, "ImageIndex", myImageIndex2)
wcSetPropertyValue(con_id2, "Focus", "true")
-------------
