鼠标可以拖动调整宽度的表格。
保存成ＨＴＭＬ文件自己看看就知道了。
------------------------------------------------------------------
<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="move"
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="move"
End If
End Sub
Sub SelectBody() '鼠标选择文本[不支持动态调整？]
If CurDown=True Then '鼠标按下于调整状态
window.event.returnvalue=False
End If
End Sub
</script>
| 01 |
02 |
03 |
| 04 |
05 |
06 |
| 07 |
08 |
09 |
| 10 |
11 |
12 |
<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>
订阅该问题
悬赏分：20 - 2007年08月15日