我已使用1到10的数值(项)填充DropDownList。这些项按顺序显示。现在我想要洗牌这些项目 如第1项出现在第8位 第2项出现在第6位等 我知道我可以使用交换方法来做到这一点但是 有没有更有效的方法来做到这一点?
答案 0 :(得分:0)
我不知道DropDownList
,所以我为ListBox
编写了一些代码。
' Up
Dim Index As Integer = ListBox1.SelectedIndex
If Index > 0 Then
Dim Value As String = ListBox1.SelectedItem
ListBox1.Items.RemoveAt(Index)
ListBox1.Items.Insert(Index - 1, Value)
Else
' Cannot move up the first item or no item selected
End If
' Down
Dim Index As Integer = ListBox1.SelectedIndex
If Index > -1 And Index < ListBox1.Items.Count - 1 Then
Dim Value As String = ListBox1.SelectedItem
ListBox1.Items.RemoveAt(Index)
ListBox1.Items.Insert(Index + 1, Value)
Else
' Cannot move down the last item or no item selected
End If