主题:  谁能给我讲解一下这段代码

genhua

职务:普通成员
等级:1
金币:0.0
发贴:113
注册:2003/4/17 21:22:52
#12003/7/15 11:03:54
源文件在这里
相关文件:点这儿打开



D计划-混沌

职务:管理员
等级:6
金币:15.2
发贴:3528
注册:2007/4/9 9:48:37
#22003/7/16 0:51:10
你那里有不明白之处?
这代码已经很简洁了....
property pMemRef
property pHyperlinkList

on beginSprite me
pMemRef = sprite(me.spriteNum).member---设定变量指代当前精灵在演员表中位置,这里是(member 1 of castLib 1)
me.buildHyperlinkList() ---由自定义buildHyperlinkList函数获取当前精灵超链接对应文本行列表
pMemRef.scrollTop = 0---等价于member(1).scrolltop=0
end

on buildHyperlinkList me----以下为自定义buildHyperlinkList函数
pHyperlinkList = [:]---初始化pHyperlinkList属性列表
tempList = pMemRef.hyperlinks---得到当前精灵的所有超链接区域列表
repeat with i = 1 to tempList.count---tempList.count列表的条目的个数
tempLink = pMemRef.char[ templist[i][1] ].hyperlink----得到变量tempLink为第i个数据得超链接
if tempLink starts "Anchor:" then---如果变量tempLink的开始字母为"Anchor:"那么
tempLink = value( "#" & tempLink.word[2])---变量tempLink等于变量tempLink的第二个词
pHyperlinkList.addProp(tempLink, tempList[i][1] - 1)---在属性列表增加以变量tempLink为属性,当前范围的前一字节为数据的一项
end if
end repeat
end

on hyperlinkClicked me, data, range---当点击在超链接上(此句极其参数为lingo固定用法,见帮助)
if data.char[1] = "#" then----如果data的第一个字节为"#"(data为超链接的值)
destinationAnchor = value(data) ---去掉引号以便与pHyperlinkList属性列表对应
if not voidP(pHyperlinkList.getAProp(destinationAnchor)) then----如果在pHyperlinkList属性列表不是没有数据
if pHyperlinkList[destinationAnchor] <= 0 then----如果数据小于等于0
pMemRef.scrollTop = 0---
else
pMemRef.scrollTop = charPosToLoc(pMemRef, pHyperlinkList[destinationAnchor]).locV----lingo固定用法,得到当前字节的位置
end if
end if
end if
end

编辑历史:[这消息被54zq编辑过(编辑时间2003-07-16 01:37:22)]


genhua

职务:普通成员
等级:1
金币:0.0
发贴:113
注册:2003/4/17 21:22:52
#32003/7/18 16:04:08
非常感谢楼上这位大哥。那第二个文件呢(url.dir),这个文件中他是怎么定位要链接的文字的。假如说我并不是要"www.aougu.com"作链接,而是其它(比如director)那又该怎么写呢?

编辑历史:[这消息被genhua编辑过(编辑时间2003-07-18 16:11:06)]


D计划-混沌

职务:管理员
等级:6
金币:15.2
发贴:3528
注册:2007/4/9 9:48:37
#42003/7/18 22:28:35
我不明白为什么他这么写
用on hyperlinkClicked me, data就可以了
相关文件:点这儿打开



genhua

职务:普通成员
等级:1
金币:0.0
发贴:113
注册:2003/4/17 21:22:52
#52003/7/19 10:00:16
大哥,我看不懂呀,可不可以在代码上加点解释。究竟怎么样定位需要链接的文字。



草原风

职务:版主
等级:5
金币:13.0
发贴:3489
注册:2001/2/17 19:47:06
#62003/7/22 12:20:05
还是好好学习一下LINGO吧