28,409
社区成员
发帖
与我相关
我的任务
分享我想要的结果能实现吗？
比如有一个列表，旁边有2个按钮，一个是“向上移动”，一个是“向下移动”，我选中列表中的一个值，然后点击“向上移动”这个值就向上移动，反之亦然。能实现吗？给我个答复，谢谢了
...全文
请发表友善的回复…
发表回复
Rgbvke 2004-08-06
- 打赏
- 举报
<script language=vbscript>
sub move()
Slen=Document.all("s1").options.length
for i=0 to slen-1
if document.all("s1").options(i).selected then
jj=i
if jj<>0 then
names=document.all("s1").options(i-1).innertext
values=document.all("s1").options(i-1).value
document.all("s1").options(i-1).innertext=document.all("s1").options(i).innertext
document.all("s1").options(i).innertext=names
document.all("s1").options(i-1).value=document.all("s1").options(i).value
document.all("s1").options(i).value=values
document.all("s1").options(i-1).selected=true
document.all("s1").options(i).selected=false
end if
end if
next
end sub
</Script>
</HEAD>
<BODY>
<select name="s1" multiple>
<option value="name1">名稱1</option>
<option value="name2">名稱2</option>
<option value="name3">名稱3</option>
<option value="name4">名稱4</option>
<option value="name5">名稱5</option>
<option value="name6">名稱6</option>
</select>
<input type=button value="MOVE ON" name="Move" onclick="move()">
這個只做了向上移動,向下移動,你可以自己完成.
sub move()
Slen=Document.all("s1").options.length
for i=0 to slen-1
if document.all("s1").options(i).selected then
jj=i
if jj<>0 then
names=document.all("s1").options(i-1).innertext
values=document.all("s1").options(i-1).value
document.all("s1").options(i-1).innertext=document.all("s1").options(i).innertext
document.all("s1").options(i).innertext=names
document.all("s1").options(i-1).value=document.all("s1").options(i).value
document.all("s1").options(i).value=values
document.all("s1").options(i-1).selected=true
document.all("s1").options(i).selected=false
end if
end if
next
end sub
</Script>
</HEAD>
<BODY>
<select name="s1" multiple>
<option value="name1">名稱1</option>
<option value="name2">名稱2</option>
<option value="name3">名稱3</option>
<option value="name4">名稱4</option>
<option value="name5">名稱5</option>
<option value="name6">名稱6</option>
</select>
<input type=button value="MOVE ON" name="Move" onclick="move()">
這個只做了向上移動,向下移動,你可以自己完成.
shanbeiwa 2004-08-06
- 打赏
- 举报
期待中…………
lnqnwy 2004-08-06
- 打赏
- 举报
代码应该是不很简单！很复杂了！
shanbeiwa 2004-08-06
- 打赏
- 举报
在线等………………
shanbeiwa 2004-08-06
- 打赏
- 举报
给段代码好吗？
-----------------------------
你们是我的希望…………
*****************************
-----------------------------
你们是我的希望…………
*****************************
life360 2004-08-06
- 打赏
- 举报
可以哦，看你是该数据还是用javascript
skyboy0720 2004-08-06
- 打赏
- 举报
能
