各位，各位，请看看这段代码，为何我的listbox拉不到底呢？

shzrxml 2004-02-20 10:35:57

大概是由于出现横向滚动条的原因，但这样可不行，请大家看看如何解决。

<HTML>
<HEAD>
<TITLE>New Page</TITLE>
</HEAD>
<script language="VBScript">
sub Layout1_OnLoad()
ListBox1.AddItem "shenhongdr"
ListBox1.AddItem "shenhong1"
ListBox1.AddItem "shenhong2"
ListBox1.AddItem "shenhong3"
ListBox1.AddItem "shenhong4"
ListBox1.AddItem "shenhong5"
ListBox1.AddItem "shenhong6"
ListBox1.AddItem "shenhong7"
ListBox1.AddItem "shenhong8"
ListBox1.AddItem "shenhong9"
ListBox1.AddItem "shenhong0"
ListBox1.AddItem "shenhong11"
ListBox1.AddItem "shenhong12"
ListBox1.AddItem "shenhong23"
ListBox1.AddItem "shenhong34"
ListBox1.AddItem "shenhong454"
ListBox1.AddItem "shenhong565gjhjgjhtjgyuguytguygujihiuphiuhgiugkjgkjhkj"

reallenth_2=len(document.all.ListBox1.List(16))
document.all.ListBox1.ColumnWidths = reallenth_2*10
end sub

</script>

<BODY onLoad="layout1_OnLoad()">

<DIV ID="Layout1" STYLE="LAYOUT:FIXED;WIDTH:400pt;HEIGHT:300pt;">
<OBJECT ID="ListBox1"
CLASSID="CLSID:8BD21D20-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:50pt;LEFT:99pt;WIDTH:206pt;HEIGHT:130pt;TABINDEX:0;ZINDEX:0;">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="ScrollBars" VALUE="3">
<PARAM NAME="DisplayStyle" VALUE="2">
<PARAM NAME="Size" VALUE="7267;4868">
<PARAM NAME="MatchEntry" VALUE="0">
<PARAM NAME="MultiSelect" VALUE="1">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="FontName" VALUE="System">
<PARAM NAME="FontCharSet" VALUE="128">
<PARAM NAME="FontPitchAndFamily" VALUE="2">
</OBJECT>
</DIV>

</BODY>
</HTML>

...全文