listBox 上移下移

来源：互联网发布：刺客信条袖剑淘宝编辑：程序博客网时间：2024/05/08 04:51

1.上移多項
If lstSelectedColumns.Items.Count = 0 Then

Response.Write("<script languange='javascript'>alert('沒有可選項');</script>")

Exit Sub

End If

If Me.lstSelectedColumns.SelectedIndex = -1 Then

Response.Write("<script languange='javascript'>alert('請選擇需要上移的字段');</script>")

Exit Sub

End If

Dim j As Integer

For j = 0 To Me.lstSelectedColumns.Items.Count - 1

Dim item As ListItem = Me.lstSelectedColumns.Items(j)

If item.Selected = True Then

Dim i As Integer = Me.lstSelectedColumns.Items.IndexOf(item)

If i = 0 Then

Response.Write("<script languange='javascript'>alert('無法上移');</script>")

Exit Sub

ElseIf i = -1 Then

Response.Write("<script languange='javascript'>alert('請選擇需要上移的字段');</script>")

Exit Sub

End If

lstSelectedColumns.Items.Remove(item)

lstSelectedColumns.Items.Insert(i - 1, item)

End If

Next

2.下移多項

If lstSelectedColumns.Items.Count = 0 Then

Response.Write("<script languange='javascript'>alert('沒有可選項');</script>")

Exit Sub

End If

If Me.lstSelectedColumns.SelectedIndex = -1 Then

Response.Write("<script languange='javascript'>alert('請選擇需要下移的字段');</script>")

Exit Sub

End If

Dim j As Integer = Me.lstSelectedColumns.Items.Count - 1

While j <> -1

Dim item As ListItem = Me.lstSelectedColumns.Items(j)

If item.Selected = True Then

Dim i As Integer = Me.lstSelectedColumns.Items.IndexOf(item)

If i = lstSelectedColumns.Items.Count - 1 Then

Response.Write("<script languange='javascript'>alert('無法下移');</script>")

Exit Sub

ElseIf i = -1 Then

Response.Write("<script languange='javascript'>alert('請選擇需要下移的字段');</script>")

Exit Sub

End If

lstSelectedColumns.Items.Remove(item)

lstSelectedColumns.Items.Insert(i + 1, item)

End If

j = j - 1

End While

3.上移一項

Dim item As ListItem = lstSelectedColumns.SelectedItem

Dim i As Integer = lstSelectedColumns.SelectedIndex

If lstSelectedColumns.Items.Count = 0 Then

Response.Write("<script languange='javascript'>alert('沒有可選項');</script>")

Exit Sub

ElseIf i = 0 Then

Response.Write("<script languange='javascript'>alert('已是第一項');</script>")

Exit Sub

ElseIf i = -1 Then

Response.Write("<script languange='javascript'>alert('請選擇');</script>")

Exit Sub

End If

lstSelectedColumns.Items.RemoveAt(i)

lstSelectedColumns.Items.Insert(i - 1, item)

4.下移一項

Dim item As ListItem = lstSelectedColumns.SelectedItem

Dim i As Integer = lstSelectedColumns.SelectedIndex

If lstSelectedColumns.Items.Count = 0 Then

Response.Write("<script languange='javascript'>alert('沒有可選項');</script>")

Exit Sub

ElseIf i = 0 Then

Response.Write("<script languange='javascript'>alert('已是第一項');</script>")

Exit Sub

ElseIf i = -1 Then

Response.Write("<script languange='javascript'>alert('請選擇');</script>")

Exit Sub

End If

lstSelectedColumns.Items.RemoveAt(i)

lstSelectedColumns.Items.Insert(i + 1, item)

5.javascript實現方法

function MoveUp()

{

var objright=document.all("LstRight");

var count=objright.children.length;

if (count==0)

{

alert("沒有可選項");

return false;

}

var selindex=objright.selectedIndex;

if (selindex==0) return false;

var selobj=objright.item(selindex);

var refobj=objright.item(selindex-1);

objright.insertBefore(selobj,refobj);

return false

}

function MoveDown()

{

var objright=document.all("LstRight")

var selindex=objright.selectedIndex;

var count=objright.children.length;

if (count==0)

{

alert("沒有可選項");

return false;

}

var selobj=objright.item(selindex);

if (selindex+2>=count)

{

objright.appendChild(selobj);

}else{

var refobj=objright.item(selindex+2);

objright.insertBefore(selobj,refobj)

}

return false

}