stuff3.vbs

尚洋仓库管理系统,对仓库

' VBScript 文件

dim spanLeft2,spanTop2,moveTD2,tdField2
	spanLeft2=0:spanTop2=0
	
	'dim tableStr
	'tablestr="<table STYLE='table-layout: fixed' border=0  height=100% cellpadding=0 cellspacing=0><tr><td class=td2 >title2</td><td class=td2 noWrap style='height:19;width:3' onmouseover=""vbs:me.style.cursor='E-resize'"" onmousedown=""vbs:tz me""><img style='LEFT: 0px; POSITION: relative' height=100%  src='a/.gif' width=3 title='调整表格宽度' ></td></tr></table>"
	
	sub tzt(objTD)
	    'msgbox objTD.outerHTML
	    'exit sub
	    
		set objTD=objTD.parentElement.Cells(0)
		dim objElement
		dim Totaloffset:Totaloffset=0
		set objElement=objTD.parentElement
		do while objElement.tagName<>"BODY"
			Totaloffset=Totaloffset+objElement.offsetLeft	
			set objElement=objElement.parentElement
		Loop

		span5.style.pixelLeft=	objTD.offsetLeft+Totaloffset-span4.scrollLeft-span4.parentElement.offsetLeft-4
		span5.style.pixeltop=objTD.offsetTop+document.all("span4").offsetTop+span4.offsetTop
		
		span5.style.pixelwidth=objTD.parentElement.Cells(1).offsetLeft-objTD.parentElement.Cells(0).offsetLeft+6
		span5.style.pixelheight=span4.clientHeight
		span5.style.display="inline"
		span5.setCapture
		set moveTD2=objTD
		
		tdField2=objTD.parentElement.parentElement.parentElement.parentElement.cellindex		
		
	end sub
	
	sub retPosition2()
		spanLeft2=1
		spanTop2=2
	end sub
	
	sub M_Move2()
	    
		Dim PixelLeft,tempwidth
		PixelLeft=TotalOffsetLeft2(moveTD2)
		
		tempwidth=window.event.clientX-pixelLeft+span4.scrollLeft+span4.parentElement.offsetLeft
		if tempwidth<5 then tempwidth=5
		span5.style.pixelWidth=tempwidth
		'window.status=window.event.clientX-pixelLeft	
			
	end sub
	
	sub M_up2
		span5.releaseCapture
		
		set tbb=document.all("Table1")
		
		for dcc_i=0 to tbb.rows.length-1
			tbb.rows(dcc_i).cells(tdField2).style.pixelwidth=span5.style.pixelwidth
			tbb.rows(dcc_i).cells(tdField2).style.height="22px"
			tbb.rows(dcc_i).cells(tdField2).style.whiteSpace="nowrap"
			tbb.rows(dcc_i).cells(tdField2).style.wordBreak="break-All"
			
			tbb.rows(dcc_i).cells(tdField2).style.textOverflow="ellipsis"
			tbb.rows(dcc_i).cells(tdField2).style.wordWrap="break-word"
		next
		
		'msgbox tb1.rows(0).cells(tdField2).childNodes(0).outerHTML
		'tb1.rows(0).cells(tdField2).innerHTML=""
		'tb1.rows(0).cells(tdField2).innerHTML=tablestr
		span5.style.display="none"
		titleResize2
		
	end sub
	
	Function TotalOffsetLeft2(byval obj)
		Dim Templeft,tempobj
		tempLeft=0
		set tempobj=moveTD2
		do while tempobj.tagName<>"BODY"
			TempLeft=TempLeft+tempobj.offsetLeft
			set tempobj=tempobj.parentElement
		loop
		set tempobj=nothing
		TotalOffsetLeft2=templeft
	end function
	
	sub titleResize2
		span6.innerHTML="<table border=0  cellspacing=0 cellpadding=0 id='table2' STYLE='table-layout: fixed;border-left:buttonface 1px solid;'>" & Table1.rows(0).outerHTML  & "</table>"
		
		HScroll2
	end sub
	
	sub HScroll2
		on error resume next
		span6.style.left=span4.offsetLeft
		span6.style.top=span4.offsetTop+1
		span6.style.width=span4.offsetWidth-(span4.offsetWidth-span4.clientWidth)
		
		for iii=0 to document.all("table2").Rows(0).cells.length-1
			document.all("table2").Rows(0).cells(iii).style.width=Table1.rows(0).cells(iii).offsetwidth
		next
		span6.scrollLeft=span4.scrollLeft
		'if err.number<>0 then msgbox "err"
'		window.status=err.Description
	end sub' VBScript 文件