今天小编给大家带来的是vb中listbox如何自动排序，希望能帮助到大家！

工具/原料

  • PC
  • vb

方法/步骤

  1. 1

    Private Sub Command1_Click() '上移Dim N As LongN = List1.ListIndex '记录当前序号if n=-1 then exit sub '加这句，判断是否选择

  2. 2

    If N - 1 > -1 Then '判断是否最前List1.AddItem List1.Text, N - 1 '在当前项的上一条记录前插入一条记录List1.RemoveItem N + 1 '删除原记录

  3. 3

    List1.Selected(N - 1) = True '选中移动后记录ElseMsgBox "已经是最前"End IfEnd Sub

  4. 4

    Private Sub Command2_Click() '下移Dim N As LongN = List1.ListIndexIf N + 1 < List1.ListCount Then

  5. 5

    List1.AddItem List1.Text, N + 2List1.RemoveItem NList1.Selected(N + 1) = TrueElseMsgBox "已经是最后"End IfEnd Sub

    END

注意事项

  • 网络虽好，但要注意劳逸结合哦！
  • 如果是青少年，小编在这里提示大家千万不能沉迷网络！
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。