玩酷之家

 找回密码
 立即注册
查看: 1257|回复: 0

VB.NET ListView 控件实现项批量上移下移和移除

[复制链接]

20

主题

21

帖子

909

积分

高级会员

Rank: 4

积分
909
QQ
发表于 2019-3-2 16:10:40 | 显示全部楼层 |阅读模式
本帖最后由 1059-Studio 于 2019-3-2 16:12 编辑

批量移除
  1.        Dim i As Integer = 0
  2.         Do Until i = Me.ListView1.Items.Count
  3.             If Me.ListView1.Items.Item(i).Selected = True Then
  4.                 Me.ListView1.Items.Item(i).Remove()
  5.                 i = i - 1
  6.             End If
  7.             i = i + 1
  8.         Loop
复制代码
批量上移
  1.        If ListView1.SelectedIndices.Count > 0 Then
  2.             For i As Integer = 0 To ListView1.SelectedIndices.Count - 1
  3.                 Dim index As Integer = ListView1.SelectedIndices(i)
  4.                 If index > 0 Then
  5.                     If ListView1.SelectedIndices.Contains(index - 1) Then
  6.                         Continue For
  7.                     End If
  8.                     Dim tmp As ListViewItem = ListView1.Items(index)
  9.                     ListView1.Items.RemoveAt(index)
  10.                     ListView1.Items.Insert(index - 1, tmp)
  11.                     ListView1.Items(index - 1).Focused = True
  12.                 End If
  13.             Next
  14.         End If
复制代码
批量下移
  1.         If ListView1.SelectedIndices.Count > 0 Then
  2.             For i As Integer = ListView1.SelectedIndices.Count - 1 To 0 Step -1
  3.                 Dim index As Integer = ListView1.SelectedIndices(i)
  4.                 If index < ListView1.Items.Count - 1 Then
  5.                     If ListView1.SelectedIndices.Contains(index + 1) Then
  6.                         Continue For
  7.                     End If
  8.                     Dim tmp As ListViewItem = ListView1.Items(index)
  9.                     ListView1.Items.RemoveAt(index)
  10.                     ListView1.Items.Insert(index + 1, tmp)
  11.                     ListView1.Items(index + 1).Focused = True
  12.                 End If
  13.             Next
  14.         End If
复制代码
湖边的稻草 1059 Studio
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2020-8-4 16:19 , Processed in 1.092002 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表