stuff4.vbs

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

' VBScript 文件

dim spanLeft3,spanTop3,moveTD3,tdField3
	spanLeft3=0:spanTop3=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 tzt2(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

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