今天小编给大家带来的是vb中listbox如何自动排序,希望能帮助到大家!
工具/原料
PC
vb
方法/步骤
1、PrivateSubCommand1_Click()'上移DimNAsLongN=List1.ListIndex'记录当前序号ifn=-1thenexitsub'加这句,判断是否选择
2、IfN-1>-1Then'挢旗扦渌;判断是否最前List1.AddItemList1.Text,N惺绅寨瞀-1'在当前项的上一条记录前插入一条记录List1.RemoveItemN+1'删除原记录
3、List1.Selected(N-1)=True'选中移动后记录ElseMsgBox"已经是最前"EndIfEndSub
4、PrivateSubCommand2_Click()'下移DimNAsLongN=List1.ListIndexIfN+1<List1.ListCountThen
5、List1.AddItemList1.Text,N+咯悝滩镞2List1.RemoveItemNList1.Selected(N+1)=TrueElse罄休卦咦MsgBox"已经是最后"EndIfEndSub