问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

vb listbox 如何调整行顺序

发布网友 发布时间:2022-04-24 21:50

我来回答

1个回答

热心网友 时间:2022-04-24 23:19

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

If N - 1 > -1 Then '判断是否最前

List1.AddItem List1.Text, N - 1 '在当前项的上一条记录前插入一条记录

List1.RemoveItem N + 1 '删除原记录

List1.Selected(N - 1) = True '选中移动后记录

Else
MsgBox "已经是最前"
End If
End Sub

Private Sub Command2_Click() '下移
Dim N As Long
N = List1.ListIndex
If N + 1 < List1.ListCount Then
List1.AddItem List1.Text, N + 2
List1.RemoveItem N
List1.Selected(N + 1) = True
Else
MsgBox "已经是最后"
End If
End Sub
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
win10电脑hdmiwin10笔记本hdmi连接电视没反应 平板电脑与电视机联接华为平板怎么投屏到电视上 长虹chiq电脑无线投影如何无线把电脑屏幕投影到电视屏幕上 模拟电视电脑系统智能电视怎么变成电脑系统 ops电脑加装固态硬盘ops电脑是什么意思 我想问一下立宇泰电子的ARMSYS6410开发板可以外接什么模块? 小心那些处理过的2元绿幽灵,教你这几招就能识别! 如何辨别人民币是否水洗过,刚有兴趣做收藏可去买第四套人民币还有是否水... oppor7splus手机怎么样现在?照相好不好。是多会儿出来的机子呢。目前... ps怎么改像素大小且不模糊 做保健药酒配方大全 可我就像风筝断了线你说你喜欢午夜的浪子 你我就像风筝在岁月里断了线 依然把你藏在心底许多年 的歌名谁知道啊? 请帮助我找10个优美的比喻句 给我点比喻句 造比喻句 歌词找歌名只要你幸福什么我都给 日本奥特莱斯购物三井幕张奥特莱斯怎么样 告诉我一些比喻句 有谁知道蔡依林的这首歌是什么?我知道中间的一点歌词 蔡依林的一首歌,其中有一段歌词:在你离开之后的天空我像风筝寻找个梦雨后的天空总会有放晴的面容 一个我喜欢的男人说我像风筝……那是什么意思……求解? 谁知道这首歌的名字;其中的歌词是:我像风筝寄托我的寂寞,那些花开的........啊,也许回忆太伤痛,啊 蔡依林有首歌里面有“在你离开后的天空,我像风筝……”这句,请问歌名是什么啊? 告诉我十条关于人生理想的格言和警句,快!!! 关于树立远大理想和抱负的格言警言 “惹不起”,北京土豪究竟对他的劳斯莱斯做了何事,为何网友会如此惊呼? 手脚冰冷的女生,该穿些什么才能保暖又时尚? 传说苏妲己拥有什么宝物 在VB.net中,如何把listbox中的数值进行排序 水养竹子水臭是怎么回事??? LTE中,UE涉及的NAS、RRC、PDCP是什么意思? 家里面水养的竹子有臭味 我养的竹子为什么都长根了叶子还黄,而且水还很臭,该怎么办呢? 用于承载rrc消息和nas消息的srb有哪些 中核钛白行情分析?中核钛白主力控盘?股票中核钛白诊股? 现在买中核钛白会不会赚钱?分析一下中核钛白这支股票?中核钛白诊股? 中核钛白基本面怎么样?中核钛白的股票的基本分析?中核钛白股票同化顺诊股? 中核钛白中报分析?主力买入中核钛白?中核钛白股诊股? 分析 中核钛白股票走势分析?中核钛白的盈利能力分析?牛叉诊股中核钛白股票? nas层是用户面协议吗 lte中t300定时器在什么情况下启动 中核钛白的财报?中核钛白最新事件?中核钛白股票牛叉股? 中核钛白股票未来目标价?2021年中核钛白三季报?中核钛白2021股权登记日? 中核钛白股票一历史最高?中核钛白股票行情手机同花顺?中核钛白最近为何大跌? 中核钛白未来估值?中核钛白今天收盘价是多少?中核钛白(002145)股吧? 中核钛白还有上涨空间吗目标价多少?2021中核钛白年中财报?中核钛白股票2021净利润? 一般UV打印机的速度是多少 VB 如何将ListBox1 中选中的项目移动到 ListBox2中? 联想G460 怎么设置永不休眠