|
主题: 谁能给我讲解一下这段代码
|
 genhua
职务:普通成员
等级:1
金币:0.0
发贴:113
注册:2003/4/17 21:22:52
|
|
 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吧
|