陋室铭
永远也不要停下学习的脚步(大道至简至易)

posts - 2169,comments - 570,views - 413万
//可编辑SELECT 
<input type=text name=re_name 
style="width:100px;height:21px;font-size:10pt;"><span 
style="width:18px;border:0px solid red;"><select name="r00" 
style="margin-left:-100px;width:118px; background-color:#FFEEEE;" 
onChange="document.all.re_name.value=this.value;"> 
                <option value="1">11111111<option> 
                <option value="2">222222</option> 
                <option value="3">333333</option> 
              </select> 
              </span> 
//设置光标位置 

function getCaret(textbox) 

 var control = document.activeElement; 
 textbox.focus(); 
 var rang = document.selection.createRange(); 
  rang.setEndPoint("StartToStart",textbox.createTextRange()) 
 control.focus(); 
 return rang.text.length; 

function setCaret(textbox,pos) 

 try 
 { 
  var r =textbox.createTextRange(); 
   r.moveStart('character',pos); 
   r.collapse(true); 
   r.select(); 
 } 
 catch(e) 
 {} 

function selectLength(textbox,start,len) 

 try 
 { 
  var r =textbox.createTextRange(); 
  
  r.moveEnd('character',len-(textbox.value.length-start)); 
  r.moveStart('character',start); 
   
  r.select(); 
 } 
 catch(e) 
 {//alert(e.description)} 

function insertAtCaret(textbox,text) 

 textbox.focus(); 
 document.selection.createRange().text = text; 


//页内查找 

function findInPage(str) 

 var txt, i, found,n = 0; 
 if (str == "") 
 { 
  return false; 
 } 
 txt = document.body.createTextRange(); 
 for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) 
 { 
  txt.moveStart("character", 1); 
  txt.moveEnd("textedit"); 
 } 
 if (found) 
 { 
  txt.moveStart("character", -1); 
  txt.findText(str); 
  txt.select(); 
  txt.scrollIntoView(); 
  n++;   
 } 
 else 
 { 
  if (n > 0) 
  { 
   n = 0; 
   findInPage(str); 
  } 
  else 
  { 
   alert(str + "...            您要找的文字不存在。\n \n请试着输入页面中的关键字再次查找!"); 
  } 
 } 
 return false; 

//书 
http://www.itpub.net/attachment.php?s=&postid=1894598 
http://www.wrclub.net/down/listdown.aspx?id=1341 
//操作EXECL 
<script language="javascript"> 
function jStartExcel() { 
 var xls = new ActiveXObject ( "Excel.Application" ); 
 xls.visible = true; 
 var newBook = xls.Workbooks.Add; 
 newBook.Worksheets.Add; 
 newBook.Worksheets(1).Activate; 
 xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2; 
 xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5; 
 newBook.Worksheets(1).Columns("A").columnwidth=50; 
 newBook.Worksheets(1).Columns("A").WrapText = true; 
 newBook.Worksheets(1).Columns("B").columnwidth=50; 
 newBook.Worksheets(1).Columns("B").WrapText = true; 
 newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0"; 
 newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = -4131; 
 newBook.Worksheets(1).Cells(1,1).Interior.ColorIndex="15"; 
 newBook.Worksheets(1).Cells(1,1).value="First Column, First Cell"; 
 newBook.Worksheets(1).Cells(2,1).value="First Column, Second Cell"; 
 newBook.Worksheets(1).Cells(1,2).value="Second Column, First Cell"; 
 newBook.Worksheets(1).Cells(2,2).value="Second Column, Second Cell"; 
 newBook.Worksheets(1).Name="My First WorkSheet"; 

</script> 
posted on   宏宇  阅读(206)  评论(0编辑  收藏  举报
编辑推荐:
· AI与.NET技术实操系列:基于图像分类模型对图像进行分类
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
阅读排行:
· 分享一个免费、快速、无限量使用的满血 DeepSeek R1 模型,支持深度思考和联网搜索!
· 25岁的心里话
· 基于 Docker 搭建 FRP 内网穿透开源项目(很简单哒)
· ollama系列01:轻松3步本地部署deepseek,普通电脑可用
· 按钮权限的设计及实现
< 2006年10月 >
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 1 2 3 4
5 6 7 8 9 10 11

点击右上角即可分享
微信分享提示