将列表项目移动到列表框的顶部

Question

当用户在列表框中选择一个名称并单击一个按钮时，我将该名称保存在名为“parent”的var中。

我想要做的是以编程方式将所选名称移到列表顶部，并将整个列表放在下拉列表中。我启动了下面的代码，但不知道如何将所选列表项（父项）移动到列表顶部？

Private Sub GoLower(ByVal parent As String, 
        ByVal lst As ListBox, 
        ByVal ddl As DropDownList) 

        ddl.Items.Clear() 

        For Each item As ListItem In lst.Items 
            ddl.Items.Add(item.Text) 
            'MOVE the item that is parent to top of ddl???? 
        Next 

End Sub

Answer 1

按任意顺序构建列表框，然后将所需的列表框移到顶部。 这是在C＃中，但VB.net等效应该是显而易见的：

 ListItem item = list.SelectedItem;
 // or find the required item another way, such as .FindByValue
 list.Items.Remove(item);
 list.Items.InsertAt(0, item);