vb中listbox如何自动排序

2025-05-05 12:19:03

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

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

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

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。