分享
 
 
 

TabStrip应用例子

王朝other·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

<html>

<head>

<title>插入表格</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<body bgcolor=buttonface scroll=no topmargin=5>

<style type="text/css">

div,td{cursor:default;font-family:宋体;font-size:9pt;}

</style>

<script language=javascript>

function TableOK(){

var dotable,tmpcol,tmprow,docol,dorow

if(tba[0].checked){algn="left";}

if(tba[1].checked){algn="center";}

if(tba[2].checked){algn="right";}

tmpcol="<td align="+algn+"></td>";

docol=""

dorow=""

for ( var i=0; i<tbc.value; i++ ){

docol=docol+tmpcol;

}

docol="<tr>"+docol+"</tr>"

for ( var j=0; j<tbr.value; j++ ){

dorow=dorow+docol;

}

dotable="<table border="+tbb.value+" cellspacing="+tbs.value+" cellpadding="+tbp.value+">"+dorow+"</table>"

alert(dotable);

}

</script>

<script language=VBScript>

Sub TabStrip_Change()

if (TabStrip.Value = 0) then

Page1.style.visibility = "hidden"

Page0.style.visibility = "visible"

end if

if (TabStrip.Value = 1) then

Page0.style.visibility = "hidden"

Page1.style.visibility = "visible"

end if

end sub

</script>

<center>

<object id="TabStrip" classid="clsid:eae50eb0-4a62-11ce-bed6-00aa00611080" style="WIDTH: 285px; HEIGHT: 150px" >

<param name="ListIndex" value="0">

<param name="NewVersion" value="-1">

<param name="Accelerator" value="&A;B;">

<param name="TipStrings" value="这是一般设定;这是高级设定;">

<param name="FontName" value="宋体">

<param name="Items" value="一般设定;高级设定;">

</object>

<div id="Page0" style="visibility:visible;position:absolute;left:expression((TabStrip.offsetLeft + 6) + 'px');top:expression((TabStrip.offsetTop + 30) + 'px');width:280px;height:200px;text-align:left;">

<table border=0 cellpadding=0 cellspacing=2>

<tr><td>边框粗细:</td><td><input type=text name=tbb size=20 value="1" maxlength=2 onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td>px</td></tr>

<tr><td>表格行数:</td><td><input type=text name=tbc size=20 value="2" maxlength=2 onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td>行</td></tr>

<tr><td>表格列数:</td><td><input type=text name=tbr size=20 value="2" maxlength=2 onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td>列</td></tr>

</table>

</div>

<div id="Page1" style="visibility:hidden;position:absolute;left:expression((TabStrip.offsetLeft + 6) + 'px');top:expression((TabStrip.offsetTop + 30) + 'px');width:280px;height:200px;text-align:left;">

<table border=0 cellpadding=0 cellspacing=2>

<tr><td>边框间距:</td><td><input type=text name=tbs size=16 maxlength=2 value="2" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td width=85>px</td></tr>

<tr><td>边距大小:</td><td><input type=text name=tbp size=16 maxlength=2 value="2" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" class=hole></td><td>px</td></tr>

<tr><td>对齐方式:</td><td colspan=2><input type=radio name=tba checked>左<input type=radio name=tba>中<input type=radio name=tba>右</td></tr>

</table>

</div>

<div align="center" style="position:absolute;left:expression((TabStrip.offsetLeft + 6) + 'px');top:expression((TabStrip.offsetTop + TabStrip.style.posHeight - 30) + 'px');width:280px;height:80px;" align="center">

<table border=0 cellpadding=0 cellspacing=0>

<tr>

<td width=50 align=center><input type=button onclick="window.close();" value="取消" class=cmdbtn></td>

<td width=50 align=center><input type=button onclick="TableOK();" value="完成" class=cmdbtn></td>

</tr></table>

</div>

</center>

<script>

window.setTimeout('TabStrip.blur()',100);

</script>

<div style="width:100%;padding:10px" align="center">

<object id="menutabs" name="menutabs" classid="clsid:EAE50EB0-4A62-11CE-BED6-00AA00611080" align="baseline" border="0"

width="533"

height="313">

<param name="ListIndex" value="0">

<param name="ForeColor" value="4210816">

<param name="Size" value="14111;8290">

<param name="Items" value="Main;Links;Topics;Help;">

<param name="TabOrientation" value="2">

<param name="MultiRow" value="-1">

<param name="TipStrings" value="8888;;;;">

<param name="Names" value="Main;Links;Topics;Help;">

<param name="NewVersion" value="-1">

<param name="TabsAllocated" value="4">

<param name="Tags" value=";;;;">

<param name="TabData" value="4">

<param name="Accelerator" value=";;;;">

<param name="FontName" value="Arial">

<param name="FontEffects" value="1073741825">

<param name="FontCharSet" value="0">

<param name="FontPitchAndFamily" value="2">

<param name="FontWeight" value="700">

<param name="TabState" value="3;3;3;3">

</object>

</div>

</body>

</html>

div,td{cursor:default;font-family:宋体;font-size:9pt;}

边框粗细: 57) event.returnValue = false;" class=hole px

表格行数: 57) event.returnValue = false;" class=hole 行

表格列数: 57) event.returnValue = false;" class=hole 列

边框间距: 57) event.returnValue = false;" class=hole px

边距大小: 57) event.returnValue = false;" class=hole px

对齐方式: 左 中 右

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有