|
小弟最近在写一个在线编辑器，UBB版的，由于没有使用弹出窗口，所以，在添加代码的时候，只能添在TextArea的最后面，无法在光标之前插入，于是在网上疯狂的找资料，工夫不负有心人，终于被我找到了如何获得TextArea中的位置，但是如果TextArea中有很多内容的时候，会显得很闪烁。其代码如下。
function getPos(obj)
{
obj.focus();
var workRange=document.selection.createRange();
obj.select();
var allRange=document.selection.createRange();
workRange.setEndPoint("StartToStart",allRange);
var len=workRange.text.length;
workRange.collapse(false);
workRange.select();
return len;
}
这时候问题出来了，在obj.select()的时候，会造成闪烁，并且滚动条也无法归位。于是小弟根据自己的需要，将其改写如下：
function getCaret(ZysrID)
{
var txb = document.getElementById(ZysrID);//根据ID获得对象
var pos = 0;//设置初始位置
txb.focus();//输入框获得焦点,这句也不能少,不然后面会出错,血的教训啦.
var s = txb.scrollTop;//获得滚动条的位置
var r = document.selection.createRange();//创建文档选择对象
var t = txb.createTextRange();//创建输入框文本对象
t.collapse(true);//将光标移到头
t.select();//显示光标,这个不能少,不然的话,光标没有移到头.当时我不知道,搞了十几分钟
var j = document.selection.createRange();//为新的光标位置创建文档选择对象
r.setEndPoint("StartToStart",j);//在以前的文档选择对象和新的对象之间创建对象,妈的,不好解释,我表达能力不算太好.有兴趣自己去看msdn的资料
var str = r.text;//获得对象的文本
var re = new RegExp("[\\n]","g");//过滤掉换行符,不然你的文字会有问题,会比你的文字实际长度要长一些.搞死我了.我说我得到的数字怎么总比我的实际长度要长.
str = str.replace(re,"");//过滤
pos = str.length;//获得长度.也就是光标的位置
r.collapse(false);
r.select();//把光标恢复到以前的位置
txb.scrollTop = s;//把滚动条恢复到以前的位置
}
//设置光标函数
function setCaret(id,pos)
{
var textbox = document.all(id);
var r = textbox.createTextRange();
r.collapse(true);
r.moveStart('character',pos);
r.select();
}
其实这个不难，但不知道的时候，会搞死人的。我为了实现这个效果，前前后后差不多试了五个小时，妈的。但愿这个对一些兄弟有帮助。
[聊天工具]如何用MSN Messenger发短信__天极Yesky [常用软件]如何用WinWord做表格？
[VB.NET程序]如何用VB.Net创建一个三层的数据库应用程序(转贴) [VB.NET程序]如何用VB获得机器的MAC地址
[VB.NET程序]如何用VB获得Windows各类系统目录 [VB.NET程序]如何用VB6写COM组件（二）
[Delphi程序]如何用Delphi制作录音程序 [Delphi程序]如何用Tprinter设计BCB操作数据库程序中的报表
[Delphi程序]如何用idFTP遍历整个目录----下载、删除 [VB.NET程序]如何用VB实现QBASIC中的data数据的read
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
