动态改变combox的某行的位置

本文主要是介绍动态改变combox的某行的位置，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

只能先remove item，再add item，代码如下：

'cbojob当前选择向下移一位 Private Sub cmdPostpone_Click() Dim strItem As String Dim lngIndex As Long 'copy原来的数据,包括列数据 strItem = Me.cboJob & ";" & Me.cboJob.Column(1) & ";" lngIndex = Me.cboJob.ListIndex '删除原来的数据 Me.cboJob.RemoveItem lngIndex Debug.Print Me.cboJob.ListIndex '当前index变为-1 '在新位置添加数据 Me.cboJob.AddItem strItem, lngIndex + 1 Debug.Print Me.cboJob.ListIndex '当前index变为lngIndex + 1 '把index改回原来那一行 Me.cboJob.SetFocus Me.cboJob.ListIndex = lngIndex End Sub

 

感谢of123指点。

这篇关于动态改变combox的某行的位置的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---