"应用在小字体文本域上的代码"
global gLineCount
on mouseup me
Num=0
i=1
repeat while Num<sprite(me.spritenum).member.scrolltop
Num=sprite(me.spritenum).member.lineHeight(i)+Num
i=i+1
end repeat
gLineCount=i
end
"大字体文本域上的代码"
global gLineCount
on beginsprite me
i=1
repeat while i<gLineCount
sprite(me.spritenum).member.scrolltop=sprite(me.spritenum).member.scrolltop+sprite(me.spritenum).member.lineheight(i)
i=i+1
end repeat
end
on endsprite me
sprite(me.spritenum).member.scrolltop=0
end
具体思路就是这样,可能还有些小的地方不是很完善
你自己再修改一下
我要放假了

不能再改动这段代码了
你自己好好研究一下
看看lingo词典里面关于text的地方
就能找到解决的办法了