表格动态拉宽 - 达人(缺缺)

2004/07/20 | 表格动态拉宽
类别(JScript) | 评论(0) | 阅读(99) | 发表于 13:40: <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft FrontPage 4.0"> <TITLE></TITLE> <Script Language=VbScript> '//**************************************** '蒋玉龙编制于2002-8-6 星期二 'QQ:66840199 '用时5个小时，功能：实现首行根据边框调整表格大小； '请保留相关信息 '//**************************************** Dim CurState '记录鼠标状态 Dim CurDown '记录鼠标按下 Dim CurId '记录当前Id Dim OldPlace,NewPlace Sub MoveCol(MyColId) window.status =window.document.body.scrollLeft If CurDown=False Then '鼠标没有按下 If window.event.x + window.document.body.scrollLeft > CurTable + window.document.body.all(CurId).offsetLeft + window.document.body.all(CurId).offsetWidth-3 Then '移动到了相应的部位/改变鼠标 CurState=True window.document.body.style.cursor="col-resize" Else CurState=False window.document.body.style.cursor="Default" End If CurId=MyColId End If End Sub Sub UpBody() '鼠标抬起/一切恢复原状态 If CurState=True Then '***************************调整表格************************** '调整条件:(层左侧+线左侧=线绝对左侧坐标)>目标的左侧坐标+20 NewPlace=window.event.x + window.document.body.scrollLeft If (MyDiv.offsetLeft + MyLine.offsetLeft) > CurTable + window.document.body.all(CurId).offsetLeft +20 Then window.document.body.all(CurId).Width = window.document.body.all(CurId).Width - (OldPlace - NewPlace) MyTable.width=MyTable.Width - (OldPlace - NewPlace) window.document.body.all(CurId).innertext=window.document.body.all(CurId).Width End If '************************************************************* CurState=False CurDown=False MyDiv.style.display="None" window.document.body.style.cursor="Default" End If End Sub Sub DownBody() '鼠标按下 If CurState=True Then CurDown=True '*********定位竖线********** MyDiv.style.display="" '层可见 MyLine.style.Height= MyTable.offsetHeight MyLine.style.width = 1 MyDiv.style.Left = window.event.x + window.document.body.scrollLeft - MyLine.offsetLeft MyDiv.style.Top = MyTable.offsetTop - MyLine.offsetTop '*************************** OldPlace=window.event.x + window.document.body.scrollLeft End If End Sub Sub MoveBody() '鼠标移动 If CurDown=True Then '鼠标按下状态 MyDiv.style.Left = window.event.x + window.document.body.scrollLeft - MyLine.offsetLeft window.document.body.style.cursor="col-resize" End If End Sub Sub SelectBody() '鼠标选择文本[不支持动态调整？] If CurDown=True Then '鼠标按下于调整状态 window.event.returnvalue=False End If End Sub </Script> </HEAD> <BODY onmousedown=DownBody() OnMouseOver=MoveBody() OnMouseUp=UpBody() onselectstart=SelectBody()> <DIV Id=MyDiv style="DISPLAY: none; HEIGHT: 201px; LEFT: 12px; POSITION: absolute; TOP: 50px; WIDTH: 28px; Z-INDEX: 1"> <hr Id=MyLine width="1" size="200" noshade Color="black"> </DIV> <TABLE Id=MyTable border=0 cellPadding=0 cellSpacing=0 width="300"> <TR Id=MyRow01> <TD Width="100" Id="MyCol01" onmousemove="MoveCol 'MyCol01'">01</TD> <TD Width="100" Id="MyCol02" onmousemove="MoveCol 'MyCol02'">02</TD> <TD Width="100" Id="MyCol03" onmousemove="MoveCol 'MyCol03'">03</TD></TR> <TR Id=MyRow02> <TD>04</TD> <TD>05</TD> <TD>06</TD></TR> <TR Id=MyRow03> <TD>07</TD> <TD>08</TD> <TD>09</TD></TR> <TR> <TD>10</TD> <TD>11</TD> <TD>12</TD></TR> </TABLE> <SCRIPT Language=VbScript> Dim CurTable CurTable=MyTable.offsetLeft Dim TabII,TabJJ Dim CurWidth For TabII=0 To (MyTable.Rows.length-1) For TabJJ=0 To (MyTable.Rows(TabII).cells.length-1) If MyTable.Rows(TabII).cells(TabJJ).innerHtml="" Then MyTable.Rows(TabII).cells(TabJJ).innerHtml=" " End If CurWidth="1" If TabII=0 Then '第一行 CurWidth="2" End If MyTable.Rows(TabII).cells(TabJJ).Style.bordertop=CurWidth & "px solid Black" CurWidth="1" If TabJJ=0 Then '第一列 CurWidth="2" End If MyTable.Rows(TabII).cells(TabJJ).Style.borderleft=CurWidth & "px solid Black" If TabII=(MyTable.Rows.length-1) Then '最后一行 MyTable.Rows(TabII).cells(TabJJ).Style.borderbottom="2px solid Black" End If If TabJJ=(MyTable.Rows(TabII).cells.length-1) Then '最后一列 MyTable.Rows(TabII).cells(TabJJ).Style.borderright="2px solid Black" End If Next Next </SCRIPT> </BODY> </HTML>; 0

http://allinhands.5d.cn/

评论Comments